VBA｜GetFolderメソッド(ファイルシステムオブジェクト)

  Copy

Option Explicit

Sub ファイルシステムオブジェクト_GetFolderメソッド()

    'ファイルシステムオブジェクトを使うため準備
    '①事前バインディングの場合はVBEのツールより参照設定で「Microsoft Scripting Runtime」にチェックをしてください。
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject

    'Folderオブジェクトを代入する変数を宣言
    Dim FolderObject As Object

    'GetFolderメソッドの使用例
    Set FolderObject = FSO.GetFolder("C:\Users\ユーザー名\Desktop\Test") 'フォルダパスを指定

    'Folderオブジェクトのプロパティを使用する
    Debug.Print "①"; FolderObject.Type 'フォルダ種別
    Debug.Print "②"; FolderObject.Name 'フォルダ名
    Debug.Print "③"; FolderObject.PATH 'フォルダパス
    Debug.Print "④"; FolderObject.DateCreated 'フォルダ作成日時
    Debug.Print "⑤"; FolderObject.DateLastAccessed 'フォルダ最終アクセス日時

    '【フォルダの中のファイル数を調べる】
    'FolderオブジェクトのFilesプロパティを代入する変数を宣言
    Dim FileCollection As Object

    'Filesコレクションを代入する
    Set FileCollection = FolderObject.Files

    'FilesコレクションのCountプロパティを利用する
    Debug.Print "⑥"; FileCollection.Count 'フォルダの中のファイルの数

    '【フォルダの中のフォルダ数を調べる】
    'FolderオブジェクトのSubFoldersコレクションを代入する変数を宣言
    Dim SubFolderCollection As Object

    'SubFoldersコレクションを代入する
    Set SubFolderCollection = FolderObject.SubFolders

    'SubFoldersコレクションのCountプロパティを利用する
    Debug.Print "⑦"; SubFolderCollection.Count 'フォルダの中のフォルダの数

End SubCopy