有没有不用FSO的复制文件夹得方法? 有没有不用FSO的复制文件夹得方法? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 以下是使用SHFileOperation删除复制移动文件的例子,可以复制文件夹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 '只有在 FOF_SIMPLEPROGRESS 时用End TypePrivate Declare Function SHFileOperation Lib _"shell32.dll" Alias "SHFileOperationA" (lpFileOp _As SHFILEOPSTRUCT) As Long'wFunc 常数'FO_COPY 把 pFrom 文件拷贝到 pTo。Const FO_COPY = &H2'FO_DELETE 删除 pFrom 中的文件(pTo 忽略)。Const FO_DELETE = &H3'FO_MOVE 把 pFrom 文件移动到 pTo。Const FO_MOVE = &H1'fFlag 常数'FOF_ALLOWUNDO 允许 Undo 。Const FOF_ALLOWUNDO = &H40'FOF_NOCONFIRMATION 不显示系统确认对话框。Const FOF_NOCONFIRMATION = &H10'FOF_NOCONFIRMMKDIR 不提示是否新建目录。Const FOF_NOCONFIRMMKDIR = &H200'FOF_SILENT 不显示进度对话框Const FOF_SILENT = &H4'例子:Dim SHFileOp As SHFILEOPSTRUCT' 删除SHFileOp.wFunc = FO_DELETE SHFileOp.pFrom = "c:\config.old" + Chr(0)SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATIONCall SHFileOperation(SHFileOp)' 删除多个文件SHFileOp.wFunc = FO_DELETESHFileOp.pFrom = "c:\config.old" +Chr(0) + "c:\autoexec.old"+Chr(0)SHFileOp.fFlags = FOF_ALLOWUNDOCall SHFileOperation(SHFileOp)' 拷贝SHFileOp.wFunc = FO_COPY SHFileOp.pFrom = "c:\t"SHFileOp.pTo = "d:\"SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIRCall SHFileOperation(SHFileOp)' 移动SHFileOp.wFunc = FO_MOVE SHFileOp.pFrom = "c:\config.old" + Chr(0)SHFileOp.pTo = "d:\t"SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATIONCall SHFileOperation(SHFileOp) shell "cmd.exe /c xcopy "+chr(34)+"C:\新建文件夹 c:\aa /q /e" +chr(34) 串口发送一个特别的问题 VB如何触发网页中链接的onmousedown事件? data控件与数据库的一个问题,请指导一下 报表是否可以垂直分开? 如何在vb6中检测一个文件是否存在,请给出具体事例代码。谢谢! DataGrid的用法 菜鸟问题! VB中调用数据库模块的问题 请问VB是不是只能用access97,之后的access都不能用了吗 请教高手!不写也看看拉!谢谢! 如何将网络上的.xml文件下载到本机 如何让许多Check控件只有一个被选中就执行事件?
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用
End TypePrivate Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Const FO_COPY = &H2
'FO_DELETE 删除 pFrom 中的文件(pTo 忽略)。
Const FO_DELETE = &H3
'FO_MOVE 把 pFrom 文件移动到 pTo。
Const FO_MOVE = &H1'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Const FOF_SILENT = &H4'例子:
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:\"
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)