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

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
乐视TV:智能电视平台——Android 开发者的新空间 TIOBE 2012年12月编程语言排行榜:Objective-C冲刺卫冕年度语言 11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 移动之伤:为什么山寨游戏比原创更火? IBM在京发布PureData 主打数据交易处理、操作分析 Intel发布Hadoop免费版 全力拓展生态圈 突出图片搜索:微软向测试人员开放Socl社交搜索 豌豆荚创始人:和巨头竞争,我们拼产品和技术 “互联网女皇”报告解读:智能电视大趋势 苹果扩大其北卡罗莱纳州燃料电池发电场规模 Oracle回收站使用全攻略 微软这次很诚实:IE真的糟透了 Facebook进军短信业务,挑战微信鼻祖WhatsApp 从菜鸟到专家的五步编程语言学习法 亚马逊企业文化:从书贩到云服务巨头的催化剂 明年Google I/O大会日程敲定 或发Android“酸橙派”? 想从C++转到DELPHI,请前辈们指点一二 请问那里有.NET基类的详细介绍?提供者给分。 网页上的图片都是怎么切割的? 什么叫hr? 求教组网方案!有实践经验者请进 帮助看看用什么控件比较好。 OLE打开Excel文件的问题 关于c远程调用 这个病毒太狠了! 如何将IE打印功能去掉?禁止别人打印网页? 请教关于TImageList中存储多幅图片的问题 100分赠送 寻架构? 请教高手:如何在VB开发的程序中准确判断用户的可用内存? 用jb怎么在另一个类中控制frame中的一个label的text的实时的变化?多谢 如何制作PB应用程序的安装程序?高分求救。 WinXP里怎样备份norton antivirs的升级数据? 我只是给自己加点分啦 快救救我吧,我的存储过程返回值有问题?? 日文原码想在中文环境中运行可不可能 JBoss高手看过来! 下面的js执行错误,请看看 请教高手:如何当一个程序被反复调用时利用command$? 声明游标时可否用变量? 能不能提供几个漂亮的repeater控件的模版? dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "报错,在线等待 有没有什么工具或办法可以将Tc 下的程序移植到linux下运行? 求助! 请教!急! 世间什么才是最珍贵的? 大家來說說2003年版<射雕>的敗筆. 请教:如何在VB开发的程序中判断一个程序在硬盘上的安装路径? 帮忙!谢谢! 此类问题如何查询? 请教个问题:每次启动机器都会打开IE跳到我们这边的一个内部网站去,本来启动就慢----火死了,怎么去掉---在注册表了改么? combo控件问题. 问一个关于刚开机的win.com的问题。请高手帮帮忙呀! dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "报错,在线等待 请问我如何在注册网站成功后,在exchange中也建立一个与注册网站时同名的帐号呢? ASP(javascript)自动回复问题?? ★★母亲的生日★★ 哪位有没有用spcomm控件进行串口通讯的例子? 大家帮我看看这是用哪个做的? 关于打印... 两路由器的使用方法比较,哪个好些? 在线求助:有没有改变电脑所连的打印机打印属性方向的API函数?多谢 我要送分 设置ejb的几个接口时,我有点弄不明白 有没有什么办法把ACCESS的表打印出来?格式改变一下? 烦啊~~~~ 谢谢!如何让对话框的大小不受屏幕分辩率的影响??? 蜜蜂有几只脚 几何图形问题能回答吗? 核细胞是(),遗传信息存在于()中 骆驼的汉语拼音 家兔实验中,增加二氧化碳摄入量后,呼吸有何变化 人体口腔上表皮细胞中的遗传信息流向 资治通鉴白话文版本哪个版本的比较好?全套的那种.文白对照的也可以.说清楚点 ,哪个出版社的 鲫鱼的内耳除了听觉以外还有什么作用? 在已经停止分裂的大豆体细胞中,遗传信息在生物大分子之间的传递情况可能是A DNA-RNA的转录过程B RNA-RNA及RNA-DNA选择哪一个?为什么? 求白话文如题! 歇后语用拼音拼出来 膈肌放电中的家兔吸入高浓度二氧化碳后呼吸变慢他的机制是什么? 求两条关于热爱生命的名言, 听觉神经属于内耳吗 细胞分化是遗传变异吗 用一句话概括这段文字的意思 结合水上升,自由水自由水下降,有利抗寒原因是什么? 怎么才能停止细胞的分裂? 下列的动物行为中,不属于防御行为的是A. 蝗虫的体色与周围的环境颜色十分相似,有利于隐藏自己B. 乌贼遇到天敌难以脱身时会释放墨汁,趁机逃脱C. 两只蟋蟀争斗中,一只退却逃走D. 野兔发现 怎样去除大理石地面上形成的硝渍? 高林瑜生命如草,有荣有枯.小草的一生如人的一生,一半是阳光,一半是风雨.但每一棵草,从早晨那缕阳光到黄昏那片云霞,总在尽享岁月赋予它的时光.因为它学会了感谢生命.生命如舟,总是在浪 什么是LDO 请问白色大理石上的茶垢、水渍怎样去除? 孔雀石和铜时不时同种物质 LDO的短路电流是什么意思呀,为什么比有效电流还小? 越字的拼音怎么写用拼音把这个字打出来 最大turob频率2. 1.下列选项不属于动物行为的是a、小猴走钢丝b、小羊呼吸 2.在甲、乙、丙三支试管中放等量清水,插入相同的枝条,将试管口包严,将甲、乙同时放在阳光下,乙的枝条用塑料包严.丙置于阴暗处, 导电滑线防护板应设置在哪些部位?有哪些安全要求? M90×2-6g其中的6g是什么意思,请给说详细点. 3.下列选项中不属于动物行为的一项是( C )A.猫静伏在老鼠出没的洞口B.变色龙体色由褐色变成绿色C.母兔生下的小兔有黑兔和白兔D.蝙蝠白天栖息于岩壁上 pcb软板电金是否需要导电线 M24x1.5-6g中的6g是什么意思,怎么确定它是6g而不是其它什么呢 13.以下是利用幼小蝌蚪和甲状腺激素探究甲状腺激素作用的实验设计,不合理的是A.实验组饵料中添加甲状腺激素,对照组不做任何处理B.实验组与对照组应饲喂等量的同种饲料,放在相同的 空气开关老是跳闸,有时跳,有时不跳?通电后只有一个灯泡,没有其他用电器,有时跳,有时不跳. 神经细胞和肌肉细胞的遗传物质一样吗 小蝌蚪什么动物 双梁桥式起重机中是不是检修吊笼和大车导电架二选一就可以,一般选择哪一个 身体内的细胞所含的遗传物质为什么是一样的呢 酶、抗体和维生素那个不可以在活细胞内产生? ups旁路开关是什么 生物中;人的肌肉细胞和神经细胞的遗传物质是什么? 火烧孔雀石是不是焦炭还原法? 第四题选什么 轨道舱在飞船的哪个部分最好说得详细一些 ①tan(π/4+a)=1/2求tan a 的值②(sin2a-2cos^2a)/(1+tan a)的值? 第四题怎么弄?最好写下过程, 轨道舱与飞船分离后去了哪?! 高一数学三角涵数的难题我真的不会做!我好象忘记了这个问题好象是这么说的,告诉了三角形的三边A=什么什么X,B=什么什么X,C=什么什么X,问如果是钝角三角形X的取值范围,如果是锐角三角形X 细胞增殖与分化、癌变过程中遗传信息的表达过程相同吗? 蔗糖溶液的旋光率一般情况下是多少 碘不是放射性物质,但是碘131为什么具有放射性?还有一些其他的元素,都没有放射性,但是有的同位素也具有放射性……好奇怪啊我只是一个初中学生,呵呵,对这方面的了解不多…… 北京今天能看到日食吗? 下列叙述错误的是( ).选项:a、葡萄糖在酸性水溶液中有变旋光现象.b、 麦芽糖、蔗糖都是还原糖a、葡萄糖在酸性水溶液中有变旋光现象.b、 麦芽糖、蔗糖都是还原糖 蜜蜂体表有(),可以保护身体,胸部有()对分节的足,()对翅 神州7号的航天飞行员是 谁33燃放人 为什么我今天下午又看了月亮又看到了太阳? 蜜蜂为什么要酿蜜?蜜是从蜜蜂身上出来的吗? 神舟九号飞船绕地球一周需90分钟,那么地球上的人度过一昼夜,神舟九号飞行员度过了几昼夜? 为什么今天还能看到太阳,是因为我拯救了世界. 朝鲜搭建新导弹发射平台英国窃听丑闻案开庭 默多克昔日爱将出无人机击毙索马里“青年党”高官美国驻也门大使馆虚惊一场 婚礼烟花被美国得州一男子五地疯狂射杀 致其母在利比亚枪手打劫央行5000万美元日防相称“中国危及和平” 中日关系陷美国十年逾百起医院枪击事件 FBI探利比亚枪手狂劫五千万美元演员有怪癖 只爱演死尸纽约手机可接收紧急警报捐肾牵良缘 悲剧变喜剧四条眼镜蛇盘绕 “守护”婴儿午睡印度高官建议用阉割强奸犯方法遏制强奸世行营商环境排名遭质疑公务报销作假引发公众愤慨 加拿大政府奥巴马考虑停止窃听盟国领导人泰国前总理阿披实被控谋杀英国报纸窃听丑闻开庭审理普京称苏联共青团不仅是政治还是友谊和美主持人就\"杀光中国人\"言论道歉3月起开征施工扬尘排污费一把沙子湖北女孩被父母囚禁5年侵犯公民隐私 韩国废除通奸罪马英九与民众猜灯谜 出题暗喻\"不识末节依旧“懒羊羊”过元宵停个车凭啥还交赞助费?旅游文明:“修炼”在路上人均收入排行公布北京登记不动产年内实施李建华主持召开自治区党委常委(扩大)上海一男子赴日扫货集装箱运回新疆2138名下基层干部获提拔新疆若羌县吾塔木乡扎实开展春耕备耕工833件离婚案 122件有家暴下周一开学早高峰公交加车居室小清新,盆花送上楼这些特色元宵汤圆,不要抢答许利民旧事重提 望球队一鼓作气
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘