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

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 则根本不支持!


源代码管理十诫 游戏手柄也能编程 极客打造不用键盘输入的IDE 开源不只是程序员的专利 政府也可以 开源搜索Elasticsearch:PB级数据的快速搜索 月下载量已达20万次 乐视网联手富士康推超级电视 欲颠覆传统盈利/营销模式 IBM 2012IT实践达人赛圆满落幕 宣布成立新兴技术大学 对比MapReduce 流处理框架没有所谓的查询层 美国政府:修复漏洞仍有风险 应禁用Java插件 AppGlu应用辅助工具:帮助开发者处理善后工作 iOS!你这几个方面该向Android好好学习 小于1%,中国有真正自主的移动操作系统吗? 张小龙专访系列(下):不一样的产品思维 Gartner:截止到2016年公有云市场复合增长为17.7% Appcore:在企业内部部署IaaS平台 B轮融资600万美元 超现实主义!用脑电波控制你的计算机设备 搜狐否认“情理之中”的退市 上市仍是最优选择 六大BaaS产品推荐:移动开发必备的后端云服务 未遵守承诺 微软遭遇欧盟7.31亿美元巨额罚单 PaaS正能量:6人团队,仅1人全职后端 支撑6000万用户 三星:我不抽成,收益100%让开发者拿去! 腾讯开放平台推“送红利计划” 承诺半年内不参与分成 JavaEE快速开发框架Wabacus 4.0发布,开发效率提高五倍以上 市盈率创新高 谷歌为什么会在苹果博弈中暂时胜出 从Rovio遇到危机,看现在应用市场的演变 Windows Azure支持Android应用 面向东亚推广云服务 抛弃DRAM、拥抱闪存,Facebook重做Memcached 夏普三星联姻 电子行业或将多元化发展 从下拉菜单设计细节看Amazon对用户体验的把握 Chartboost美女CEO:40人团队服务3亿移动玩家 Distimo:新晋开发者想让产品得到关注越来越难 OpenFeint绝迹后,开源项目OpenKit继续前进 问题:十六大代表需不需要办暂住证? 求教COOKIE的用法! JBuilder 7中如何安装一个Server ### 升级内核 ### 还有一个问题(树型列表) 哪里有Visual InetDev 6.0 下载? "分"到哪里去了? 有关于赋值的问题 技术的挑战,在线等待 有关csdn的一个小的问题? 显示模式的设置 怎么样删除在DATAGRID中选定的行? 如何自动滚动edit控件多行显示时的文字 win2000系统关闭后但不会自动断电源 寻找资料,请帮忙 难啊 统计数据 求:做得漂亮的学校主页 麻烦看一下下面的代码 C#和C++builder比各有什么优缺点?哪一个更灵活更稳定?C#和C++哪个好? bug管理工具有没有web方式的? cs文件中,如何获取confirm对话框的返回值? 如何将jpg的图片加入到sql server 的 image类型的字段中阿,使用ado 配置了win2000的服务器 兄弟们。我在JAVA区竟然得不到答案。只能期望在这里找到帮助了(共200分的问题) 在ACCESS中设置数据表,如何实现数据库中多表间的关联访问,用VC的DAO实现 ORA-12560: TNS:协议适配器错误 vb+asp.net中的datagrid分页遇到问题?附代码 改了IIS账户的密码,ASP不能运行,但原先的密码不记得了!现在要修改什么文件才可以? 为什么反向工程失败? 关于ER图的做法 窗口最大化、最小化问题 本站提供能成为QQ会员的QQ代理,快来~~~ 请帮个忙好吗? 硬盘保护的问题 轻轻地温柔地任人宰割 小程序一个,很简单的,但是这样的问题经常遇到的 关于交换区的问题 d7的序列号码 刚做好的编程技术文章系统,欢迎来翻阅技术文章. ★★★★★ 那位高手有这样的好东东。。。 ★★★★★ 最近流行什么歌? PHP新手: 给一篇在Windows2000环境下PHP的安装,及apache的配置的文章,来者有分 怎么给MM送花 在哪儿下载<WINDOWS 程序设计>? HELP ME!关于TCP/IP传输位图的问题. 刚做好的编程技术文章系统,欢迎来翻阅技术文章. 刚做好的编程技术文章系统,欢迎来翻阅技术文章. 请问怎么在对一个设备发送数据的时候又接受这个设备返回的返回码呢? C++ builder的密码! 如何使用微软自带的扑克牌动态库(crads.dll)? need no +可数名词复数可以吗如they need no apples.书上是they need no food 从孙中山,毛泽东,邓小平和列宁身上学到哪些优秀品质 do you need any clothes( )sports We have T-shirts ( )all colors.用介词填 have no 接可数名词时一定要用复数形式吗 单位悬挂马克思、恩格斯、列宁、孙中山、毛泽东、邓小平的伟人像.次序应该怎样排列? I called you last night, but there was no r_____ 他经常帮她妈妈做家务活.用英语怎么说? he has three times ____than i havea. much moneyb, more money答案为B为什么呢? 这种倍数的讲法又有哪几种?不要复制得很繁琐= = i called you last night,but there was no reply.(同义句转换)you didn't _____ ______ when i ______a______ _______to you last night. 我叫和士涛帮忙给我起英文名字谢谢 How much time did you have for writing the paper?We( )three times,but I finished in less than halfthe time.A gave B would give C had given D were given怎么选D啊 I called you several times last night ,but there was no answer.Oh,I'msorry._ ___my mobile phone at the office yesterdayA.left B.had left C.have left 我叫泽涛,谁能根据我的名字起个英文名不要随便其他的,就要根据“泽涛”这个名字起.发音要差不多,也要美观点 How much time did you have for writing the paper?We( )three hours,but I finished in less than halfthe time.A gave B would give C had given D were given I called you last night,but there was no answer Oh.Iwasn't( ),I went out for dinnerA.outB.inC.awayD.over 请帮我想一个关于琳和涛的英文名 根据可君起英文名全名俞可君 想要一个寓意好的女生英文名 各位大神帮一下阿〜 He has( )a slide show for us.请问句子空白处填made还是done? i saw him in the street just now.用just 改写.i___ ____ ____ him in the street. 帮找个 少见 点的 女英文名,我叫 君.要 两个 音节的,复制无效,列举一两个就行了,之前我喜欢Cherry这个名字,但是我一个朋友的朋友取了这个,我就没要了,来个这类型的吧,Sherry也不要,因为我朋 make show请问是做节目的意思吗 还有别的意思吗 I saw him ___ just now.填leave还是left Do you have sweaters _____ _____?你们有绿色的毛衣吗、我是叫你翻译,不是问你有没有毛衣 用两个成语来形容母校 急,急,急,急! 关于茉莉的好词好句好段,三年级的 很急啊! They gave half of the money they made to homeless children请翻译 As a foreign student in china ,she can't make herself----in chinese A understand B understoodC.understand by D.understood by I have three times as many as you. 我有你三倍那么多a. 主语+谓语+倍数(或分数)+ as + adj. + as 1:have 助动词不是不可以做谓语吗?2:几倍就是 前面基数词 加上times吗? Did you know that they gave half of the money they made to a charity for homeless children?如何分析和翻译这句话.请从 句子结构,谓语动词,里面含有的词或者词语来回答. Where were you last night?I called you several times but couldn't _____you 1.catch2.find3.reach4.follow 这句话中为什么加个times?在句中起着什么作用I have three times as many as you. They will put up more signs_________ more people will know about the projectA.because B.so that C.in order to D.since 好书推荐 《狼王梦》作文题目怎么写还有吗老师说是要上交学校 i have three times as many books as you这句话对吗?you 后面要不要加个do? gave,money,made,half,he,to,of,a,the,charity,he连词成句.急,gave,money,made,half,he,to,of,a,the,charity,he 连词成句.急, 英语翻译选哪个,为什么?并翻译i have to make myself ____ by all my students.A.hear B.to hear C.heard 我的名字单名是涛 谁能帮我取一个英文名 跟我的名字有关的 if you make the wheel ______,they will thrn more easily.look the people _______ (swim) in theriver.i have some problems with my english writing.can you give me some ______?a .advice b.decrisions c.information d.messagesas we know ,cats like eating __ 填空what were you doing___I called you last night.用while还是when 我的名字叫钟涛,有谁能给我取个英文名字啊?名字要根据钟涛这个名字来取,还要注明如何读. they made a lot of money all by t___. it's 2:00 in the afternoon.the children ____[jog] in the playground. 英语翻译求用英文翻译这句话 I don't think that when people grow up,they will become more broad 谁作文比较好?也看过狼王梦? 英语翻译1“impossible” reservations to unique access to otherwise off limit activities.译文:以其他方式无法参加的非公开活动怎么解析一下句子的成分来和译文对上 我的名字叫龙涛,谁能帮我取个英文名字?谢谢 They have made a request_________more money.这个空要怎样填才好谢谢朋友们!它只填一个词for 我不是很理解的 《互联网用户“三权”保护白皮书》的三权是什么意思? 今天我钓了几条鱼?用英文怎么说? 关于思念的成语 四十岁的女人应该什么样? 我叫孙涛.帮我根据我的名字取个英文名,感谢了.取个好听一点的,谢谢了! 关于“思念”的成语有哪些? 英语翻译这两天我都一直关注着四川省的大地震.从电视上看到很多幸存的人被成功救出,我很感动. 这句话怎么译成英文哪?放长线,钓大鱼. Do you have any sweaters( )all color in your shop?填空 英语翻译请大家帮帮忙翻译这些话哈!1、08年5月12日中国四川地区发生一次8.0级大地震;2、这次地震死亡人数约70,000人;3、大家踊跃捐钱、捐血;4、中国与世界人民团结,共度难关;5、这次 马克思列宁主义,毛泽东思想,主义和思想有什么不同?国民党是孙中山缔造的吗?孙中山的思想又是什么? The shop has T-shirts ____all colors ____$ 12 each.A:in at B at in C in in D at at
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘