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

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
打造完美用户体验:“天翼平台开放日”沙龙纪实 我的编程认知:多思考、多编码、多测试 聚焦应用开发 2014年微信开发者大会即将召开 继续补Bug,jQuery Mobile发布1.4.3版本 手游SDK服务商棱镜公司获A轮投资 东方弘道领投 广而告之:Databricks终止Shark项目,转至Spark SQL DeNA China副总裁黄雪斌:IP战国时代的生存法则 巴别时代首席执行官赵暕:从页游到手游的完美转身 Oracle借助RESTFUL API扩展移动端版图 优秀求职者应主动问的5个问题 高德LBS智能硬件编程马拉松:硬件复兴,等你挑战! 首届bong线上黑客马拉松:运动数据分析应用bong+获大奖 英特尔推出基于WebRTC的协同通讯方案 凸显本土创新“软”实力 一周消息树:不同设备不同界面的Windows 9正在逼近! 乐卓网络CEO李澄澄:移动游戏IP是把双刃剑 高性能动画!HTML5 Canvas JavaScript框架KineticJS Swift最酷炫的七大功能 微信开发者大会讲师介绍:柳峰与你一起玩转公众平台应用开发 TIOBE 2014年7月编程语言排行榜:仅发布1月,Swift进Top 20! 艾格拉斯CEO王双义:手游自研引擎的荣耀之路 以招行为例,深圳云软黄榕振谈微信公众帐号企业应用高级开发 来自前苹果高管Heidi Roizen的经验之谈 【短讯】Dropbox、微软OneDrive打不开,国内用户该如何应对? 5分钟弄懂Docker! RakNet:被OculusVR收购的跨平台游戏网络引擎 Qualcomm业务拓展副总裁沈劲:智能终端的延伸 苹果发布Xcode 6 Beta 3,Swift迎来重大更新! Linkedln技术高管Jay Kreps:Lambda架构剖析 《近匠》极光推送:聚焦巨头无法快速转身的领域 Babylon.js:拥有微软背景的开源3D游戏引擎 EMC 2014存储布局及十大新技术要点 怎样在数据库连接关闭后读出数据? 你知道扩展名为img是什么文件吗? 请问如何在Delphi中实现 AutoComplete(自动完成) 的功能?急!急!急! 请教一下在MDI的程序中pmyView->GetParent()->GetParent()->..... 都得到了什么?? 好奇怪的初始化问题。 一个RANDOMACCESSFILE的问题 急急急!!!VB中如何 实现多行删除表中数据???? 有关注册表的问题 ASP中用ADO连接SQL Server2000的连接字符串怎么写? 在画布上怎么实现滚动条 急~~~如何从文件中取值赋给动态数组?~~~~在线等待 到哪里能够下载 BCB6 Update 请问关于REDHAT下关于安装MYSQL 的问题 请问关于REDHAT下关于安装MYSQL 的问题 CreateFolder("name") 问题 name是变量怎么办???? 急!!! 如何做像 http://www.my0807.com/1.gif 的文字。。 请教真正的高手。 如何用TURBOC 2.0编程检测WINDOWS是否已在运行中? VS.NET能专Windows98中安装吗? 如何创建一个imagelist,用CImageList,可以记录24位色的位图 这个关于树的问题我越想越想不通,请手指点指点:) 用winsock控件设置client/server程序时,server端应怎样设置,请各位大虾帮帮小弟!!谢了! 从MIDI文件转换成简谱的问题? 请问谁有高招??????? SOS ,谁能帮帮我? 如何在一个程序中得知另一个指定的程序是否运行? 很急!!请教高手,这样的思路是否正确?(数据库方面)内有非常详细的说明,谢谢!! 我是处学者 这个关于树的问题我越想越想不通,请手指点指点:) 50小分征集C++的类和VBS的类的区别? hg0001(CoolFish) ,分已给!请发给我! 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如何使用 WRITEFILE 函数将二进制数据写入文件? 我装的是XP,JDK1.3,无法编译程序 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如下的演示光盘要实现的功能用什么软件开发比较好一个新手完成要多长时间? windows如何实现禁用状态文字? 输入不回显 你没有权限删除贴子!!!奇怪 Tc 那为用的是win XP,请进! 我输入的PYTHON怎么编译不出来? 问一个很弱的问题 为什么我的工具栏成了这个样子 哪里有讲MFC的书,Linux下GCC的书? 到底是什么问题啊?昏~~~(一定给分) 若干问题,请解惑。。。。。。 我这里的局域网是用win2000+sygate共享上网的,如何设置才能禁止局域网中其他计算机上OICQ或聊天室之类的网站? 如何遍历select下拉菜单中的内容,并显示在另一个select菜单中? 如何编写文档? 同样的程序连接SQLServer为什么比Access慢了几十倍 饮用水是否合乎标准,通常测定水中细菌总数和大肠杆菌菌群数?为什么……?大肠杆菌不也是好的嘛. 已知二次函数y=ax2+bx+c,当x=2时,有最大值2 ,其图像在x轴截得的线段长为2, 47.61.75除以同一个数,结果都余5 这个数是( )或( ) quan,xuan,juan,那么他们的U念“乌”还是念“淤”,宁夏人和山东人说念“乌”,请专家赐教一下.“泉”的拼音念“quan”,“旋”的念“xuan”,“卷”的念“juan”,那么他们的U念“乌”还是念“淤 棉的拼音an读什么音 用某数去除47、61、75结果都余5,这数是几?(提示:有两个答案) 卷的拼音 juan 那个是 ū ,还是 ǖ juan = j u an,J后边是乌?还是雨? 卷的拼音juan,ü和an是连读yuan的音还是应该分开读j-ü-an的音 用一个数去除47.61.75 其余数都是5 这个数是多少 拼音中xuan中的u,其本质上是“于”还是“无”? 已知二次函数y=ax²;+bx+c,当x=3时,函数取得最大值10,且它的图像在x轴上截得的线段长为4,求二次函数的解析式只说一下思路就可以了,数可以不用算! What will the weather - like tomorrowA be B being C is Dwill be应选哪一个 拼音(quan juan)的中文是什么? 在一个字母的右上角和右下角打出字母或数字也许你会说Ctrl+Shift+"+"和Ctrl+"+"但是这样的话打出来的是一个上和一个下分在两个间隔中而不是同一天竖直线上,如何把n右边的两个字母都打出来 在化学反应a+b=c+d中,若5克a和5克b恰好完全反应,生成8克c,则2.5克a完全反应,生成d的质量为 要详细点的步骤 千山鸟飞绝(今天) 万径人踪灭(明天)什么意思? 英文字母右上角的撇怎么打出来. 四年级作文想象的桥 你一出门,千山鸟飞绝,万径人宗灭什么意思 怎么把英文字母右上角加上数字5² 这种,我试过他们说的上标,但是虽然上了 可是复制到 网页上 QQ上的时候有变成普通的52 5²这种不一样 复制也不会变成52 还是保持原样 小学四年级写(桥)的作文 千山鸟飞绝,万径人中灭.描写的是什么季节 在AB+CD—AD+BC化学反应中,10gAB与6gCD恰好完全反应,其中生成2gAD,若要制取7gBC,则各需AB和CD各为 二次函数,x=1/2时得最大值25,f(x)=0时两根立方和等于19.求解析式 千山鸟飞绝,万尽人踪灭.是谁写的 请问下谁知道衣服38号欧洲码是s还是m还是别的什么号码啊? 四年级桥的作文怎么写? 我来自浙江湖州用英语怎么说? ‘‘千山鸟飞绝,万经人踪灭.’’是写那个季节的? 160/85是衣服尺码中的S还是M码? 翻译属于杂多糖的肽聚糖是细菌细胞壁的结构多糖 余式定理何处有? 师徒两人一共生产360个零件,师傅生产的零件比徒弟多2倍,师徒二人各生产了多少个零件? 肽聚糖 植物细胞壁成分为纤维素和果胶为全透膜,肽聚糖所构成的细菌细胞壁的透过性如何?全透或半透? 设二次函数y=ax^2+bx+c,当x=4时取得最大值16,且它的图像在X轴上截得的线段长4,求其解析式且它的图像在X轴上截得的线段长4 .这里我看不懂 word 字母正上面加数字怎么弄 如图所示 跪求 急. 用一个数分别除以31,61,76所的的商都余一,求这个数最大是? 设二次函数y=ax^2+bx+c,当x=4时取得最大值16,且它的图像在x轴上截得的线段长为4,求其解析式 word中如何在字母右下角插入数字 余式定理...设f(x)以x-1除之,余式为8,以x的平方+x+1除之的余式为7x+16,求x的三次方-1除之的余式为多少? 设y=ax*2+bx+c在x=1是取得最大值为3,它的图像在x轴上截得的线段长为4,求二次函数中的a,b,c的值? Word 文档中如何在文字的右上角加小的数字角标,急 余式定理一道题用(x+2)(x-1)除多项式p(x)=x^6+x^5+2x^3-x^2+3,所得余式为?为什么没人会啊啊 已知二次函数y=ax²+bx+c为x=2时有最大值2,其图像在x轴上截得的线段长2, 细菌的芽孢是____A休眠体 B营养繁殖体 C孢子 D营养体请问选什么?能简要地介绍一下以上4个概念吗? 荧光蛋白石蜡切片后还有荧光吗?植物组织做了石蜡切片以后,GFP蛋白还会发荧光吗?有没有确定一点的大侠? xuan,这个拼音的“u ”应该念“迂”还是“屋”?是 西屋安 还是 洗浴安 怎样在数字的右上角加一加号 电视机的屏幕上出现红色字母“FACTORY”该怎样清除? 同底同高的平行四边形面积相等,周长也相等不对那为什么等底等高的三角形面积一定相等就对呢 字母右上角有加号是什么意思?比如 I+,加号在I的右上角,这里I表示一个集合 电视屏幕上有个英文字母有次看电视,不小心按了遥控板上某个键,就出现了个英文字母,几秒钟不作任何按键的话,电视左上角就出现个FAC的字母,要是你随便按个键,完了几秒钟之内就显示个FA2T 等底等高的平行四边形和长方形的面积相等,周长也相等.判断对错 如何在字母上加个加号 大肠杆菌是不是细菌 同底等高的平行四边形面积相等,周长相等不相等 R﹢是什么意思啊?(加号是在R的右上角) 将一未知细菌与大肠杆菌混合后进行革兰氏染色并用显微镜观察,结果如下,判断未知细菌是G+ 还是G- (1)视野内只有红色细菌(2)视野内有红色和紫色细菌(3)视野内只有紫色细菌 已知二次函数y=ax^2+bx+c,当x=3时,函数取得最大值10,且它的图像在x轴上截得的线段长为4,求a.b.c的值 某数去除47、61、75,结果都余5,这个数是()或().
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘