dir関数でたくさんあるファイルから読み込みファイルだけをとる方法は？ (ID:84110)

名前

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

本文 試してみたのですが 確かに全てのファイル名を返してしまいました。 dir関数ではないですが これでどうでしょうか？ FileSystemObjectです。 詳しくはヘルプでも見て下さい。 Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("c:\") For Each objFile In objFolder.Files If objFile.Attributes And 1 Then Debug.Print objFile.Name End If Next