Attribute VB_Name = "Modcopy"
Public 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_SIMPLEPROGRESS
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'wFunc 常數(shù)
'FO_COPY 把 pFrom 文件拷貝到 pTo。
Public Const FO_COPY = &H2
'FO_DELETE 刪除 pFrom 中的文件（pTo 忽略）。
Public Const FO_DELETE = &H3
'FO_MOVE 把 pFrom 文件移動到 pTo。
Public Const FO_MOVE = &H1
'fFlag 常數(shù)
'FOF_ALLOWUNDO 允許 Undo 。
Public Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不顯示系統(tǒng)確認(rèn)對話框。
Public Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目錄。
Public Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不顯示進(jìn)度對話框
Public Const FOF_SILENT = &H4
'Dim SHFileOp As SHFILEOPSTRUCT
'例子:
'Dim SHFileOp As SHFILEOPSTRUCT
' 刪除
'SHFileOp.wFunc = FO_DELETE
'SHFileOp.pFrom = "c:\config.old" + Chr(0)
'SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
'Call SHFileOperation(SHFileOp)
' 刪除多個文件
'SHFileOp.wFunc = FO_DELETE
'SHFileOp.pFrom = "c:\config.old" + Chr(0) + "c:\autoexec.old" + Chr(0)
'SHFileOp.fFlags = FOF_ALLOWUNDO
'Call SHFileOperation(SHFileOp)
' 拷貝
'SHFileOp.wFunc = FO_COPY
'SHFileOp.pFrom = "c:\t\*.*"
'SHFileOp.pTo = "d:\t\*.*"
'SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
'Call SHFileOperation(SHFileOp)
' 移動
'SHFileOp.wFunc = FO_MOVE
'SHFileOp.pFrom = "c:\config.old" + Chr(0)
'SHFileOp.pTo = "d:\t"
'SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
'Call SHFileOperation(SHFileOp)