VB可以使用DriveListBox 控件，DirListBox 控件和FileListBox 控件組合可查看任何磁盤任何文件夾下的文件數和文件夾數。
DriveListBox 控件，在運行時，由於有
DriveListBox
控件，所以可選擇壹個有效的磁盤驅動器。該控件用來顯示用戶系統中所有有效磁盤驅動器的列表。可以創建對話框，通過它從任壹可用驅動器的磁盤文件列表中打開文件。
DirListBox 控件，
在運行時，DirListBox
控件顯示目錄和路徑。這個控件可以顯示分層的目錄列表。例如，可以創建對話框，在所有可用目錄中，從文件列表打開壹個文件。
FileListBox 控件，在運行時，在 Path
屬性指定的目錄中，FileListBox
控件將文件定位並列舉出來。該控件用來顯示所選擇文件類型的文件列表。例如，可以在應用程序中創建對話框，通過它選擇壹個文件或者壹組文件。
以下是具體代碼：
Private?Sub?Drive1_Change()Dir1.Path?=?Drive1.Drive'設置目錄路徑。
End?Sub
Private?Sub?Dir1_Change()
File1.Path?=?Dir1.Path'設置文件路徑。
Text1?=?File1.ListCount
Text2?=?Dir1.ListCount
Text3?=?Val(Text1)?+?Val(Text2)
End?Sub
Private?Sub?Form_Load()
Dir1.Path?=?Drive1.Drive'設置目錄路徑。
File1.Path?=?Dir1.Path'設置文件路徑。
End?Sub
實施效果：