说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何使用文件复制对话框?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使用文件复制对话框?

Visual Basic 提供了过时的FileCopy语句.问题是使用该函数时并不显示文件复制对话框,也就是说,当拷贝一个大文件时,用户看不到Windows的标准文件复制对话框,无法从进度条上判断当前复制的进度.那么,如何做到这一点呢?请看下面:

Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_COPY = &H2
Public Const FOF_ALLOWUNDO = &H40

Public Sub ShellCopyFile(Source As String, Dest As String)
Dim result As Long
Dim fileop As SHFILEOPSTRUCT
With fileop
.hwnd = 0
.wFunc = FO_COPY
'The files to copy separated by Nulls and terminated by 2 nulls
.pFrom = Source & vbNullChar & vbNullChar
'or to copy all files use this line
'.pFrom = "C:\*.*" & vbNullChar & vbNullChar
'The directory or filename(s) to copy into terminated in 2 nulls
.pTo = Dest & vbNullChar & vbNullChar
.fFlags = FOF_ALLOWUNDO
End With
result = SHFileOperation(fileop)
If result <> 0 Then 'Operation failed
'Msgbox the error that occurred in the API.
MsgBox Err.LastDllError, vbCritical Or vbOKOnly
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox "Operation Failed", vbCritical Or vbOKOnly
End If
End If
End Sub

只需调用ShellCopyFile FileA, FileACopy
Google发布新版AdMob 将在更多市场推出 触控ARM“结连理”,Cocos2d-x性能提速70% Per Brashers:智能、能耗、安全将是未来数据中心发展的关键! 梁博:OpenStack已在IaaS层面扮演重要角色 云计算三大主流阵营的竞争与合作 如何使用15美元每月的机器实现百万文档检索 外媒路透社:小米本周四发布首款平板电脑,八九不离十 移动支付帝国战:谷歌、苹果、Facebook、亚马逊孰胜孰负? 十大响应式Web设计框架 Giraph助力Facebook打造亿万用户间关系链 跪求出名:让应用在App Store中出人头地的12种方式 束文辉:Intel如何玩转OpenStack Facebook社交业务进军中国内地,困难重重 《近匠》透镜:代码级定位,让App性能监控更从容! 联想移动与云新战略 重点深耕企业移动方案 美国高通公司在深圳召开参考设计及无线创新峰会 提供“一站式”整合服务 友盟正式推出消息推送平台 iOS 8新功能再曝光:或推出分屏多任务功能 Framer:开源原型设计工具,巨头们的心头好 亚特兰大峰会精彩看点:软件吞噬世界,OpenStack是变革核心 数据中心基础设施是大数据战略成败的关键 实时大数据分析:网络分析的一种新方法 最新消息:iPhone 6将采用更大、更清晰的1704x960分辨率屏幕 吴毅挺:OpenStack是开源IaaS平台大势所趋的集大成者 做好扁平化设计-交互篇 狙击Google Glass?三星将推基于Tizen系统的Gear Glass GamePlay:跨平台开源3D游戏引擎,黑莓的努力你不懂 “少即是多” 高通QRD大会精华汇总 天云盾:构筑在云端的Web安全防护 解析大数据时代的数据库集群技术 莫里航海图,最早的大数据实践 DLL窗体关闭问题 setfont设置Dialog字体无效,搞不明白,大侠指点 为什么我的Web应用程序项目启动不了,总是出现错误!!! 100分求教jtable问题??? 菜鸟送分问题,请哪位大侠讲讲Inte1.ResponseCode和Inte1.ResponseInfo 声音变了!怎么办啊??? 100分 请问怎么做“索引”? make求救 用ant编译pet store 时,出现问题,提示信息见内文?请帮忙。。。高分酬谢。 三个三角了 开心ing 散分 tmd,上了vsnet2003贼船了。原来vc6的都不好用了 找在linux下免费gui?? 打开窗口获取原窗口信息的问题 Cbuilder安装问题,急! HelloWorld大全[接龙] 我要写一个程序在前台不需要运行后台运行可以:就像平时邮件服务品一样在前台不需要运行,而后台是提供服务的,要怎样来实现 临时表问题 多媒体教学系统开发 jbuilder中关于类的import问题? 有关远程控制的,例如抓屏,限制功能键,限制alt+f4,等等,请去http://hedaofeng.jahee.com 如何取得IE地址栏的输入信息? 急求一段ASP与SQLserver2000处理代码! 怎么创建win32 static library并输出函数?谢谢 !!!!求排列组合的简洁算法(80分) 我要对Spreadsheet的数据进行排序,用javascript怎么写 WIN32异常求救????!!!!!! 一个有深度的问题(对信号量操作不熟者请勿进) 知道为什么会出现iocopyout_chksum吗? 谁能给我《中文ACCESS开发指导手册》?? 从网上下的读不了 请问一个小问题 关于用Preferences存取注册表的问题 参数类型的问题 谁知道用什麽软件可以播放扩展名为1MP3的文件?(100分) 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! main()函数里的两个参数argc、argv是什么意思?请赐教! 用HTTP上传文件,那位做过实际的应用的,帮忙... 大家上微软新闻组吧,感觉比这里快。 用jfreechart画出的图形,里边的汉字不太清楚,有没有解决的办法,要是图形小一点,模糊不清,难看死了,请问有没有解决办法?? 在vc.net中为什么新建的一个dialog,上面有双重的图象啊? asp&oracle问题 .net2003中vb升级向导有没有接口可以被其他程序调用? 以二进制方式打开文件,用ftell计算文件大小,为什么有时对有时不对? CHtmlEditView中如何实现表格的单元格大小调整? 城市夜归人 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! 如何在一个网页中使用多种样式表显示多种效果? 直接用http调用代理怎么进行权限设置 CHtmlEditView中如何实现表格的单元格大小调整? 各位老大。。。如何用asp加密解密中文字符串,小生有礼了! 这段程序怎么不能运行?thinking in java 我的应用程序启动连接数据库时自动拨号,怎么去掉?? ideology 可数吗 如何解决埃及阿斯旺水坝带来的生态环境问题 请问:mind和ideology ; present和guilt的区别是什么?mind,ideologypresent,guilt 是present和gift.thought就是想法的意思啊,mind怎么又是"想法"啊? 爱 给了希望一片天 用英语说? 老师娓娓动听地讲故事为什么是对的?而老师讲的故事娓娓动听是错的 老师在台上认真地讲着,我们在下面娓娓动听的听着.(娓娓动听应该为什么?) it's quite a new one/it's a quite new one 哪一个?我原来觉得 quite a few才把quite放a前面的。 The news is not new at all.It is ( ).有三个答案,选哪个啊 A.no B.quite old C.enough old hope 做任务 zuo renwu ,you mu you 代罪羔羊怎么样 南京一书店办裸体阅读图片展 称为提高南京一小学实行弹性放学制 允许学生延锯腿农民阻拦记者调查农村医保:不要管顾客超市停车场追尾 超市被判承担15快递员拒绝先验货后签收 买家扬言放狗金华女子偷肉被发现 脱光衣裤跳池塘劫匪一脚踩在温州姑娘脸上 逼其说出银前同事冒充海关中层干部承诺拍卖会搞定韩国称金正恩频繁观看气垫船登陆演习 朝将召开2万军官大会 韩称朝能未经中中国铺开周边外交新棋局 “问题”国家有力促进我市民营经济大繁荣大发展上半年全市民生保障支出273.7亿元大威又如何 一样打倒只剩最后15天 南光厂模拟搬迁进入最推土机倒车碾死女童 官方说这是意外曾轶可小说处女作 “萝莉大叔恋”惊呆4人有罪辩护 仍有1人否认指控京东“金秋风暴”强力来袭五大专场“有诗人梁平当选市作协主席帮人修车不留名 的哥笑称“小事一桩”月饼节大揭秘:中国月饼王PK赛 八大反派大少逆天霉神九阳归一狗剩子奇遇记我的二零一一钢甲猎人仙途缈缈禁忌召唤师文化女人蜘蛛阿青步步杀神香炉山旅游松峰山旅游葛洲坝旅游乌石塘旅游南沙旅游宝塔山旅游枣园旅游杨家岭旅游油麻地旅游荃湾旅游兰桂坊旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘