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

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
划时代的成果:新DNA存储技术 轻而易举装下世界 谷歌产品设计:Larry Page的魅力革命 开源移动统计工具Countly更新 支持Unity 3D DailyCost传奇设计师访谈,彰显HTML5移动应用优势 如何成为一名架构师? Apache Hadoop集群的安全性架构 Wood Camera开发者访谈:我们如何冲到榜首的 代码审查:程序员内炼之道 Twitter Q1推广告API 收入剑指10亿 Dell:在OpenStack成熟后才会推出服务 一个开源工作者对开源与赚钱的一些想法 宏碁:Windows8仍不成功 Chrome表现令人意外 雅虎发布Q4财报 净利润同比下滑8% 游戏机禁售令起风波,索尼任天堂股价大涨 国外开发者吐槽Facebook Android设计一例 Rovio转向发行业务 将发布新作Tiny Thief 上山下海 “硬汉”服务器无所不能 访金山云CTO杨刚:开源改进PK自主研发,技术驱动前行 苹果涉及色情问题,且进一步恶化 开源产品系列:面向组件的Web框架tapestry 360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 为什么Android应用开发总要比iOS晚? 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 请问如何选择录音的输入设备? 引用“&”和union有没有区别啊? 本版的“跳楼大放送,今年高程、系分模拟试题及备考指南、考前培训笔记、心得,保证通过率。 (romantic999 ) ”你们打的开吗?我打不开 哪里有 车辆管理系统 的资料 请教:(在程序中)如何判断我的系统是否安装SQL Server数据库。如果安装,如何获取SQL Server的版本信息?谢谢! 小问题 请教 将RS232输入的信息转成键盘输入??? 关于表生成文本文件遇到的事情,急 西北人在外(北京,上海,深圳,广州等)打工的兄弟们进来聊聊。 数组问题 急~!!! 某林场2004年种的香樟树比松树多2000棵,根据图的统计图,可知柑橘树种了 多少棵. 刷涂料用的滚筒刷子有哪几种类型? 其实在我们的生活中,有着许许多多的爱.同学之间的爱,老师之间的爱,朋友之间的爱...其中,最伟大的就是母爱了,请问母爱都体现在什么地方了?《妈妈,谢谢你》这骗作文怎么写才能得做高分(5 一棵树各年的成长情况用什么统计图是什么统计图 刷涂料用的滚筒刷子有哪几种类型? 什么事情最能体现母爱 下面是林场育苗基地树苗情况统计图.⑴柳树有2500棵,这些树苗的总数是多少棵?杨树占33% 柳树占25% 松树占15% 柏树占10% 槐树占17%⑵松树和柏树分别有多少棵?⑶杨树比槐树多百分之几? 求作文:国庆见闻,不少于500字,求大家了啊啊啊啊啊啊啊啊啊啊,我现在初一,求大家了啊啊啊啊啊啊啊啊 关于母爱的事件 发现的作文怎么写最好是去乡村的发现 求有关于《我的初一生活》的作文,最好是自己写的 初一五十词短文 谁有 急求 啊啊啊啊啊啊啊 打一份书稿,甲单独要12小时完工.乙单独要20小时完工.现在甲乙合作用了17小时,中途甲休息了2小时.乙休息了几小时? 一个80人的旅游团去保定白洋淀游玩,请你设计一个租船方案.租船标准:8人快艇 240元4人渔船 100元30人观赏船 450元 黑金鱼开过滤泵肚子上会有气泡 金鱼是新买的 水是没困过的自来水 怎么破? 手被水或高温的东西烫到怎么办?我好不小心~老是被水烫到!什么办法才能有效而快速退热呢? 甲乙两人同时从AB两地相向而行,在离A地300米处第一次相遇,相遇后,两人继续走,走到对方的出发点后立即返回,离B地500米处,两人再次相遇,问第三次相遇离A地多远?(上面写不下了,写在下面.) 过滤泵内置的还是外置的好?为什么? 宇宙飞船中如何加热水和食物请具体给出物理原理,这个问题好象跟对流有关的! 辩论赛四辩总结陈词,规划未来更重要. 一条红领巾的底长是100厘米,高是33厘米,做400条红领巾需要红布多少平方米? 今年7月我即将去某外企报到,但是六级成绩单找不到了,不知道这对我的入职报到有没有影响?若是去补办个成绩证明也要等到十月份以后才能拿到了. 沉默非金辩论赛的总结词怎么说啊?我是四辩,近期需要啊! 安全帽标R代表什么? 现有甲、乙两家瓷器店,茶杯每只价格5元现有甲、乙两家瓷器店,茶壶杯每只价格5元,茶壶每只价格20元,已知甲店制定的优惠方案是买一只茶壶送一只茶杯,乙店按总价的92%付款,校办公室需购茶 小学老师培养应侧重与全科化还是专业化 辩论赛 四辩小结 急求 明天就要比赛了啊T我们是正方,说的是专业化,急求高手指点一二啊.不知道该怎么写四辩的小结啊,还有,我们是正方 如果有很 求伴你成长六年级下第九课假如给我三天光明的全部答案,急!明天要交滴!速度啊大神们!求! 现有甲、乙两家商店出售茶瓶和茶杯,茶瓶每只价格为20元,茶杯每只5元,已知甲店制定的优惠方法是买一只茶瓶送一只茶杯,乙店按总价的92%付款,某单位办公室需购茶瓶4只,茶杯若干只(不少于 【我的初一生活】作文怎么写.买噶,我要自己写早就写完了,关键是不会写 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁?解方程题解方程 第十届新概念作文大赛 初赛入围名单 什么时候公布?怎么查询? 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音具有_________的功能? 让什么让什么作对偶句 例如:让理想与风筝齐飞,让希望与春天同在! 现有甲、乙两家商店出售茶壶和茶杯,茶壶每只价格为20元,茶杯每只5元.已知甲店制定的优惠方法是买一只茶壶送一只茶杯;乙店按总价的92%付款.某单位办公室需购茶壶4只,茶杯x只(不少 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能_________? 如何放飞风筝 第十二届新概念作文大赛初赛入围名单怎么还不出来?今天都已经1月2号了而且萌芽的的官网,怎么成了萌芽读者圈,哪位亲能通知我在名单出来的时候. 人民公园100人以上的团体门票是按原价的五五折优惠的.五年级160人去公园游玩,买门票一共花去528元.每张门票多少元 最能体现出母爱的一件事今天11点前要答案!不需要给我作文 爸爸比我大28岁,四年后爸爸的年龄是我的3倍,今年我和爸爸分别是多少岁 人民公园的杜鹃花盆数是长春公园的4倍,如果从人民公园搬出188盆杜鹃花放入长春公园则人民公园的杜鹃花盆就比长春公园少25盆,两个公园原来各有杜鹃花多少盆. 位趁东风放纸鸢的上句 强强8岁时他父亲32岁,当父亲的年龄是强强的2倍时,父亲多少岁?本人文科毕业,实在不知道怎样给出一个三年纪孩子能看懂的答案, proteus 原理图绘制问什么它自己会关掉 几句话的字谜是什么 y=根号下sinx-cosx的值域 proteus中蓝色小三角形是什么,在哪找? noip2011普及组复赛浙江所有人的成绩 甲,乙两人分别从A,B两地同时出发相向而行,经过5小时相遇,相遇后两人都以原来的速度继续前进,又经过3小时到达B地,这时乙距离A地还有160千米,求A,B两地的距离.不允许用二元一次,要用一元一 盘点2009作文(班级)编一个故事(真实) noip2011普及组复赛成绩什么时候出啊 强强两岁时,他父亲32岁.强强的年龄是父亲年龄的五分之三哪年去世,父亲活了多少年 盘点2009国家大事 这方面的高中作文要800字左右,围绕国家大事的 紧急!NOIP2011普及组复赛,复测如果原来错的批下来还是错的,今年是国家同批,去年和前年我参加的是省里批的,如果错的还是错了要扣10%的分数.今年扣不扣?不懂的别来说. “读者统计表”表示管理员的劳动强度,而“读书效果统计表”表示管理员的( 2009中国大事件盘点(可用于作文材料)答的好的后加分 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁? 跪求辩论赛 知识和经验哪个更重要? 我是4辩手 我们是反方 经验比知识重要,谢谢辩论高手了 过年想自己用滚筒把家里粉刷一下,用的油漆还是涂料,········希望可以详细一点,我一点也不懂. 有关母爱的事件 要真实的! 美国联邦储备委员会宣布维持现有宽松货中国在联合国大会全票连任联合国经社理俄罗斯百年兵工厂爆炸致两人死亡中组部发布新规:党政干部企业兼职不得联合国人口基金会2013报告:面对青德媒称北京上海等城市被美列入监听 韩莫言出任网络文学大学名誉校长 曾决心北京最牛违建拆除停近1月 同楼居民纷李某某再换律师二审推迟 新律师称重新中国全票连任联合国经社理事会成员德国法兰克福股市DAX指数30日下跌伦敦股市股指30日上涨突尼斯旅游城市发生自杀式爆炸袭击电视购物广告不允许\"叫卖式\"宣传中国成功连任联合国经社理事会成员法国巴黎CAC40股指下跌成品油调价窗口今日开启 机构预测每升国内成品油价今迎调价窗口 “两连跌”美国私营部门新增就业岗位创6个月新低陕西“房姐”案今日二审宣判 一审未提李某某强奸案二审延期 张起淮承认担任华南局地遭受洪涝灾害 2人溺水身亡4呼图壁镇红袖标义务巡逻队高温下为居民玛纳斯县持续高温催生“清凉消费”吉木萨尔县六月六千佛洞庙会精彩纷呈四川惊现“公母山”奇观 山形酷似男女已故围棋大师吴清源入选日本围棋殿堂小岗村村民代表赴八宝山悼念(图)两女子驾奔驰逆行遭罚 恼羞成怒推倒交赵蕊蕊晒与木村纱织合影 感慨岁月是把华南局地遭受洪涝灾害 2人溺水身亡4远销南美:中国90B式122毫米火箭厦门公交场站火灾现场:公车被烧毁仅剩韩媒:朝鲜建67米高发射台 或10月金秀贤妹妹进军演艺圈 长相清秀可人(赴日本冲绳中国游客激增 中文翻译导游澳门疑似也出现注胶虾 专家称长食或致江西萍乡警方回应“邹勇是否已死”:你民调显示六成日本民众认为日本可能会卷日媒:只有6%的日本人有机会直接了解纽约地铁性犯罪激增 警方派便衣女警“日本作家称安倍强行通过安保法或源于恐
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘