ファイル 指定したディレクトリ内のすべてのファイルを取得

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル 指定したディレクトリ内のすべてのファイルを取得]
Private Sub フォルダの中にあるすべてのファイルを表示()
'******************************************
'指定したディレクトリ内のすべてのファイルを取得
'******************************************
'*Visual Basic 6.0 及び VBA
'*[参照設定] 「Microsoft Scripting Runtime」チェック
'*FileSystemObject の Files プロパティ

Dim lIndex As Long
Dim hFolder As Folder
Dim hFile As File
Dim Fso As FileSystemObject

Set Fso = New FileSystemObject
Set hFolder = Fso.GetFolder(ThisWorkbook.Path & "\")

    lIndex = 1 '(使用により数値を変更)
        For Each hFile In hFolder.Files
'            Debug.Print hFile.Path’フルパス&ファイル名の場合
            Debug.Print hFile.Name 'ファイル名のみの場合
            lIndex = lIndex + 1
        Next hFile

Set Fso = Nothing
Set hFile = Nothing
Set hFolder = Nothing
End Sub





Production Japan Import Application. Since 1998