VB复制文件夹的方法(非FSO)
来源:互联网 发布:格式工厂 mac破解版 编辑:程序博客网 时间:2024/05/29 15:11
http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
不用FSO的复制文件夹得方法?
用API函数 SHFileOperation
以下是使用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 Type
Private 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)
或者
shell "cmd.exe /c xcopy "+chr(34)+"C:/新建文件夹 c:/aa /q /e" +chr(34)
- VB复制文件夹的方法(非FSO)
- fso实现文件夹内容的复制
- VB中FSO的调用方法
- fso实现整个文件夹内容的复制到另一个文件夹中
- 递归的方法复制文件夹
- C#复制文件夹,删除文件夹的方法
- C#复制文件夹,删除文件夹的方法
- VB中利用FSO在Windows下建立多级文件夹
- 认识 VB 的文件系统对象 FSO
- 认识VB的文件系统对象FSO
- 认识 VB 的文件系统对象 FSO
- VB操作文件夹的几个方法
- 使用FSO修改文件夹的名称
- 打开FSO组件的方法。
- JSP复制整个文件夹的方法
- 利用递归的方法复制文件夹
- pb删除非空文件夹的方法
- 黑马程序员 复制文件夹及文件夹内文件的方法
- CppUnit 安装和使用
- 我看不懂
- xml 数据类型列的索引
- 为什么写博
- 我被XML“转义"折腾了一番
- VB复制文件夹的方法(非FSO)
- comparing strings in PHP with the == operator
- VC6.0 debug和release的区别及如何设置
- 一个直观但难的问题
- 关于键保留表(key-preserved table)
- The Django Book中文翻译版【第二版】
- VC6.0配置DirectShow开发环境
- 终于完成我的小程序了,感言一下
- 探寻 ibatis 1.3 批处理