全ディレクトリを対象としたファイル検索をするには？ (ID:81082)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 サブフォルダまで含めた列挙には、FileSystemObjectを使うと簡単かも。 Option Explicit Private Sub Command1_Click() Dim strFolder As String strFolder = "C:\Program Files\Common Files\System\" List1.Clear EnumFiles CreateObject("Scripting.FileSystemObject").GetFolder(strFolder) End Sub Private Sub EnumFiles(ByVal ParentFolder As Object) Dim File As Object Dim Folder As Object For Each File In ParentFolder.Files List1.AddItem File.Path Next For Each Folder In ParentFolder.SubFolders EnumFiles Folder Next End Sub