用VB編寫簡單的程序來清空文檔菜單

2024-09-09 00:46:46

字體：大中小

來源：轉載

供稿：網友

文檔菜單內存放的是我們最近使用的文件的快捷方式，它所對應的目錄在WINDOWS 95（或WINDOWS 98）安裝目錄下的Recent目錄。當我們不在需要這些快捷方式時，我們可以清空文檔菜單。

清空文檔菜單的方法有兩種。方法一：選擇“開始菜單→設置→任務欄和開始菜單”（或右擊任務欄選擇“屬性” ），彈出“任務欄屬性” ，再選擇“開始菜單程序→清除” 。方法二：在資源管理器里選定C:/PWIN95/RECENT目錄（假設你的WINDOWS 95安裝在C:/PWIN95目錄下），然后把Recent目錄里的文件全部選擇并刪除它們。

遺憾的是這兩種方法都比較麻煩，能不能有一種簡便的方法，只點一下鼠標就完成清空文檔菜單的辦法呢？按照一下的步驟試試：

1. 在Visual Basic 5.0中新建一個工程。
2. 在代碼窗口中鍵入以下代碼：
Private Sub Form_Load()
'如果文檔菜單非空
    If Dir("c:/pwin95/recent/*.*") <> "" Then
        Kill ("c:/pwin95/recent/*.*")
        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放到計劃任務中，以便實現自動清空文檔菜單的功能。

上一篇：Android底層移植課程

下一篇：新買的電腦ghost XP藍屏，裝WIN7、WIN8、WIN10正常