第1个回答 2013-08-16
wFunc As Long '是复制、删除还是移动 pFrom As String '源文件夹或文件 pTo As String '目的文件夹或文件 fFlags As Integer '是否显示个子对话框 fAborted As Boolean hNameMaps As Long sProgress As String End Type Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Sub Command1_Click() Dim SHFileOp As SHFILEOPSTRUCT SHFileOp.wFunc = &H2 SHFileOp.pFrom = "C:\xyz.z" '源文件夹或文件 SHFileOp.pTo = "D:\aaz.z" '目的文件夹或文件 SHFileOp.fFlags = &H40 + &H1 SHFileOperation SHFileOp End Sub