Folderオブジェクト - Filesプロパティ

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. Folderオブジェクト

【書式】

Folder.Files

フォルダ内に存在する全てのファイルを返します。

返り値は全てのFileオブジェクトを含むFilesコレクションです。

Sub test43()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Workフォルダ内に保存されているファイルの個数を表示します
    MsgBox FSO.GetFolder("C:\Work").Files.Count
    Set FSO = Nothing
End Sub