用VB編寫簡單的程式來清空文件選單 (轉)

用VB編寫簡單的程式來清空文件選單 (轉)[@more@]文件選單放的是我們最近使用的的快捷方式，它所對應的目錄在 95（或）目錄下的Recent目錄。當我們不在需要這些快捷方式時，我們可以清空文件選單。
清空文件選單的方法有兩種。方法一：選擇“開始選單→設定→工作列和開始選單”（或右擊工作列選擇“屬性” ），彈出“工作列 屬性” ，再選擇“開始選單→清除” 。方法二：在裡選定C:PWIN95RECENT目錄（假設你的WINDOWS 95安裝在C:PWIN95目錄下），然後把Recent目錄裡的檔案全部選擇並刪除它們。
遺憾的是這兩種方法都比較麻煩，能不能有一種簡便的方法，只點一下滑鼠就完成清空文件選單的辦法呢？按照一下的步驟試試：
1. 在 5.0中新建一個工程。
2. 在程式碼視窗中鍵入以下程式碼：
Private Sub Form_Load()
'如果文件選單非空
  If Dir("c:pwin95recent*.*") <> "" Then
  Kill ("c:pwin95recent*.*")
  MsgBox "文件選單已清空！", vbOKOnly, "清空"
  Unload Form1
  Else
  MsgBox "文件選單本來為空！", vbOKOnly, "清空"
  Unload Form1
  End If
End Sub
 注意：請將上面程式中的c:pwin95換成你的Windows 95（或Windows 98）所在的目錄。
3. 儲存工程為“清空文件.vbp”並選擇“檔案→生成清空文件.exe”
4. 把生成的清空文件.exe放到桌面上或開始選單裡。
這樣你就可以用簡單的方法完成清空文件選單的任務了。
如果你用的是Windows98，還可以把清空文件.exe放到計劃任務中，以便實現自動清空文件選單的功能。