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

VB如何清空回收站?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何清空回收站?

版本:VB6 / VB5 / VB4-32


我们要如何在 VB 中来清空回收站中的文件呢?

在进入主题之前,必須先告訴大家,在您清空回收站进,系統会自动更改回收站的图标变成空桶图标,所以,进行中若有错误发生,您还必須还原回收站的图标!
清空回收站,我们使用 API SHEmptyRecycleBin Function
还原回收站的图标,则是使用 API SHUpdateRecycleBinIcon Function

在声明区中加入以下声明:

Public Const SHERB_NOCONFIRMATION = &H1
Public Const SHERB_NOPROGRESSUI = &H2
Public Const SHERB_NOSOUND = &H4

Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long

Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
参数说明如下:

hwnd:某一个 Window 的 Handle
pszRootPath:回收站路径(不一定是根目录),如果使用空字串,则表示要清空所有回收站。
dwFlags:0 或是使用以下之常数:

SHERB_NOCONFIRMATION:表示不显示确定窗口
SHERB_NOPROGRESSUI:表示不显示清空回收站的动画窗口 (经检测98原本已不会发生动画)
SHERB_NOSOUND:表示清空回收站之后不发生声音


Private Sub Command2_Click()
Dim retval As Long ' return value
' 清空所有回收站, 不确定
retval = SHEmptyRecycleBin(Form1.hwnd, "", SHERB_NOCONFIRMATION)
' 若有错误讯息发生,则恢复回收站的图标
' 其实這一点不是很需要
If retval <> 0 Then ' error
retval = SHUpdateRecycleBinIcon()
End If
End Sub
注意:以上的功能有以下 OS 本身及 IE 版本的限制

Windows 95 必須安裝 IE 4.0 以后的版本
Windows NT 4.0 必須安裝 IE 4.0 以后的版本
Windows 98 及 Windows 2000 均已支持!
Windows CE 则根本不支持!


撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 2014Unity亚洲开发者大会倒计时 干货内容日程汇总 TIOBE 2014年4月编程语言排行榜:Perl跌至历史最低点 Hadoop集群环境下网络架构的设计与优化 CloudFoundry架构优化:NATS集群化方案 Dropbox推独立应用,公司估值已达100亿美元 【走近院士】梅宏:云计算时代软件技术发展需求和挑战 云计算战争:OpenStack vs. VMware Cortana与Siri、Google Now的较量:支持功能更多 代码面试最常用的10大算法 “颠覆医疗” 时云医疗推三款硬件产品 华为章宇:如何学习开源项目及Ceph的浅析 EMC:大数据时代中对于数据保护的重新定义 Google Glass于4月15日在美对外开放购买,售价为1500美元 电脑上的网址怎么样复制到手机 创客天下——《Make》及Maker Faire创办人、O&amp;#039;Reilly Media创始人Dale Dougherty专访 《近匠》aGlass团队:透析眼控技术的价值 一周消息树:超级充电器来袭,30秒可为手机充满电 北森CTO张庆化:利用Spark实现数据驱动价值 win2000 pro 安装中出现的怪问题,谁帮帮我?? 获取游览器端的操作系统和游览器信息?现等! 在dw中,怎样才能使用vs.net编写的网页正常显示??在线等待 请教关于VBA在WORD工具栏中的问题 win2000服务器启动输入密码后不久自动重新启动?怎么修复?系统还没有完全启动完。 C++builder精确到二位有效小数用什么函数????在线等候!!!! 急急急!现在想把状态栏放大,里边的字也随之放大! 我做了一个用户控件始终找不到不知道是什么问题,请大家帮忙帮忙. 寻找HUST计算机系大三.大四或研究生,有一事相求! linux下有什么好的java IDE吗? 如何组建电脑部!!!! Java如何Debug? 谁有关于Microsoft.XMLHTTP的详细使用手册 !!!急急!现在想把状态栏放大,里边的字也随之放大 请推荐几本学习sql-server的好书!!! 求助:sybase central 3.2 for ASE12.5 的问题?? 关于第二个硬盘的问题 请问我要开发一楼房的三维动画展示(象游戏一样) 哪位大哥知道哪儿可以下载四级模拟题或书籍 Bjarne Stroustrup 怎么念?有高手能给出音标吗?100分在线等待! 神秘的芭蕾舞鞋……《非人勿进!!!》¥%……·%·¥%·#¥%#·¥#@$%$#^%^%$$#@ 怎样做一个自己的DBNavigator? =====关于CDialog的一个简单问题===== 急救!子窗体问题!在线等待 如何把程序窗口显示在其他所有程序的前边 dbengine error: invalid blob length? 数据集打开问题 严重的问题???? 一个问题: 一个小问题,在线求助! 神秘的芭蕾舞鞋……¥%……·%·¥%·#¥%#·¥#@$%$#^% 无法进入系统,救救我吧 菜鸟问题,送分了!!! 得分小问题 小问题,请熟悉InterBase的大大进来看看。 做一个分布式的例子时的问题 大家帮我看下这几句问题到底出在哪里呀!!!!!!!谢谢 连接数据库的疑问,盼望解答!! 什么叫作实例? 菜鸟问题 十万火急:MDI的一个问题?????????在线等待!!!!!! 调查一下用汇编语言开发的工资如何?(深圳 ) 有关Builder版的兄弟定期进行网上技术交流的倡议书! 急!关系到我是否找到工作,请回答 如何根据Form的大小调整控件的大小 闪盘的另一个分区不能用了!!在线 连接数据库的疑问,盼望解答!! 急!急!急!请教一个共享的问题? 请问哪里有Class类和Method这两个类的说明呀!谢谢! 怎样打开CSDN电子版 请推荐一下有关于JAVA,JSP,JAVASCRIPT相关的好书 英语翻译文章中有“东郡某甲,以弄蛇为业.尝蓄训蛇二,皆青色,其大者呼之大青,小曰二青…” The cat ( ) in the ( ).It is ( ) of the box. 蚁能组什么词? 英语翻译 填入适当的英语单词 1.—-is the cat?It's in the box. 蚁可以组什么词 一堆煤重2500Kg,每天用去125Kg,每天用去百分之几? The cat --------in the --------.It’s in --------of the box. What about__?A.eat a pear B.a bottle of milk 选择 What's ____ hobby?选择 A.second most common.B.the most second common.C.the second commonest.D.the second most common [英语阿英语]讲一讲few ,a few,little,a little后分别加什么词 有聊斋志异 狼的白话文吗?狼三则的第2则的白话文扩写白话文 你的爱好是什么?我喜欢集邮.What's your hobby?I lake collecting stamps.怎么读.如There【雷啊】 乳化油的基本知识 125克是1千克的几分之几 古代的太守、刺史、州牧、司马有什么区别吗?都分别是什么样的官职? 去除 乳化油怎样去除手上 由于长时间泡在乳化油水里形成的一层死皮?因为工作原因 使用外圆磨床必须用切削液 但是又会产生死皮 2500千克=几分之几吨七分之二x=4 x-三分之一x=十七分之七 It was raining heavily so i was glad to get (house) (home)请高手指教,最好写出区别在哪? 甲·乙两车同时从A地开往B地,当甲车行了全程的2分之一时,乙车正好行了全程的5分之2,当甲车到达B地后,距B地还有30千米,求A·B两地之间的路程乙车距B地还有30千米 求AB两地之间的路程 最好说 125千克=几分之几吨 We decide to go home because it was raining heavily.从句中找出一个错误项,并改正 Do you like to play volleyball?否定回答 which do you like best,the red one ,theblack or the green?中best前为什么不加the是因为是like sth.best 一堆煤用去百分之二十剩下的比用去的多十二吨求这顿有多少吨 the lillle cat in the box划线部分是in the box 对划线部分提问.They heard a whisper when they were in the park.划线部分是a whisper (对划线部分提问)10.He didn’t have lunch at school.(改为陈述句)11.It was fine yesterd DO you like playing _____ game?Yes.It's ____interesting one.空格填什么冠词? We would like go to by bike(请用这几个单词组成通顺的句子要标点 大写) 9颗树,种10行,每行种3颗,怎么种? Do you ___ if I don't like game shows .A.thinkB.liveC.likeD.mind 有30吨煤,前两个月用了百分之二十,这个月用了剩下的百分之十, 花重锦官城当中“重”的读音 You dont like playing compute game,do you?怎么回答 给没有标点的英语添标点,有些单词要写成大写的 奶酪老板卖的是什么 Can I have one more cake? 英语翻译我最喜欢的歌手是许嵩.我觉得他唱歌有感情.我喜欢他唱的 玫瑰花的葬礼 断桥残雪 城府 等. Do you want to_____a trip plan on the computer,Beety?Yes,I do快 张大伯从报社以每份0.4元的价格购进了a份报纸 以每份0.5的价格售出了4/5a份报纸,余下的按0.2/份退回报社盈利多少 英语翻译这个是William Golding的一篇文章,我想要这片文章的中文翻译,刚才没说清楚,不好意思 do you want _the red hat —yes ,i do .a、buy b 、buys c、 to buy d 、take 张大伯从报社以每份0.4元的价格购进了a份报纸,以每份0.5元的价格卖了4/5a份报纸,剩下的每份0.2元退回问赚了多少? 用蚂和蚁组词用蚂和蚁能组几个词 养爬虫用的活体蟋蟀的学名是什么啊?拉丁名呢》 He____the students very much and the students like him,too填1个正确的单词 英翻汉,机器勿扰,谢谢很急,谢谢啦 When is to very she go busy people out dinners 连词成句 They just cleaned the windows.So the room looks_.A.more bright B.much brighterThanks very much. 翻译英翻汉——急,拒绝机械翻译!大老板发了一段话给我,看不太懂,拜托翻译一下下,谢谢!PLEASE keep maintaining the positive momentum YOU and your TEAM have initiated in our facility…………………..!We must encoura He had no sooner returned than he bought a house and went to live there这句话什么意思no sooner than又表示什么? 什么是奶酪效应 甲乙两仓共有化肥140吨.甲仓的1/4和乙仓的1/5共32吨,甲乙各有多少吨?(用算术方法) He had no sooner returned than he bought a house and went to live there这个bought前面加个had可以吗 一堆煤2500千克,用去了20%,还剩下多少千克? 求2011一句话新闻,要长,无标点就是像单句那样,要30字左右求大神帮我找找,自己找一篇新闻归纳也行,不要标点的要2-3句.竟然没人回答.那就要100字左右的新闻吧,只要是单句就行. he had no sooner returned than he bought a house and went to live there.里的live为什么不加ingwent是动词后面再有动词不是要加ing吗? When i woke up this morning,i found_______ A.it is raining B.it was raining C.the sky was raining为什么C不可以选 《聊斋志异》中《蛇人》的译文 请把'He had no sooner returned than he bought a house.'改为含有'hardly……when'的句子, Much to my delight,when I got back into my office,I found all the lights in it____.1.finished repairing2.turning up3.fixed up4.going out为什么选3不选别的 日本一企业官员疑挪用24亿日元 被同消息称利比亚首都发生激烈交火 枪声持新加坡拟开发路边停车电子收费新系统孙杨可自选拘留时间 新女友浮出水面亦日本一企业官员疑挪用24亿日元 被同加拿大一名刑满性犯罪者潜逃至美国又面麻生积极扩大外国游客免税品范围 以吸塑料袋威胁欧洲环境 欧盟计划对其征收盘点孙杨这些年惹的事 无证驾驶 耍大叙反对派内讧致战场节节败退 全国联盟胜选五周年,奥巴马光环黯淡法媒曝萨科齐下台后电子档案遭非法侦察巴塔发誓要为马哈苏德报仇 卡尔扎伊批世界十大主权基金美媒:中国不买美债 美经济会怎样中国人美国买房热中的冷思考北极航道将成“新马六甲海峡”———专美国安局将韩国列为主要监听对象 韩方叙利亚政府不参加日内瓦会议 称不会参美国为击毙塔利班头目辩护 称与巴基斯欧盟呼吁各成员国民众应减少使用轻薄塑橡胶:逆势反弹虎头蛇尾宏源证券西湖音乐节今天开唱软件股本周持续爆炒事件驱动引发炒作热国信证券今日院线虾米·2014西湖音乐节《腾空的日子》每周五更新塑料期价看高一线银行降低门槛争抢白金信用卡客户南华期货商品综合指数动力煤短期延续低位震荡本周闪亮股广州证券信达证券邪不压正 问心无愧该不该止损,参考三个原则民族证券金元证券巴育抛出政治路线简图 先改革后选举千万市值门槛成打新拦路虎
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘