以下是提取資料夾下所有檔名的VB程式碼，它可以輕易得到一個資料夾的所有檔名，這個程式碼是提取C盤根目錄下所有檔名，你就要改一下，就可以提取其它檔案裡的所有檔名。
在窗體上畫一個按鈕，輸入以下VB原始碼，執行後點擊按鈕，就會在窗體上輸出C盤下所有檔名。
Private Sub Command1_Click（）
Dim d As New Collection ‘宣告一個集合
Dim f
f = Dir（“C：\*。*”） ’返回C盤目錄下第一個檔案，這裡可改成別的資料夾名
d。Add f ‘將找到的第1個檔名新增到集合裡
Do While f <> “” ’迴圈查詢所有檔案
f = Dir
d。Add f ‘將找到的檔名新增到集合
Me。Cls ’清屏，然後在窗體上輸出所有檔名
For Each f In d
For i = 1 To Len（f）
If Left（Right（f， i）， 1） = “。” Then Exit
If InStr（f， “。”） <> 0 Then
If InStr（f， “。scf”） <> 0 Or InStr（f， “。lnk”） Or InStr（f， “。url”） Then
f = Left（f， Len（f） - i）
End
Print f
Next
End Sub
End If
End If
Print f
Next
End Sub
