'Delete To Recycling Bin 'This program needs a Common Dialog Box, named CDBox. ' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T) ' and select Microsoft Common Dialog control) Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAborted As Boolean hNameMaps As Long sProgress As String End Type Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: [email protected] Dim SHFileOp As SHFILEOPSTRUCT 'Set the dialog's title CDBox.DialogTitle = "Select a file to delete ..." 'Set the dialog's filter CDBox.Filter = "All Files (*.*)|*.*" 'Show the 'Open File' dialog CDBox.ShowOpen With SHFileOp 'Delete the file .wFunc = FO_DELETE 'Select the file .pFrom = CDBox.filename 'Allow 'move to recycle bn' .fFlags = FOF_ALLOWUNDO End With 'perform file operation SHFileOperation SHFileOp MsgBox "The file '" + CDBox.filename + "' has been moved to your Recycling Bin !", vbInformation + vbOKOnly, App.Title End Sub
用FSO对象也可以。Private Sub Command1_Click() '注意引用microsoft scripting runtime对象 Dim FSO As New FileSystemObject FSO.DeleteFolder "c:\mc\test" Set FSO = Nothing End Sub
代码一时找不到(硬盘坏了,资料全丢了)
'This program needs a Common Dialog Box, named CDBox.
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim SHFileOp As SHFILEOPSTRUCT
'Set the dialog's title
CDBox.DialogTitle = "Select a file to delete ..."
'Set the dialog's filter
CDBox.Filter = "All Files (*.*)|*.*"
'Show the 'Open File' dialog
CDBox.ShowOpen
With SHFileOp
'Delete the file
.wFunc = FO_DELETE
'Select the file
.pFrom = CDBox.filename
'Allow 'move to recycle bn'
.fFlags = FOF_ALLOWUNDO
End With
'perform file operation
SHFileOperation SHFileOp
MsgBox "The file '" + CDBox.filename + "' has been moved to your Recycling Bin !", vbInformation + vbOKOnly, App.Title
End Sub
'注意引用microsoft scripting runtime对象
Dim FSO As New FileSystemObject
FSO.DeleteFolder "c:\mc\test"
Set FSO = Nothing
End Sub