当前位置: 网学 > 编程文档 > VB > 正文

自动出现动画、进度和确认的文件操作

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

使用以下的 API , 得到与资源管理器相同的感觉!
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:\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

自动出现动画、进度和确认的文件操作
==================================================================
使用以下的 API , 得到与资源管理器相同的感觉!
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&nb
  • 上一篇资讯: 压缩HTMl文件
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号