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

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


Phablet出货量今年将超移动PC,明年再超平板 如何提高Web服务端并发效率的异步编程技术? 改改改!让应用通过审核出人头地的10个方法 正益无线CEO王国春:AppCan如何获得50万开发者青睐 在收购Xtreme Labs之后,Pivotal推出PaaS移动服务 .NET开发者必备的11款免费工具 .NET开发不可错过的25款高效工具 Docker最佳实践!尽在2014 Container技术大会 pflua:用Lua编写的高性能网络包过滤工具箱 掌上明珠张磊:如何设计手游付费体系 云游科技何千军:游戏开发和后端逻辑经验 《近匠》Highway1:孵化,不只是简单的帮助 嘉宾来了 MDCC 2014首批演讲嘉宾名单公布 前雅虎CTO:Hadoop扩展过程中的7个危险信号 【云先锋】星环TDH:性能大幅领先于开源Hadoop2的技术架构赏析 一周消息树:我想创业,但不懂技术怎么办? GitHub迁移数据库,借助MySQL大行其道! 实例亲授:教你如何创建AR应用 iOS七年,苹果都为开发者准备了哪些工具? TIOBE 2014年9月编程语言排行榜:Java、C++跌至历史最低点 如何甄别具有软实力的IT应聘者? 避免关注底层硬件,Nvidia将机器学习与GPU绑定 盘点MIT Demo Day上4个最有前途的创业点子 IDF 2014第一天纵览:智能设备唱主角 时尚化才是可穿戴的未来 ASP.NET之父Scott Guthrie:借技术之力铺平未来之路 两年测试,NSA或将让其数据中心洗上油浴 【云先锋】数云:另类淘宝创业,瞄准背后百万卖家的数据挖掘 Xcode 6 GM、6.1齐出,Swift终迎1.0版! 我眼中的Devops——倍道而进! 英特尔物联网世界:提供开发工具包,实现万物互联 三十功名尘与土——我的程序员生涯自白 关于Cookie的问题,不知道在哪里问合适 谁有用ASP做用MSchart控件生成的饼图源程序给我一份,给他30分! 为什么我的显卡驱动程序安装不上???主板是815Ep的! 请教一个局域网视音频合成传输的问题!!! 不好!出现错误!请帮忙! 有谁对java3d熟悉阿,急需探讨 暴笑中国队连环画 谁能帮帮新手啊!!!!! 如何通过一个网卡用adsl将整个局域带上网 程序中的消息对话框怎么不直接蹦出来,而是要按一下Alt才行? 程序中的消息对话框怎么不直接蹦出来,而是要按一下Alt才行? ListBox->Items->Add()的问题! 为什么我们的局域网内客户机不自动得到dns server 和默认网关??? 请推荐几款多系统启动控制软件 问各位高手一个很菜的问题! 数据窗口中的检索数据问题 毕业设计要交了!急啊!请问fastreport预览时,怎么没有“页面设置”菜单?? SetCellTextColor 的问题 ===读取时如何成比例的改变一张图片的尺寸及大小=== 毕业设计要交了!急啊!请问fastreport预览时,怎么没有“页面设置”菜单?? 意大利终于出线了 QuickRep1.PrinterSettings.duplex中duplex(双重,双向)是怎样用? 怎样使FORM上默认的最大,最小按钮变小一点,比如象OICQ的FORM上按钮? 关于servlet的问题 数组使用的问题,两种下标为什么只一种可以? 关于C语言编写数值计算的,事关人命啊~~~~ 关于组件问题? 急!急!急!一个宽带的问题? 做了个网站,希望大家看看!!!www.gz111.net 谁有window blinds的注册码 在DOS下,如何设置成1024 X 768,256色 如何分页显示XML数据岛内容 非常常见的一个问题,现在也没有解决,请高手帮忙。 公司要求学日语,学三个月,没工资,不知道努力学三个月能否达到凑合能用水平 我在昆明的迪信通买了摩托罗拉998++后才发现上当了!! 紧急求救,关于断电 简单:几个子查询合并为一个记录? 请问如何用sql语句查询一段日期之内的数据? 有没有人做过向excel模版导出数据 用户控件之间如何传递参数? help me !!!数据库无法启动!!! java IDE 开发环境有哪些比较小而快? 我的外遇 [zz] 走漏,去内蒙古出差,回头再见兄弟门! 做三维游戏都用什么工具? 各位,等这本书有消息后,我重发贴给你们加分,请问大家关于《Delphi高级开发指南》 asp的access数据库问题!! 急切求助!!!!!!!!!!!!!!!!!!!!! 关于把数据库数据生成excel文件的问题 我对现在的女大学生完全没有兴趣! 用夸张手法改写句子 上海有哪些河流,湖泊上海有哪些河流、湖泊湖泊5个河流10个 黄金比例是多少来着?是通过什么公式算出来的呢? 用夸张的手法改写下面的句子1、天气很冷.2、我的风筝飞得很高.3、他内心非常激动.4、阅览室里非常静.把下面的句子改写成排比句 1、天上的云形态各异,什么样子的都有.2、溪水随着山势变 深海鱼都有哪些种类?他们各自有什么特征? SO2,HBr,CO2通入氯水中,哪些反应,生成什么?SO2为什么生成SO4(2-)而不是SO3(2-) 电饭煲连接温控器的3跟线怎么接 运用夸张手法改写下列句子1.工人叔叔搞四化干劲很大.2.听说我入了团,妈妈笑了.3.何小强虽然长得瘦小,但精神很好.4.报告结束了,同学们发出很响的掌声.5.会场里很静. 在溶液中:物质的量浓度相同和PH相同有何区别? 用万能表怎样测电饭煲温控器好坏 非洲河流湖泊河流分布特点:注入印度洋()()主要外流河 注入大西洋()()主要内流河()()主要咸水湖()主要淡水湖() 深海鱼有哪些 美的电饭煲的温控器电阻多少欧? 美国境内著名的山脉、湖泊、河流有哪些? 给古诗填表示颜色的词:( )山( )水,( )草( )叶( )花. 电饭煲的磁性温控器什么情况下是好的?又该如何测量? 世界上最长的河流?世界水利资源最丰富的河流?非洲最深的湖泊是什么湖.非洲最大的湖泊是什么湖? 把一只新鲜鸡蛋放入盛水的玻璃杯中,向被子中逐渐滴加浓盐酸.为什么鸡蛋会先下沉后浮起,直到没有气泡为止? NH4HCO3,NAHCO3,H2CO3哪个CO32~浓度大, 等物质的量浓度的1元 2元酸和弱酸 哪个ph大 把一只新鲜鸡蛋放入盛水的玻璃杯中,鸡蛋沉入水底.若向杯中逐滴滴加盐酸,鸡蛋会怎样运动?为什么? NaHCO3溶液中:c(CO32- )>c(H2CO3)为什么? 为什么深海鱼可以生活在海洋馆里面?深海鱼不是体内压力很大吗?不是捞上岸就死了吗?为什么在海洋馆的池子里能生存呢? 把一个鸡蛋放到盛水的杯中,向杯中逐渐加盐末,会有什么现象?我作了实验没看出什么! 美的电饭锅加热几分钟就不加热了?温控器我换过 还是一样的 我们平时吃的深海鱼有哪些?请告诉名称 某有机物由C,H ,O三种元素组成,将该有机物3克充分燃烧生成0.15摩尔二氧化碳和3.6克水,该有机物密度为2.68,该有机物能与金属钠反应.则:1,求该有机物的分子式. 市场上为何能看见活的浅水鱼而看不见活着的深海鱼从物理知识回答 食用深海鱼有哪些 天书奇谈的春日祝福(夏日,秋日,冬日)在哪领.我都50了,那回看到一个48的人都有了 带鱼是一种生活在水深60米左右的一种深海鱼,但在市场上你却没有见到活的带鱼,请你说出其中的原因.是物理题有关液体压强的,不是生活类问题!回答请务必书面一点谢谢! 【追加】水的电离和溶液pH值相关计算题某探究小组在某温度下测定溶液的pH值时发现0.01mol/L的NaOH溶液中,由水电离出的c(OH-) = 10-13mol/L(-13在右上角),求该温度下0.1mol/L的NaOH溶液的pH值水电 夏日的( 如火如荼 )秋日的( )冬日的( )春日的( )选词填空凉意.凝重.轻盈.浪漫. 深海鱼打捞上来能活么 如图所示 在底面积是300平方厘米的圆形容器中注入20厘米深的水后,再把一金属圆柱体立于容器中,若圆柱体的横截面积是50平方厘米,且圆柱体露出水面,水也不溢出,求此时水对容器底部的压强 有关春天、夏天、秋天、冬天的诗 要名句,名句 【春天里有初春、晚春、春雨后】各两条 深海鱼无法在池塘中生存的原因 如图所示 在底面积是300平方厘米的圆形容器中注入20厘米深的水后,再把一金属圆柱体立于容器中,若圆柱体的 描写校园美丽的4字词语 怎样捉到活的深海鱼据说因为压强原因,深海鱼由深海到浅海会死亡.那么假设在海底深处,用一个密闭的箱子将深海鱼与附近的海水完全封闭起来,再取回海面,那么此时深海鱼还可能存活吗?或 深海鱼为什么可以在没有阳光的深海里生活?可是,不是说生物的生活离不开阳光吗? Al(OH)3电离出H+,AlO2-,H2OH+和弱碱的OH-反应生成H2O那么为什么Al(OH)3不能溶于弱碱 改写句子,换用夸张的手法表达这酒啊,真香.夸张:春节来临,商场里人真多.夸张; 怎样把盐水中的盐和水分离开来? Al(OH)3算弱酸还是弱碱?在水里电离出什么? 请用夸张和比喻的手法扩展下面的句子厨房里飘来的饭菜得香味,( )急,急, Al单质与弱酸,弱碱,反应不? 浮力的计算题一物体体积是0.5立方分米,完全没入水中,收到浮力为多少?如果物体重4N,它在水中的状态怎样? 甘肃民勤春季沙尘暴频发的地理原因 AL(oH)3 能和弱碱反应吗?为什么? 描写西湖冬季的诗句如上 电压力锅温控器怎么换?一定要拆下发热盘吗?(美的机械的) ( )的湖泊 ( )的江河 11氯水中通入二氧化硫:生成什么啦?方程式是啥啊~ 电压力锅中间那个温控器是多度电压力锅中间那个温控器是多少度,在锅中央,像电饭锅磁扛那个位置,但它是温控器,看不到字在上面,不清楚,请同行说下,查到了145度,但手头没有,只有165度的,能 那些城市名和河流湖泊有关 有哪些描写冬天西湖景色的诗?作者题目以及诗句 美的智能电饭煲的温控器(磁钢)能用电压力锅的那种温控代替吗?如题,里面的热敏电阻,电压力锅是145,电饭煲看不出来i 欧洲的河流湖泊主要外流河()()注入大西洋的()()主要内流河注入北冰洋的()()主要咸水湖()()主要淡水湖()() 电饭锅用的过程中电饭锅线与电饭锅连接的底座插头那冒烟,有焦味,之后电饭锅线连接的电源插座也没反应把电饭锅换别的电源插座也不能用了,是不是电饭锅和电源插座都坏了啊而且,当时电
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘