Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESSEnd Type'wFunc 的设定值'FO_COPY Copies the files specified by pFrom to the location specified by pTo.'FO_DELETE Deletes the files specified by pFrom (pTo is ignored).'FO_MOVE Moves the files specified by pFrom to the location specified by pTo.'FO_RENAME Renames the files specified by pFrom.'fFlag的设定'FOF_ALLOWUNDO Preserves undo information, if possible.'FOF_FILESONLY Performs the operation only on files if a wildcard filename' (*.*) is specified.'FOF_MULTIDESTFILES Indicates that the pTo member specifies multiple destination' files (one for each source file) rather than one directory where' all source files are to be deposited.'FOF_NOCONFIRMATION Responds with "yes to all" for any dialog box that is displayed.'FOF_NOCONFIRMMKDIR Does not confirm the creation of a new directory if' the operation requires one to be created.'FOF_RENAMEONCOLLISION Gives the file being operated on a new name (such as' "Copy #1 of...") in a move, copy, or rename operation' if a file of the target name already exists.'FOF_SILENT Does not display a progress dialog box.'FOF_SIMPLEPROGRESS Displays a progress dialog box, but does not show the' filenames.'FOF_WANTMAPPINGHANDLE Fills in the hNameMappings member. The handle must be' freed by using the SHFreeNameMappings function.Const FO_MOVE = &H1Const FO_COPY = &H2Const FO_DELETE = &H3Const FOF_NOCONFIRMATION = &H10Const FOF_NOCONFIRMMKDIR = &H200Const FOF_ALLOWUNDO = &H40Const FOF_SILENT = &H4Private Declare Function SHFileOperation Lib "shell32.dll" Alias _ "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long'删除 test目录及其底下的子目录到资源回收桶Private Sub Command1_Click() Dim SHFileOp As SHFILEOPSTRUCT SHFileOp.wFunc = FO_DELETE SHFileOp.pFrom = "c:test" + Chr(0) '不出现档案删除的动态AVI,且不Confirm SHFileOp.fFlags = FOF_SILENT + FOF_ALLOWUNDO + FOF_NOCONFIRMATION '若没有 FOF_ALLOWUNDO 则不会到资源回收桶 Call SHFileOperation(SHFileOp)End Sub'同时删除多档到资源回收桶Private Sub Command2_Click() Dim SHFileOp As SHFILEOPSTRUCT Dim Files As String 'Files = "c:test.txt" + Chr(0) Files = "c:test1.txt" + Chr(0) + "c:test2.txt" + Chr(0) + _ "c:test3.txt" + Chr(0) SHFileOp.wFunc = FO_DELETE SHFileOp.pFrom = Files '删至资源回收桶,且不Confirm SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION Call SHFileOperation(SHFileOp)End Sub'将 c:temp 整个目录复制到 c:temp2Private Sub Command3_Click() Dim SHFileOp As SHFILEOPSTRUCT SHFileOp.wFunc = FO_COPY SHFileOp.pFrom = "c:temp*.*" SHFileOp.pTo = "c:temp2*.*" SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR Call SHFileOperation(SHFileOp)End Sub'将 c:test4.txt 快速移到 c:temp 目录Private Sub Command4_Click() Dim SHFileOp As SHFILEOPSTRUCT SHFileOp.wFunc = FO_MOVE SHFileOp.pFrom = "c:test4.txt" + Chr(0) SHFileOp.pTo = "c:temp" SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION Call SHFileOperation(SHFileOp)End Sub(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)