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

VB使用浏览器的文件复制对话框

HTML文档下载 WORD文档下载 PDF文档下载
VB使用浏览器的文件复制对话框

By John Percival

介绍

Ever wanted to use the dialog box that appears when you do file operations in Explorer? Well, it is not
that hard to work, and can be used to provide some very neat little features for your application.
One little warning before we go too much further: you can easily use this function to delete entire
directories without any confirmation; I recommend that you create some temporary directories that
you can play about with, rather than destroying any useful directories.


All the dialog boxes are based around one function, SHFileOperation. It is very easy to use, and
only has one parameter, a SHFILEOPSTRUCT user-defined type. Here are the declarations that
you will need:

Public Declare Function SHFileOperation Lib _"shell32.dll" Alias "SHFileOperationA" _(lpFileOp As Any) As LongPublic Declare Sub SHFreeNameMappings Lib _"shell32.dll" (ByVal hNameMappings As Long)Public Declare Sub CopyMemory Lib "KERNEL32" _Alias "RtlMoveMemory" (hpvDest As Any, hpvSource _As Any, ByVal cbCopy As Long)Public Type SHFILEOPSTRUCThwnd As LongwFunc As FO_FunctionspFrom As StringpTo As StringfFlags As FOF_FlagsfAnyOperationsAborted As LonghNameMappings As LonglpszProgressTitle As String 'only used if FOF_SIMPLEPROGRESSEnd TypePublic Enum FO_FunctionsFO_MOVE = &H1FO_COPY = &H2FO_DELETE = &H3FO_RENAME = &H4End EnumPublic Enum FOF_FlagsFOF_MULTIDESTFILES = &H1FOF_CONFIRMMOUSE = &H2FOF_SILENT = &H4FOF_RENAMEONCOLLISION = &H8FOF_NOCONFIRMATION = &H10FOF_WANTMAPPINGHANDLE = &H20FOF_ALLOWUNDO = &H40FOF_FILESONLY = &H80FOF_SIMPLEPROGRESS = &H100FOF_NOCONFIRMMKDIR = &H200FOF_NOERRORUI = &H400FOF_NOCOPYSECURITYATTRIBS = &H800FOF_NORECURSION = &H1000FOF_NO_CONNECTED_ELEMENTS = &H2000FOF_WANTNUKEWARNING = &H4000End EnumPublic Type SHNAMEMAPPINGpszOldPath As StringpszNewPath As StringcchOldPath As LongcchNewPath As LongEnd Type
Windows 8.1中IE 11开始支持WebGL和SPDY/3 微软Build 2013开发者大会:盘点Windows 8.1的15个重大更新 瞧!这是摩托罗拉移动新Logo,你有什么感觉? 专访UEditor创始人战毅:打造最佳的用户编辑体验 Eclipse 4.3 正式版发布 代号Kepler 为兴趣而生 七大编程挑战项目,你敢来吗? iOS 7辅助功能:左右摇头控制iOS设备 挑战传统关系型数据库:Facebook图形数据库TAO揭秘 揭秘“棱镜计划”幕后的技术 你更新了吗?Visual Studio 2013 Preview和.NET 4.5.1同时发布 你主要使用什么编程语言? 跨平台游戏开发工具App Game Kit或将新增更多强悍功能 移动应用推广的那些事儿:应用发现篇 DDoS攻击也能成为一种云计算服务 Netflix开源Hadoop集群调度工具:日处理近万作业、上千TB数据 传谷歌正开发自己的视频游戏主机和智能手表 AMD APU战略转型:全民四核,发力“云+端” 富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 移动周报:生于微信,疯狂猜图的推广经 DataTorrent 将数据分析速度从“实时”提升至“现在时” 华为FusionCube开启全球规模商用 黑暗架构:以最少时间完成系统升级并获客户认可的开发之道 Hadoop Summit 2013见闻:创业与Hadoop 2.0不可阻挡 Facebook的清洁能源改革——革命尚未成功,仍需努力 YARN或将成为Hadoop新发力点 请问谁那里有页面规范、代码规范、SQL规范?重金求购 欲寻求项目来作(报酬多少无所谓)!!! 请问各位大虾,在DELPHI中EXE文件的调用方法? 菜鸟问题:忘了如何定义几位的变量?谁能告诉我,谢谢! 如果我要在window.showModalDialog 打开的页面中返回一个值,或者在被打开的页面中改变打开打开者中的某属性该怎么做? 关于木马程序的设计! 新手的问题(关于成员函数使用的位置???) 谁知道那里有ado教程 请高手介绍点用perl操纵mysql的经验和方法,不胜感激 about BCB 的数据库开发问题 请大家详细说一下SQL Select数据源的具体使用方法,书上说的太简单了,用SQL Select数据源建立的数据窗口为什么不能进行增加、删除操作,还不让修改,愁啊! 诸位:这个显示隐藏工具栏状态栏的代码有三处错,可我不知为什么???以指出 怎么将ACCESS2000表中的内容导入到SQLSERVER数据库中 我想把LOCAL声明改为.data? 可不行,为什么? .net似乎对组件编程的支持很强?就是说,似乎省区了很多繁琐的细节? 各位有人可以告诉我怎么实现SMTP用户验证吗? 大家有用这个软件吗?有的话请写下你使用的感觉,有什么不足? CoolSoft HTML Optimizer 谁那里有页面开发规范,重金求购 帮助中HTML文件的链接问题!!! asp.net是否可以用任何一种vs.net语言? 请教---------一个函数返回指针值的问题!!!! 如何可以筛选出被修改过的数据记录。。。。。。 如何在广域网上实现SOCKET通讯,与局域网有什么不同? invocation在Java中怎么翻译啊? oracle中增量导数据的问题!! 过多的异常捕捉会影响程序性能吗? 二个form时怎样用request来收取数据? 在sybase里健好的表如何从新修改? 一个小问题,这个变量是什么类型的??? 使用通讯控件的疑惑 怎样实现在文本文件中修改某一行的其中字符串 Nokia MobileSet中如何让手机识别中文? 注册表坏了怎么办? 大哥们,能否告诉小弟,在 ms sql server2000中如何修改 sa 用户的口令 我的超星不能用了!!! 十万火急:PDF文件修改 大哥们,能否告诉小弟,在 ms sql server2000中如何修改 sa 用户的口令.. 作为初学者,每天的问题太多了?帮我看一下下面的小问题 我上午53,下午58.该不会下马吧????/我相知道什么时候才能知道是否已经Pass,什么时候下证? 有关DELPHI6中使用SKINENGINE??? C++ Builder中多国语言的问题 在哪下载到Exchange 2000 Server Resource Kit? 快捷方式损坏怎样修复? bluesky069(菜鸟一族)你帮助我把那个PBL放到蛛蛛的信箱好不好呢?让大家都可以下在的! 请问哪里有w32dsm.exe的教程??? 潘译<>印刷错误百出,令人不忍卒读... LISTBOX的问题?请高手帮忙!!高分向送! 帮我想想这个主键该怎么建SQL SERVER7 如何将控件,恢复init()到初始状态 急救:装有SCO UNIX的硬盘克隆后不能启动系统,怎么办? 如何在FTP的目录下再新建目录?我初学网络编程, 自来水为什么在停水后来水时从水龙头拧出来的水是白色的 数学题:a的平方+b的平方+c的平方+2ab+2bc+2ac小生不才,因式分解学的不好.给过程和结果,谢谢!(因式分解) 两相6千瓦的电加热蒸箱要用多粗的线? 为什么每次在停水后水管中的残水会在水龙头漏出?我家住一楼补充一点,水龙头是在关闭状态. 为什么a+b+c的平方=a^2+b^2+c^2+2ab+2ac+2bc 我买了3台电加热机,单相220的,每台是6千瓦,我应该用多大的线,是直通式的,不带启动器 已知A=a的平方-2ab+b的平方,B=a的平方+2ab+b的平方.1.求A+B 2.求1/4(B-A) 3.如果2A-3B+C=0,那么C的表达方式是什么? SO2怎样变成SO3,然后再通过催化得取H2SO4? 三相电加热50千瓦总电流是多少? H2CO3使石蕊溶液变红的化学方程试是什么? h2so4如何转化为so2 帮帮忙,解一下下面题目谢谢一个锐角的余角与补角的和小于平角 一个锐角的补角与余角的差等于直角真假命题 ?真命题的给予证明,假命题,请举反例 已知a=a的平方-2ab+b的平方,b=a的平方+2ab+b的平方.如果2a-3b+c=0,那么已知a=a的平方-2ab+b的平方,b=a的平方+2ab+b的平方.如果2a-3b+c=0,那么c的表达方法是什么? so2+ h2so4=×为什么so2+ h2so4不能反应,从氧化还原反应的转化规律判断(什么是只靠拢,不相交)? 求大侠帮我解一下下面图中第十二题,十二题的答案是多少?(主要是要解析). Na2CO3,H2CO3同时在紫色石蕊试液中,溶液显什么色知道H2CO3易分解,但总有某一时刻两者并存,那么石蕊显什么色呢(Na2CO3显碱性,H2CO3显酸性) 解释一下下面这个公式的含义(临时用电方面的)Kx 这些都表示啥 33(1分)注意:车试题上作答无效)为探究不同条件对叶片中淀粉合成的影响,将某植物在黑暗中放置一段时间,耗尽叶片中的淀粉•然后取生理状态一致的叶片,平均分成8组,实验处理如下 26-2/ 相同条件下,相同物质的量浓度的H2CO3,H2SO4,HCl,H2SO3,CH3COOH溶液以及水的导电能力由强到弱的顺序是()?H2SO4>HCl> H2SO3>CH3COOH> H2CO3>H2O这是怎样判断出来的呢?请写出详细过程及思路. 求救,谁能帮忙解释一下下面“自然差”什么意思.如有游客愿意自付费用住一单间,从而产生原来房间安排中的自然差房费怎么办?处理步骤①耐心向领队解释,说明以下情况:自然差单间的出 加热水什么最节能现在燃气太贵 什么东西最经济 家里水龙头放1小时有多少水 家里各个水龙头出水量大小不一,新装修的家,龙头也是新的,也是同一个牌子的.求正解,如何解决,不懂装懂的闪开,只能显得唔知. SO2 怎样变成H2SO4 水龙头平均一小时漏多少水? H20 HCL H2S 还原性顺序 关于EXCEL公式,=IF(A6>=1,ROUND(ABS(SUMIF($A$5:$A6,">=1",$G$5:$G6)+$L$5-SUMIF($A$5:$A6,">=1",$H$5:$H6)),2),"")麻烦大家能帮我解释一下这个公式的意思吗,比如:如果满足了,哪一段的条件,那么会如何,如果不满足那 一个损坏的水龙头1小时要滴多少毫升水?一秒中一滴 已知A=a-2ab+b,B=a+2ab+b,如果2A-3B+C=0那么C表达式是什么 从水龙头放出的水 对称吗从水龙头放出的水成一个弧型,这个弧型是一个对称图形吗?对称轴在哪? 在边长为(a+b+c)的正方形中,作图证明a2+b2+c2+2ab+2bc+2ac=(a+b+c)2在边长为(a+b+c)的正方形中,作图证明a²+b²+c²+2ab+2bc+2ac=(a+b+c)² HCl H2SO4 哪个还原性强?为什么?如上.急 看不懂这个式子在说什么, 一个水龙头1小时能放出多少立方水? 已知a=a²-2ab+b² b=a²+2ab+b² 如果2A-3B+C=0那么C的表达式是什么 解释一下下列日食术语,看不懂啊食象 (ΔT=66.2s) 北京时间 高度角 方位角 P V LC 初亏 08:22:09.0 +39.5° 087.2° 289° 12.1 食既 09:37:53.9 +56.0° 097.4° 192° 03.4 食甚 09:38:17.6 +56.0° 097.4° 019° 09.1 生光 09:38: 硫酸铜水溶液的化学式是? HCl的还原性与H2S的还原性谁强 在含硫物质1、S ,2、SO2,3、 H2S,4、 H2SO4中,硫元素的化合价由低到高的顺序是什么? 硫酸铜化学式? 氢化物的还原性比较:CH4 下列硫元素化合价最低 A.S B.SO2 C.H2SO4 D.H2S 锌和硫酸铜溶液反应化学式 停水后自来水水龙头还能放几分钟那压力是哪来的?停水后在一楼自来水水龙头还能放几分钟水 那压力是哪来的? 帮我解释一下下面两个生物体的为什么是错的谢谢了1.所有野生型大肠杆菌都有含四环素抗性基因的质粒和含卡那霉素抗性基因的质粒,但抗性不同的原因是基因进行了选择性表达2.动物激素 已知a+b=2,ab=2,求1/2a^3b+a²b²+1/2ab^3的值. 为什么停水后来的水是脏水每次停水了以后再来的水都是脏的,要放很久!而且是家里的每个水龙头都要放水才可以的!并不是像老人们想的那样,别家把水管里的脏水放了,自己家水管就是干净 小飞家,原来每月用水十吨刚换了节约型水龙头后每月用水九吨,现在每月用水比原来节约了百分之几? 为什么在化学中某酸,比如碳酸、硫酸、磷酸……的化学式前第一个元素都为H本人刚学化学式和化合价,还不太懂,不要从别的地方粘过来的一大堆解释! 浓H2SO4与稀HCL的反应 小雨家原来每月用水约10吨,更换了水龙头,每月用水约9吨,每月用水比原来节约了百分之几? 硫酸 碳酸的化学式为 稀H2SO4,稀HCL,浓HCL有挥发性吗? 稀硫酸加锌粒制氧气的化学式要配平的 氢氯酸,氢硫酸,碳酸,磷酸的化学式分别是什么? 为什么水龙头放出的水是纯白色的?我从水龙头放出水放置一会,就变清了,然后我再搅动,就不再浑浊了,为什么? 锌和稀硫酸反应生成氢气的化学式 已知A=a的平方-2ab+b的平方,B=a的平方+2ab+b的平方 求1/4(B-A) 如果2A-3B+C=0,那么C表达式是什么 家中水龙头放出来的水,刚开始看着是全是纯白色的,就好像里面有什么东西一样,但几秒后又变成水原有的那种无色了,我想问这水是怎么了,还能用吗 南大街小学把老式水龙头改成节水型水龙头后,每个星期的用水量比以前节约了八分之七吨.平均每天节约用水多少吨?若每周节约的水量是现在用水量的二分之一,以前每周用水多少吨?列式计
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn