VBA：フォルダー内のファイル名を全て取得・配列に格納する方法

by chasou_tech · 公開済み 2024年3月17日 · 更新済み 2024年3月18日

１．やりたいこと

指定したフォルダー内にあるファイル名を全て取得したい。

２．サンプルコード

以下のVBAを組み込めばフォルダー内のファイル名を取得できます。
後は、取得したファイルごとにコピペなど何かしらの処理を入れたり、配列に入れたりして利用ができます。

Sub ファイル名取得()
    Dim buf As String
    Dim cnt As Long
    Dim chkPath As String
    
    chkPath = "C:\Users\xxx\テストフォルダー"
    
    buf = Dir(chkPath & "\*")
    Do While buf <> ""
        cnt = cnt + 1
        '//ひとまずイミディエイトウィンドウに表示するようにしておきます。'
        Debug.Print buf
        buf = Dir()
    Loop
End Sub

Sub ファイル名取得()

Dim buf As String

Dim cnt As Long

Dim chkPath As String

chkPath = "C:\Users\xxx\テストフォルダー"

buf = Dir(chkPath & "\*")

Do While buf <> ""

cnt = cnt + 1

'//ひとまずイミディエイトウィンドウに表示するようにしておきます。'

Debug.Print buf

buf = Dir()

Loop

End Sub

配列に格納する場合

Sub ファイル名取得()
    Dim buf As String
    Dim cnt As Long
    Dim chkPath As String
    Dim FileArray() As String
    
    chkPath = "C:\Users\xxx\テストフォルダー"
    
    buf = Dir(chkPath & "\*")
    Do While buf <> ""
        ReDim Preserve FileArray(cnt)
        FileArray(cnt) = buf
        cnt = cnt + 1
        buf = Dir()
    Loop
End Sub

Sub ファイル名取得()

Dim buf As String

Dim cnt As Long

Dim chkPath As String

Dim FileArray() As String

chkPath = "C:\Users\xxx\テストフォルダー"

buf = Dir(chkPath & "\*")

Do While buf <> ""

ReDim Preserve FileArray(cnt)

FileArray(cnt) = buf

cnt = cnt + 1

buf = Dir()

Loop

End Sub

VBA：フォルダー内のファイル名を全て取得・配列に格納する方法

１．やりたいこと

２．サンプルコード

配列に格納する場合

おすすめ

カテゴリー

プロフィール

Facebook

チャイ専門店　茶窓

Blog＆SNS

写真の販売

【PR】サーバー・PC購入はこちらから

ブログについて

最近の投稿

VBA：フォルダー内のファイル名を全て取得・配列に格納する方法

１．やりたいこと

２．サンプルコード

配列に格納する場合

おすすめ

VBA：文字列の変換（２）全角と半角、ひらがなとカタカナ。先頭大文字変換。StrConv関数

VBA：【Selenium】Selenium Basicのインストールから設定まで

VBAツール：【Excel】フォルダ容量一括チェックツール

カテゴリー

プロフィール

Facebook

チャイ専門店 茶窓

Blog＆SNS

写真の販売

【PR】サーバー・PC購入はこちらから

ブログについて

最近の投稿

チャイ専門店　茶窓