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

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


自动装入注册设置 -VB资料 自己编程模拟 MouseEnter,MouseExit 事件 -VB资料 走进VB6啃一块骨头 做成一个时间限制的测试版 -VB资料 PHP中利用jQuery实现SWF图像上传和裁剪 VB.NET或C#将DataSet快速导出到Excel中 HashSet的equals和hashCode重写问题 PendingIntent实现原理和代码 IntentService实现原理及内部代码 AsyncTask实现原理和内部代码 Neither user nor current process错误 ListView的右边滚动滑块启用方法 Live Wallpaper动态壁纸开发 控制软键盘显示和隐藏 设置Activity大小不再全屏原理 Android面试题,看看你基础如何? Android Canvas绘图抗锯齿解决方法 Android xliff和字符串资源 android.hardware.USB类介绍 Android开发经验谈之应用间数据共享 android_asset这个URL详细使用方法 Android 2.3系统自带高清UI图标下载 设置ScrollView滚动条的颜色 WakeLock使用方法示例代码 Concurrent并发库常见问题总结 Android数据库SQLite性能优化技巧 Android开发之Java设计模式基础篇 Android开发之Java设计模式入门篇 Android开发之Java设计模式 Android开发之Java并发包集合类性能分析 Android开发之Java集合类性能分析 求救:如何將數據庫表中的圖版動態顯示出來放在網頁上 没有工作经验怎么找工作? 请看一个函数代码 散源代码(3)- 网络中两点最短路径 Dijkstra 算法 怎样用HTTP下传一个可执行文件。 请问linux下面怎样读写串口 散源代码(4)- 矩阵乘法动态规划 求救!求救! 如何用VC开发NT/2000下的服务程序? 在SQLPLUS下怎么删除表里的一些字段的空格? 散源代码(5)- N皇后问题回溯法文本动态图示 画饼图? 问一个关于变量作用域的问题? 能不能将word中的表格转换成表单中的表格,并保持格式不变???? VFP问题,为什么老显示文件正在使用 无限惊喜等着你!! 大家有没有这样的经历????? 谁有关于domino的一些资料,请告诉我!3ks 如何让组合框初始显示为某一指定的行??就像vb中使用listindex一样??? 散源代码(6)- 货郎担问题回溯法 散源代码(7)- 求解货郎担问题的分枝限界算法图形演示(v2) 请教windows xp 网络共享问题 你想有额外的收入吗? 如何在SQL Server中,让一个用户作另一个用的别名 谁有skinengine2.0的密码? vc++.net简单问题-必定送分 怎么分割? 紧急求助:(无以为报,奉送点值20分) 散源代码(8)- 动态规划算法计算网络的最长路线和最短路线 oracle 9i支持哪些jdbc驱动? 赚钱秘籍!!! 用ACCESS设计了一报表,在VB中如何调用? 求在CRichEditView中设置位图背景的代码?谢谢! 怎么在一个CStatic上用程序动态显示BMP图片 javabean+tomcat访问数据库,如何配置阿!大虾帮帮我吧!搞来稿去就不行! 我想在运行时把form里面的所有控件缩小一半(控件很多,不想一个一个设),该怎么办? c++builder6快出现了。散分!!!!!!!!!!!!!!!!!!! 如何在程序中插入 EXCEL表格 我是个菜鸟,我这个问题这么这么的简单,以经在CSDN上问了好多好多天,为什么就是没有人会帮我解决? 急,所以到谁圆问一下,.dwg的文件是什么格式,用什么打开,谢谢! 一段读串口的代码有问题,高手帮我看看 紧急求救!!!怎样用C++Builder在链接服务器中创建一个表呢?SOS 特惠虚拟主机:dtp.51.net! 想把一系统内存块拷贝到位于D3DPOOL_DEFAULT的Surface中,怎样做更快?谈谈你的经验吧 在msdn中我看了一下午关于枚举的可就是不明白他到底在什么情况或者处理什么情况的时候用? All-in-Wonder Radeon 是不是不支持 Real Producer???? 用ACCESS设计了一个报表,在VB中如何调用? 支持ASP、PHP高迅特价主机:(推荐)dtp.51.net 套接字问题再次提问 C#参考文档要的举手啊! 怎样做服务程序? (在系统后台运行) 生铁和钢有什么差异? 低碳有什么作用 电金的天王不锈钢表 那个金色电镀容易褪色不?耐磨不?戴过的说说 与生铁相比,钢有什么优良性能? 低碳的作用 手表可以电镀吗?我爸爸给我买了只手表带了2个多月,现在天气热,容易出汗,都掉了不少漆了,也被我摔了好几次,也摔花了,我的手表是全黑全自动机械法拉利牌子的手表,2000多买的,我想拿去电 乒乓球原料是什么塑料粒子 低碳经济对我们的日常生活有什么意义和影响rt,求解!字数500字以上,非常感谢 合金电镀手表和钛合金电镀手表哪个更好? 铸铁的性能 积屑瘤为切削过程中的作用 高额铸铁中各元素作用? 建筑 结构刚度,变形,是不是建筑吸收地震的能量是依靠变形来吸收能量的?所以就要求建筑物上部的刚度要小,让它变形吸收能量?而建筑底层刚度要比上层要大 何谓积屑瘤?它是如何形成的?对切削加工有那些影响? 钛元素与铅元素分别在铸铁中会起到什么破坏性作用 怎么拔丝塑料 在切削过程中,影响切削的三个基本要素是什么 什么烫金纸可以在衣服上烫金 如何加大基础和上部结构刚度看到地质报告里有这么一句话,由于③层粘土土质不均匀(含砂卵石透镜体),建议设计时适当加大基础与上部结构刚度.对这样的问题,有哪些针对措施? 锂电池的芯有什么作用 烫金纸现在什么价格?有么有一个价格的对比? 想办个塑料颗粒厂,原料是造纸厂打浆后的垃圾料,用什么型号的造粒机合适,还有具体还应怎么操作该废料就是造纸厂的废料该怎么处理后才能造粒,如何清洗,清洗废水是否可回用,类似的原料 环保碳性电池的作用?昨天在家里突然看到有GP超霸 的 环保碳性电池,型号是GP1604S-S1,请问哪位知道这种电池一般是用在什么地方的?谢谢了 上海哪家烫金纸做的好? 下列材料中,保温性能最好的是() A、塑料杯 B、铁杯 C、陶瓷杯 蓄电池起什么作用? 烫金纸和烫金泊的区别.他们区别是什么? 我想知道关于塑料颗粒原材料方面的知识谁能告诉我 电解液在电瓶里起什么作用 钻孔时材料的强度,硬度高,钻头直径大时,宜用觉___的切削速度,进给量也应_____. 请帮忙说一下这几个零件的名称和作用, 2. 积屑瘤对粗、精加工有哪些影响?车削塑性大的材料工件时,切削速度在什么范围内易产生积屑瘤? 请问塑料电镀材质是什么? 生铁和钢都是铁的( ),他们的性质不同,用途也不同.在你所知的物品中,( )是由生铁制成的? 谁知道下面这个零件的作用是什么? 切削变形的变化规律,积屑瘤对变形有什么影响 生铁,钢的质地比纯铁___,它们的性能不同,用途也不同,日常生活中大量使用的是 数控车螺纹怎么算螺纹深度数控车床车螺纹,内、外螺纹 的深度怎么算 要具体点 .普车怎么算的? 什么是积屑瘤?它对切削有何影响?如何减小积屑瘤的产生? 塑料颗粒的原材料是什么就是那种做卫浴盖板的那种 铸铁是含碳量大于多少的铁碳合金? 低碳生活在节约资源,保护环境中起着越来越重要的作用.这句话怎么翻译成英语? 乙烯塑料粒子是什么原材料? 铸铁的含碳量是较高的铁碳合金吗? 电镀分几种?分什么真空镀,还有什么来的? 造塑料颗粒的原料都有哪些 铸铁是碳的质量分数为多少的铁碳合金 合成切削液适合切割铝合金的---请推荐,要防锈性好,切割后光亮如新,其它材料也能切割的.适合多种加工工艺的谢谢. 请,中译英这句话:“梁翼缘外拼接板尺寸”!请,中译英这句话:“梁翼缘外拼接板尺寸”! 生铁是铁的合金吗? 用生铁壶有什么好处? 请,中译英这句话:“梁腹板拼接板尺寸及孔口位置”!请,中译英这句话:“梁腹板拼接板尺寸及孔口位置”! 数控车床的切削速度和进给量在编程里怎么表示?是不是只能二者选一(F0.1mm/r或F100mm/min)还是跟主轴有什么关系? 请问生铁壶真的能够起到补铁的作用吗?用煤气炉可以煮吗? 你的脚多大尺码 中译英 低碳好处 已知待加工直径为80毫米,车床主轴转速为400转/分,车刀进给量为0.25毫米/转, 中译英~你家的公寓多大? 低碳的好处 手表电镀金黄色怎么去除
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn