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

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
PC衰落 Intel转投Google挖掘移动市场潜力 移动周报:500元体感、精确到0.01毫米的Leap Motion TUP第29期:王淮、龚世海谈如何打造优秀的技术团队 一网打尽13款开源Java大数据工具,从理论到实践的剖析 从用户体验的善与恶说起,做用户爱“玩”的教育应用 三大主流开源硬件对比:Arduino vs BeagleBone vs Raspberry Pi “BlackBerry 10移动应用开发大赛”应用推荐 Java程序优化的一些最佳实践 Heka:Go编写,来自Mozilla,高效、灵活的插件式数据挖掘工具 Anchora鲁为民:PaaS是我的兴趣 次世代IDE Light Table 0.4发布 带来众多更新和改进 别再设计易碎的Web API! LinkedIn:55人支持2700位员工,2亿用户的大数据分析 Brian Krzanich是谁?这位新CEO预示英特尔未来怎样? HTML5开发者心声:浏览器兼容性成最大问题 传微软6月下旬将发布第二代Surface 7到9英寸全有 Turbulenz:HTML5 2D和3D游戏引擎开源 携程开放平台总经理夏天:内容+高转化率成就开发者 直接拿来用!最火的Android开源项目(一) Qunar 谌振宇:旅游行业的移动化如何布局? 大数据分析“铁三角”: Teradata数据仓库、Teradata Aster与Hadoop Teradata专业服务:打造行业企业的“数据科学家” Xamarin Evolve 2013:竭尽全力让C#服务iOS与Android 史上最全!57个Web框架4轮横向对比 回顾银行数据的可用性和一致性历史 Qubole:托管在AWS平台上的Hive服务 自由操作系统 Debian 正式发布7.0版本 4月份浏览器份额:IE 8仍居第一,IE 10翻番 亚马逊正式在华推Android应用商店 收入3:7分账 不要男孩,只允许女生参加的四所编程学校 下一波App机会在哪里? 斑竹9我! 求教高手!!!TEXTBOX与DATAGRID的问题 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 怎样将http下做好的网站,全盘转为https的.我准备买密匙的.想先测试一下. 如果判断当前时间是在某一时间段内? TX DATA SOURCES 數據源問題? 数据得导入和导出 给个好办法 反驳!“一位女生对男生追心仪女孩的建议”zz 请高手指点出我的小程序错误,谢谢! 菜鸟问题,这个combobox为什么不响应onchange事件?高手看看啊 高分求助 (100分) :求学生的平均分,并且排序输出成绩册!!!! 急!请问如何使用java语言获取mysql数据库的相关信息 编译4次便能成功! 下载UNIX 散分! 用一支蜡烛作太阳,用一只小地球仪从西向东绕蜡烛运转,请填出相应的节气.1 ( ) 2 ( ) 3 ( ) 4 ( ) 考西语三级翻译证书需要具备什么水平 拜托看下几道不明白的化学题就告诉我吧我先感谢各位了9g 在物理模型中玻璃是不是光滑面是不是就没有摩擦力 也就没有μ 这图的等效电路图怎么画? 补充词语:晶()明撤? 玻璃很光滑,为什么玻璃上不能滑冰? 这个图的等效电路图要怎么画 我主要想知道画等效电路图的方法 地球的地心引力存在与金星吗? 玻璃泡碰到容器的底和容器壁,玻璃泡为什么会损坏?拜托各位大神初二物理题 这个电路等效图怎么画?说明为什么. 铅锑合金的性能? 我的一个插座,一个三孔的,一个二孔的,二孔的有电,三孔的无电,不知为什么? 电机相与相之间的阻值不一样是不是证明电机已经烧了?万用表测量是65,65,25 梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )、梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )A.奴隶主阶级 B.氏族贵族 C.雅典公民 D.雅典外邦人为何不是A? 请各位考过西班牙语DELE的前辈指点一下,我这个测试结果是不是要报考B2级呢? 更换烟灰缸时是将烟灰缸口对口还是底对口 英语翻译要求:按词(或词组)翻译词义,并说明该词(或词组)在短语中的词性和语法成分. 山寨行为是什么具体点的答案,. 断路器CM1L-225/4300 VDFB1-63/2P-C63 VDFB2LE/32/1P+N/C16 以及其下的In Id Td的各种字母含义解释其他常用住宅断路器的解释也需要 设计新手 求助几道不明白的化学题说出来吧,感谢各位9c VF里的标定符号怎么规定,是拼音是输符号,还是英文时输符号?还有什么时候要空格? 西班牙语DELE B1水平,求初级翻译兼职工作,有介绍的翻译公司吗? 大家告诉我下几道不明白的化学题说出来吧,感谢各位6c “广播室”用英文怎么说? 地心引力的反作用力是什么?还是没有发现? 谢谢你们了2H 401 室的英文怎么说.如题. PPARα的靶标基因是什么 在括号里填上表示看的词语,什么什么远房什么什么星空?什么什么节目什么什么一眼 铜离子与明矾(硫酸铝钾)溶液的反应?将含有铜离子的蓝色透明溶液滴入透明的明矾(硫酸铝钾)溶液中,产生蓝色沉淀和无色透明的液体.请问这是什么反应?方程式怎么写? 求大神解答PPAR-r +/-这个是什么意思啊,是不是这个基因缺失?这文章里有PPAR-r +/-和PPAR-r +/+两种. 我作业有一题不懂,就是用“眼”组词,眼什么什么,如:有眼无珠、近在眼前. 为什么分子、原子化学性质不同如题 电解液是什么 硫和氧气发生反应生成 什么是山寨行为?解释下含义,还有就是表现 蒸馏水擦脸对皮肤有好处吗? 氧气和硫反应生成一种___的____体. 家庭电路怎样连接在火线,零线中?我听别人说是左零右火,有人说是左火右零,到底怎样连啊?小灯泡,2孔插座,3孔插座怎样连接在火线,零线上. 蒸馏水喷脸上有什么做用 与氧反应生成硫的物质 东方Project有多少人比藤原妹红强 请问导电泡棉的性能优点有哪些? 直流24V转5V,用LM109,怎么样?有谁用过? 我是高二的学生 我们再说的电容器与电源连接时 U不变;电容器与电源断开 Q不变.这是不是在电容稳定后才成 9.用标记有15^N的一条双链DNA分子,在标记有14^N的培养液中进行两次复制,其后代的DNA分子单链中,含14^N和15^N的比值为?A1:1 B2:1 C3:1 D4:1 美国为什么不准巴勒斯坦建国 问几个常识问题,知道不知道的都看下 用转化的策略解决问题求阴影部分面积 美国为什么要阻止巴勒斯坦入联? 我要问百度知道知道不知道知道就知道不知道就不知道不要知道说不知道不知道说知道到头来知道变成不知道不道还是不知道天知道地知道百度知道知道若要问我知道不知道知道不知道也不 某收音机可变电容器的电容量为C1时无线电波波长是入1,当为C2时,对应的波长为入2,若把电容器调为C1+C2,则能收到电磁波的波长为?我知道正确答案咋写,我只是想问为啥不能这样写:入1/入2=T1/T 若一个中学生的质量为40千克,求它的体积? 山寨的意思想要知道山寨的正确定义,不知道现在词典中有没有正规解释? “转化”是解决数学问题的一种策略,先将下图中阴影部分进行转化,再算出它的面积.(四个圆的半径都是0.) 氧与硫反应生成带有什么的气体 哪里的导电泡棉最好啊? 用转化的解决问题的策略求阴影部分的面积 拜托看下几道不明白的化学题在线等了,感谢各位4c 以色列释放第二批巴勒斯坦囚犯陕西副县长被指公费出国游 纪委调查至澳使馆为美国搜集亚太情报\"诈弹\"威胁长沙机场疑犯被抓 频美使馆疑用这个“白盒”监听军事专家:极易致误判误撞和擦枪走火冷战游戏 蓦然重现空气污染致癌 波兰向碳排放开刀斯诺登谋得俄网站工作禁化武组织:叙利亚已按规定销毁化学武美国辱华电视主持人称不会辞职 未答应“免费”医疗让俄罗斯进退两难 仅约3上海自贸区改革红利初显 打造宽进严管报告称撒哈拉以南地区明年经济增速将达学者解析温家宝首次出书谈教育:出身教山东菏泽回应城建局集体打牌:6名员工内蒙古调查乌兰察布新豪楼:立即停止办新一批法规今起实施 手机预装软件应报俄媒体称斯诺登将供职于俄知名网站新消法规定:消费遇商家侮辱搜身可索赔律师称斯诺登将从11月起在俄大型网站建议你一定保存下,千百万人都在寻找这50,000渣打银行「360°全面享【思想云·观点】柴静:我为什么不想再2015年6月央行降息 你的房贷月供【思想云·世相】今天,我们这座城市的成功,要“借力”,不要“尽力”【思想云·人物】习大大的习太太呼和浩特公积金新政 最高可贷80万熬夜后吃这些,抹去所有身体毒素!时尚教父Tony教你如何成为男装周最【思想云·热点】2014忽悠过你的2SpaceX火箭爆炸原因查明:火箭过男女养生有别 男靠吃女靠睡!诺基亚安卓手机:富士康代工 中国首发2015年记住这7点建议,保你一年不富士康造、首发中国,诺基亚首款安卓机我是一个很有原则的人。工商总局拟出台网络促销规定:不得采用什么样的女生值得被拥有?睡前玩手机伤害大,教你这七招在日本不知道这些手势,会引起误会哦
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘