收录日期:2020/12/03 00:24:59 时间:2016/05/17 12:19:36 标签:资源
我们复制一个文件时,不是有一个可视界面吗?
他能显示你复制了多少,文件的传输速度,文件大小等。

请指教??
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
Call SHFileOperation(SHFileOp)
学习!
谢谢rainstormmaster

等我调试一下

j2me的新手来了,高手高高手请进 新年到了,我被辞退了 我的datagrid是有交替项的,#FFFFFF是常规项,#AAAAAA是交替项。 请问.Net下能用O-R映射吗?哪里有相关资料? 参加过CCNA培训的请进,有问题请教。 asp.net里怎么用com控件啊?比如mci控件这样的?有没有源代码可提供给小M学习一下?郁闷了很久了哦#_# 求助:请各位老大帮忙看看在JAVA中处理NULL的问题,不盛感激! 高手大哥帮帮我!! <<外來媳婦本地郎>>有歧視外地人的行為 老问题没解决,新问题又来了! 各位大哥,如何获取IIS服务中除了默认站点外的其他站点的绝对路径啊!!棘手-- 《C++ primer》和《Thinking in C++》哪一本更适合初学者? 询问关于一个html问题的解决最好的方法 这些字符 如 !\"\"@#$\'\",\"%^&*(\") 等等。。。写入数据库时,会出错,如何克服。把这些字符去掉就没有问题了!! 这个是如何实现的? 怎么做交互图像 如何得到网站的正确网址 开发环境询问 请问*.bin的光驱镜象用什么工具打开?? 快新年了----求助大侠们帮忙---多谢! 新年到了,我也被公司辞退了 最小化和最大化窗体切换 我有一个关于从数据库下载文件的问题,同时,过年散分,大家新年快乐 aix下的sybase数据库的问题,如何终止一个数据库操作进程,spid=77???生产环境,急! 新年到了,我也被公司辞退了 请哪位高手看看我这句触发器里的语句错在哪里,请给小弟指点迷津,谢谢 急急:求教小灵通串口开发 如何防范对服务器的DOS攻击?有什么好的防火墙可以下载使用? 建议保钓会租用小型民用潜艇秘密登钓鱼岛! 求助:JTree的右键菜单linux下就无法出现