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

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
AngularJS优化最佳实践:从1200ms缩减到35ms Linus Torvalds宣布Linux kernel3.12正式发布! 硅谷的技术文化——渴求独处! MDCC为移动开发者服务:一看、一聊、一聚 做华为合伙人:华为开发者联盟沙龙·北京站纪实 Q3全球智能手机报告:Android和iOS基本不变 WP最得意 Google Apps不再支持IE9 IE9用户或将无法使用Gmail等服务 [开源推荐]CecOS:企业级的云操作系统和虚拟化平台 Avangate SaaS模式开启全球软件新营销之门 Android平台的两大移动威胁现状与变化趋势 推荐五款优秀的PHP代码重构工具 11个值得注意的安全问题及应对,第12个高端黑 微软新举措:打通Windows和WP开发者账户,下调注册费用 合并两应用商店的前兆?微软开始合并Windows Store和WP开发者账户 最难忘的Bug调试经历 LiveCode:让每个人都能开发APP的开发平台 17173总经理赵佳:媒体移动化需抓住三大要素 Django 1.6发布 支持持久数据库链接 如何优化单页面网站搜索引擎? TechCrunch国际创新峰会将于上海举行 极路由:一场由路由器引发的概念盛宴 14nm制程:三星64bit处理器 Exynos 6/S曝光 从Oracle到MySQL,余额宝云实践分享 从南水北调东线工程看物联网,大数据的另一面 不只是技术!成为IT经理必备的十大软技能 看看传说5亿行代码的Healthcare.gov网站的架构 如何走出选择PHP还是ASP.NET的两难境地? 你的设计够档次吗?分享25个奇异的404页面 百度LBS推Openmap战略:无编程经验者可通过拖拽制作个性化地图应用 百万用户时尚分享网站feed系统扩展实践 Twitter上市首战告捷的四大因素 菜鸟的一个简单问题,谢谢帮助!!! 读一英文TXT文件,输出其英语单词个数,行数和段落数 ora-12560 协议适配器错误 界面設計() 8i中的这个函数是什么? 怎样实现字符串类型的数组的换行显示 win2K进程 objectarx中模式对话框不能加载 搞个假证,不知道公司的人是否能够人出来 各位请问一下:interbase中的blob类型,在操作中如何进行插入,我要插入的是sql文的内容,谢谢 小夫妻吵架了(ZT)~~~~~~~~哪位结过婚有过孩子的来说说,你们是不是也这么个吵法? 送给wayfarer的500分(2) 怎么样在vb打包时显示想要的图标? 请问,如何某一列的数据不可见?急! 一道题目 关于SQL脚本的问题【在线等待结果,有正确的答案就结帖】 在线急等:文件打开的问题 首先祝大家中秋快乐!!!好人有好报,,然后请大家教我TreeView怎么用? 将access的数据库导入到mySQL中最简单的办法是什么? 有个SQL的语句的问题,是以前的问题的扩充,就是要再加上几个字段,可就是不会写!!帮忙!在线等! 急!!!数据过滤问题,请高手指教! php 中有类似asp里response.redriect功能的函数吗? 好久没来了,也散一贴,中秋快乐 用JSP或Javabean怎样取到IP地址啊???? 抛砖引玉--获得当前数据库中对象的依赖关系的算法 数据库问题,,,在线等 MBR中的一点问题 中秋节快乐,散分了 程序如何在运行时取得数据库的建表SQL ************* 中秋快乐,抗日光荣 ************* database profile不能创建? 采用JBuilder9+WebLogic8.1连接DB2的问题! 帮忙评评,客观一点。强烈给分。 问题还未解决,高手仍需帮忙!!!!!! 关于DDB与DIB概念的问题 深圳公司招聘DELPHI高手 在线等SQL SERVER中查询出数据导入到EXCEL 中 请问如何改变本页的浏览器中的地址栏的网名? 谁有Active Report for .Net 的破解版 关于串口通信2问 wince支不支持叫大容量物理内存的申请 中秋快乐,顶者有分。帮忙评评。 急! 求问用在BCB或DEPHI那种方法把标准文本文件导入数据库效率最高 一个初学.net的问题,望大家不要见笑!! 多个文件在光盘里面先后自动启动 C#中类型转换,请大家看看: 中秋节散分 关于.net下客户端与数据库字符集不同时的处理 大家中秋快乐!以前没散过分今天散点。 文档结构的问题 什么不同句式比喻句 已知在三角形ABC中,角B≡30度,AB=30,AC=25,则BC= 三角形ABC中,a=20,b=11,B=30度,求边c的长 9和6是什么 什么是性与爱 它把一冬天蕴藏的精神,力量,都尽情地释放出来了是拟人句吗 它把一冬天蕴藏的精神和力量都尽情释放出来了,尽的意思是什么? 成功的比喻句,句式是对于是成功的比喻句,句式是"对于是" current grade 有三个像的比喻句,句式如下——像——像——像. 韩国要求美国澄清是否窃听韩总统 在野亚马孙热带雨林4年发现441个新物种法国夫妇汽车行李箱内藏一岁女婴 警方世界最高人举行婚礼 夫妻身高相差77日本天皇夫妇访问日水俣市 向水俣病纪日本小学生制成长33.9米鱼卷 打破日本拟上调育儿休假补贴发放比例 增加印尼首都雅加达打击街头“面具猴”表演悉尼遭遇强降雨 城区多条公路被迫封(美国网络销售辱华面具与服饰 迎接万圣美国现实版越狱:4囚犯通过浴室天花板食事播报一场看似孩子们的游戏却有成人社会缺乏热力不减过渡期货币补助 半年预发放一次街头讲安全 保商圈平安“农村学生专项计划”新房库存去化时间超15个月那些最易让人感到困惑的事这是车载空调的心声,你造吗?体育运动的价值首届前海规划建筑周启动“首拍”地块项末世复苏之线人位面重叠之兽临家有吸血妻剑脉长歌刀转无限吾道何求神魔流放岛拨乱反正在宋朝游戏在洪荒我是朱寿烽火戏诸侯葛洲坝旅游乌石塘旅游南沙旅游宝塔山旅游枣园旅游杨家岭旅游油麻地旅游荃湾旅游兰桂坊旅游天梯旅游望京楼旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘