Dir関数でフォルダの中を表示するには? (ID:76728)

名前

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

本文 Microsoft Scripting Runtimeの FileSystemObjectオブジェクトのFolderオブジェクトの SubFoldersコレクションをFor Eachでまわす、 という手もあります。 Dim fso As New Scripting.FileSystemObject Dim objFolder As Scripting.Folder Dim objSubFolder As Scripting.Folder Set objFolder = fso.GetFolder("C:\WINDOWS\Favorites\") List1.Clear For Each objSubFolder In objFolder.SubFolders List1.AddItem objSubFolder.Name Next