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

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


Windows外壳扩展编程-Delphi资料 避免二次运行-Delphi资料 编程实现文件关联-Delphi资料 编写定制的文件流实现文件读写加密-Delphi资料 采用多线程进行数据采集-Delphi资料 产生临时文件名-Delphi资料 程序不出现在任务栏-Delphi资料 程序缩小为任务条右下角的小图标-Delphi资料 得到 Windows 用户名和序列号-Delphi资料 得到windows临时路径-Delphi资料 得到Windows用户名和序列号-Delphi资料 得到计算机的名字和ip-Delphi资料 得到内存的 Status-Delphi资料 得到上一个激活的组件-Delphi资料 得到在内存中运行的所有应用程序的handle-Delphi资料 调用控制面板项目大全-Delphi资料 动态改变当前显示模式-Delphi资料 动态改变屏幕分辨率-Delphi资料 动态建立不常用的对象-Delphi资料 对控制面板进行操作-Delphi资料 返回程序执行参数-Delphi资料 防止 Win95 显示严重错误-Delphi资料 改变操作系统日期-Delphi资料 改计算机名-Delphi资料 关闭 Windows-Delphi资料 关闭外部应用程序-Delphi资料 监视剪贴板内容-Delphi资料 检测磁盘是否变化-Delphi资料 检测驱动器容量-Delphi资料 检查驱动器是否就绪:-Delphi资料 建立简单的任务栏应用程序-Delphi资料 请教大家Database Desktop中的Autoincrement类型字段不能自动清零的问题 在word文档中使用active控件引发的问题,请大家帮忙,急!!! 帮忙一下! 大家帮帮我吧! 我手头没有winxp光盘,可现在想安装IIS,谁能帮我,好象单独copy几个文件给我也行 关于表单嵌套问题,50分相送! 怎么传递参数给Midas服务器查询? 散个关于时间计算代码让大家品评!给分! 请问如何得到inifile文件的所有小节名? 本是学计算机的!现在却要去教书了!IT梦想泡汤了!! 真诚求解:关于校园局域网得ip地址与网外ip地址得关系问题 谢谢! 在两个web application之间能不能通过session传对象? 怎么把weblogic用向导创建的域删掉,重新配置 简单的问题:关于符号' " & 在word文档中使用active控件引发的问题,想请大家帮忙。急!!! 为什么G.723.1 在DShow里面用不了? 大虾呀、小弟我求救呀!快来帮帮我!郁闷呀! 我安装了win2003后,为什么声音驱动装不了? release为何不行? 在delphi中如何得到mysql里所有的数据库名?急!在线等!! 怎样获得例如另一个网页的内容,然后部分现实,原理是什么 怎样获得例如另一个网页的内容,然后部分显示,原理是什么 100分求MSDN下载地址!!! 菜鸟苦难,高手达人入,简单问题! 我有白头发了,你们也? 请教一个关于datagrid的弱弱的问题 DirectShow中通过摄像头获取图像,如何改变分辨率 关于Win2000做服务器,Win98做客户端,在98中如何设置连接Internet的问题? 我的php是怎么回事呀? 如何访问带密码的Access数据库? 关于程序员的数组方面的问题? 救菜鸟!给个范例! 为什么我在XP下文件夹加密加不了? 在word文档中使用active控件引发的问题。急!!! 我在我的frame中的一个页面中用一个button的onClick="javascript:window.close()"怎么关闭不起作用呢? 帮帮我吧,我asp刚入门,就要做网站,感觉心里好没底...... 红色紧急求救 我在北京找工作,各位仁兄帮帮看看 如何在窗体中动态生成组件? 如何实现显示在线者的信息,如注册会员多少人,访问者多少人等等(附三问) 50分求救,哪里有下载免费的VB6中文版? 求救!!!!!!!!!高分!! 大家进来看看这个效果怎么做! 哪能找到关于网络侦听的源程序?用VC做的,谢谢! 九月份就大四了,要分方向了,大家给点意见? 如何禁用ie选项中的“显示友好的http错误信息” 接了一个小小的酒店管理系统,问一下,值多少钱?(可别说我做坏了市场:)) 程序员考试的资料在哪下载?(.pdg的文件用什么阅读?) 我下载了JDK1.4.1_03安装以后JDK目录里没有1.3的Javac文件呀? 新手的问题(asp的源代码): vector&父类子类的问题 1.如图,AB⊥MN于B,CD⊥MN于,AB=CD,MB=NDZ.试说明;△ABN≌△CDM 囫囵吞枣,张冠李戴, 香农定理的意义 两条垂线的交点叫什么? 小明和小红玩下面的游戏:他们轮流在黑板上写一个数字,小红先开始,每一个接下去的数字都写在已经在黑板上的数字顺序的左边或右边.证明:小红可以避免在小明把数字归零之前写出一个 有一篇英语阅读不会做...急呀...Don’t you find fewer and fewer animals can be seen in nature?Do you know more and more animals are in danger of disappearance?How to protect the endangered animals is a great problem for us all.I personally 如图,点B在MN上,过线段AB的中点O作MN的平分线,分别交∠ABM的平分线和∠ABN的平分线于点C、D.求证:(1)△BCD是直角三角形;(2)四边形ACBD式矩形. “囫囵吞枣”“张冠李戴”“饱经风霜”的意思是什么? 看看对不——一篇英语阅读 已知:如图所示,点B在MN上,过AB的中点O作MN的平行线,分别交∠ABM的平分线和∠ABN的平分线于C,D.求证:四边形ACBD是矩形 大家帮我一道题:甲乙两人轮流在黑板上写下不超过10的自然数规定不能写已写过的数的因数.最后不能写的人输,怎样取胜? 英语翻译Monsoons are strong winds affecting the weather of several Asian countries.From April to October,the summer monsoon moves from the southwest to the northeast,starting in India and continuing through several Southeast Asian countries.In th 已知:如图所示,点B在MN上,过AB的中点O作MN的平行线,分别交∠ABM的平分线和∠ABN的平分线于C,D.求证:四边形ACBD是矩形 甲、乙两人轮流在黑板上写上不超过14的自然数,书写规则是:不允许写在黑板上写过的数的约数,轮到书写人 英语翻译``这个是一个很严肃的问题,请大家认真回答! 如图,点B在MN上,过AB的中点M N的平分线,分别交角ABM的平分线和角ABN的平分线于点C D如图,点B在MN上,过AB的中点M N的平分线,分别交角ABM的平分线和角ABN的平分线于点C D, 判断四边形ACBD的形状并证 在一高塔上,一人水平伸出手,以10m/s的初速度竖直上抛一石子,手离地面的高度为15m,g=10m/s^2,试求:(1)石子到达最高点所需的时间 (2)石子落回抛出点的速度 把“我比想象中更爱你”翻译成英文…谢谢! 如图,点B在MN上,过AB的中点O作MN的平行线,分别交角ABM的平分线和角ABN的平分线于点C,D.试判断四边形ACBD的形状,并证明你的结论.这道题网上有答案,但我不知道为什么cbd等于90度 思维品质训练与提高 第52页 1、某酒店九月份的营业额36000元,如果按营业额的3%缴纳营业额。九月份这个酒店应缴纳敬业税款多少元?2、小张五月份的收入为4500元,税法规定收入总额超过12 香农定理的物理背景是什么? 通俗的告诉我OPGW与ADSS区别? 甲乙轮流写下不超过10个自然数,禁止写过的数的约数,最后不能写的人失败,甲第一个写,谁一定获胜?怎样获胜.0也是自然数 Eddy在名字中翻译为汉语是什么意思? 为什么输电线路同步架设OPPC及OPGW光缆时要在两端采用ADSS无金属光缆 甲乙轮流写下不超过10的自然数,禁止写已写过数的约数,最后不能写的失败,若甲先写,甲写数字()时,必甲写数字()时,必胜。其中,此数字不一定是一个。 求古诗《竹阁》- 苏轼 苏轼竹阁海山兜率两茫然,古寺无人竹满轩.白鹤不留归后语,苍龙犹是种时孙.两丛恰似萧郎笔,十亩空怀渭上村.欲把新诗问遗像,病维摩诘更无言. 去掉或添上1个字母,使其变成另一个单词.sing---( ) tea--( ) 尽量是六年级的单词. 数学上怎么区分上凹 下凸 上凸 下凹如f(X)的一次导数小于0,二次导数大于0.则是那一种类型.你们说的都含糊不清啊,怎么精确判断四种情况,当一次导数大于或小于0,二次导数大于或小 泰戈尔诗集点评 同志们 世界水资源丰富的地区主要分布在---地区,其中水资源总量最丰富的大洲是--,人均占有量最多的大洲是---;水资源最贫乏的地区主要分布在--地区,其中水资源总量最少的大洲是---,人均占有量 圆是凸图形还是凹图形,说明理由 甲乙两人轮流在黑板上写上不超过14的自然数.书写规则是:不允许写黑板上已写过的数的约数轮到书写人无法再写时就是输者.现甲先写,乙后写,谁能取胜?应采取什么对策?有没有类似题目的 某同学为验证PH对酶活性的影响,设计了如表中的方法步骤.下列评价中合理的是:A.缺少正常pH的对照组B.新鲜唾液没有再做稀释C.检验结果的试剂选择恰当D.实验操作步骤的安排不合理 五年级共有学生312人,选出男生的11分之1和24名女生参加竞赛,剩下的男生是女生的2倍,五年级男,女生各有多少 我想我是疯了不然怎么会这样英文怎么说 节能灯有哪几种?、、、、、、、、、、 y=2x²-5x+2图像与X轴交点的坐标是多少和2x²-5x+2>0的解集是多少? 已知:AD=BC,BE⊥AC于E,DF⊥AC于F,且BE=DF,求证:1.△ABE全等与△CDF;2.AB=CD;3.AB平行CD, 大家帮忙设计下炫舞舞团名字,现叫青青子衿,加点符号,最好带职位名称, 囫囵吞枣比喻什么 两条直线相交,四个交角中的一个锐角或一个直角称为这两直线的夹角,如果在平面上画N条直线,要求它们两两相交,并且夹角只能是15度,30度,45度,60度,75度90度之一.求:N的最大值是多少? 第五题和第七题怎么写 囫囵吞枣常用来比喻什么 两条直线相交成的四个角有可能都是锐角.(对还是错).{写好的加财富} 【初中数学题】不等式1.5x + 3小于等于0的解集,与函数y=1.5x+3的图像有什么关系? y=-1/3x,y=2x,y=7/2x,y=-5x的图像哪个最靠近Y轴,有什么规律? 两条直线两两橡胶而成的锐角或直角称为两条直线的夹角.现平面上有若干条两两相交而.现平面上有若干条两两相交而且夹角上只能是30°60°或90°问至多有()条直线 函数y=log1/3(x^2-6x+5)的单调递增区间为为什么不是(1,3) 囫囵吞枣的比喻意义是什么 平面上有8条直线两两相交,试证明在所有的交角中至少有一个角小于23度. 如果AB垂直于点B,CD垂直于MN于点D,BP平分角ABN,DQ平分角CDN,说明BP平行于DQ 节能灯都用什么销售模式 两条直线相交可以形成四个( ) A.锐角 B.钝角 c.直角 如图,AB//DC,BE、DF分别平方角ABN与角CDN.(1)角1与角2的大小有 何关系?为什么?(2)BE与DF平行吗?为什么?平方变成平分 甲乙做游戏,依次轮流在黑板上写数字,每人每次写一个数字,自左至右排成一行,甲先写,若某人写过甲乙做游戏,依次轮流在黑板上写数字,每人每次写一个数字,自左至右排成一行,甲先写,若某人 求对香农第二定理的理解根据香农第二定理陈述:我理解的是总可以找到一种编码,让信道的信息速率接近于理想,同时又可以最小错误译码概率Pmin达到任意小.但是我们知道信息的有效性(信 我要几篇200字左右的周记啊!不用太好的 如图四边形ABCD是边长为5的正方形,以BC的中点O为原点,BC所在直线为x如图①,四边形ABCD是边长为5的正方形,以BC的中点O为原点,BC所在直线为x轴建立平面直角坐标系,抛物线y=ax^2(a≠0)经过A,O,D三点 香农三大定理 安倍称亚洲国家都担心中国 日本应领导国际晚班车:美国与沙特进入公开紧张状阿富汗士兵与北约部队26日发生武装冲英国公务员薪酬制度注重个人能力且具等中国首次成功研发H7N9禽流感病毒疫世界主要城市10月27日天气预报俄总理说中国是俄非常重要和可靠的战略美国与沙特进入公开紧张状态 多重分歧美国与沙特进入公开紧张状态 多重分歧伊朗处死16名反政府组织囚犯 回应边西班牙华商遭警察勒索殴打 寻求律师援奥巴马参观学校旁听课程 揶揄国会议员冯小刚:春晚我打算娱乐大众,每天想如冯小刚否认说过由着性子办春晚:我没傻央视马年春晚时长缩减至4小时 明星没安倍称担心中国加强军备 日本应领导亚安倍称担心中国加强军备 日本应领导亚伊朗处死16名反政府组织囚犯 回应边奥巴马参观学校旁听课程 揶揄国会议员义乌26日清晨发生爆炸凶杀案 已有一安倍称担心中国加强军备 日本应领导亚王晓鹰《离去》对话莎士比亚 呼唤家庭“野菜孤儿”两版本谁在调戏社会爱心放松航空管制让百姓得利看病不看医生职称,还能看什么?小学生的“催命围观”跟谁学的?陈光标的慈善是有问题的慈善新疆积极探索构建“丝绸之路经济带核心开放包容 合作共赢――各界人士高度评新疆伊犁河谷遭遇近19年来最严重干旱中山大学迎来艺术家许鸿飞“肥女人”雕新疆积极探索构建“丝绸之路经济带核心综述:欧委会主席人选提名一波三折开放包容 合作共赢――各界人士高度评天津持续发力“抢单”北京“动批”市场黑龙江现代化大农业场景“震撼”产粮大大西高铁太原南至西安北段即将开通运营“上海货”巧依“文化牌” 重振辉煌泰安28岁年轻父亲患上白血病 母亲欲济南首届交通安全普法教育巡回展将于7广西将扩大农村小学教师免费师范生培养“脑卒中早期预警与脑血管健康管理”多
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘