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

名前

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

本文 何度もすみません。 お気に入りのフォルダの中を一括表示したいのですが、お気に入り（c:\WINDOWS\favorites）内のファイル名は所得できても、フォルダ名を所得できません。 Private Sub Command1_Click() Dim strTargetDir As String Dim strDirItem As String strTargetDir = "C:\WINDOWS\Favorites\" strDirItem = Dir(strTargetDir) Do While strDirItem <> "" Print strDirItem strDirItem = Dir Loop End Sub こんな感じでコーディングしてみたのですけれど・・・。 よろしくお願いします。