フォルダ 指定フォルダ内のファイルの一覧を取得列挙する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ 指定フォルダ内のファイルの一覧を取得列挙する]
Option Explicit


Sub ファイル列挙(tgtPath As String)
'***********************************************
'指定フォルダ内のファイルの一覧を取得列挙する。
'拡張子指定可能
'***********************************************
'引数:tgtPath には取得列挙するフォルダフルパスを指定

Dim buf As String, i As Long, sht As Worksheet
Dim 拡張子指定 As String

拡張子指定 = "jpg" '指定してください
'指定しない場合は-------------------
'拡張子指定 = "*"
'-----------------------------------

Set sht = ThisWorkbook.Worksheets.Add

    buf = Dir(tgtPath & "\*." & 拡張子指定)
    Do While buf <> ""
        i = i + 1
        sht.Cells(i, 1) = buf
        buf = Dir()
    Loop

Set sht = Nothing

End Sub






Production Japan Import Application. Since 1998