实用小程序(2)：一键清空回收站程序

软件世界

王坤 · 2004年1月12日

　　是不是已经厌倦每次清空回收站的点击步骤了？那么就让我们用VB编写一键清除回收站的小程序吧。

　　所用函数：SHEmptyRecycleBin

　　编写程序

　　新建一个窗体，在代码窗口编写以下程序：

　　Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long '声明变量

　　Private Sub Form_Load()

　　SHEmptyRecycleBin Me.hwnd, vbNullString, 0 '使用函数

　　MsgBox "回收站已经清空！", 64, "提示："

　　End

　　End Sub

　　现在把代码编译成EXE文件，然后建立一个快捷方式并设置快捷键(如F7)。

　　好了，测试一下吧。本程序在WinXP+VB6.0企业版调试通过。