vb中如何将一个文件的所有东西复制到另一个文件夹

如题所述

第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
第2个回答  2013-08-16