Dir関数

Dir（）

あるフォルダーに存在するすべてのファイル名を取得するには、Dir関数にワイルドカード（＊）を指定します。

　下のサンプルコードは、CドライブにあるJAMフォルダー内のすべてのテキストファイル（＊.txt）の名前をアクティブシートに書き出します。Dir関数にワイルドカードを指定すると、まずそのワイルドカードに一致するファイル名が返ります。次に、Dir関数の引数を省略してDir（）を実行すると、同じワイルドカードを指定したものと見なして検索を実行し、次に一致するファイル名が返ります。そして、一致するすべてのファイル名が返ると、Dir関数は空文字（””）を返します。

　そこで、Dir関数が空文字を返すまでループを繰り返せば、該当するすべてのファイル名を取得できます。

---

CドライブのJAMフォルダーにあるファイル一覧を作成

Sub Sample()

Dim buf As String, r As Long

buf = Dir(“C:¥JAM¥*.txt”)

Do While buf <> “”

r = r + 1

Cells(r, 1) = buf

buf = Dir()

Loop

End Sub

 

実行例

 

IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp　ドメイン取るならお名前.com