VBA 搜索電腦所有盤文件，問題關鍵：所有盤文件用什麽代碼？

我是初學VBA三天的人，所以沒有什麽特別簡介的方式，這個可以用循環每個磁盤方式實現：

部分代碼：

Set Dic = CreateObject("Scripting.Dictionary") '創建壹個字典對象

Set Did = CreateObject("Scripting.Dictionary") ‘我自己程序後面要用的，這部分不涉及這個

WP = InputBox("請輸入解除路徑，如：H:\") '輸入路徑

'用來測試檢測所有盤符============================

If WP = "" Then

For c = Asc("A") To Asc("Z")

K = Chr(c) & ":\"

Dic.Add (K), ""

Next

Else

Dic.Add (WP), ""

End If

我這段代碼是指WP變量為輸入某磁盤，如果輸入是空的，就使用循環的方式從A盤添加到Z盤的所有文件夾（涵蓋所有盤）。

但是經過測試，電腦中的文件夾太多，這麽運行壹次，基本就卡機了，所以個人建議壹個壹個盤手動添加。