指定したフォルダの作成日時、最終アクセス日時、更新日時を取得する。

FileSystemObjectのGetFolderメソッドを利用して指定のフォルダの作成日時、最終アクセス日時、更新日時を取得することができます。

GetFolderには下記の引数が設定できます。

	引数名	説明	省略
第１引数	folderspec	確認対象のファイルのパスを指定	不可

フォルダの作成日時、最終アクセス日時、更新日時の情報はGetFolderメソッドで取得したオブジェクトのプロパティから取得できます。
第１引数で指定したパスに実在しないフォルダを指定した場合はエラーとなります。

'******************************************************************
'　フォルダの作成日時、最終アクセス日時、更新日時を取得
'******************************************************************
Sub Main_GetFolderDate()
    
    '確認したいフォルダパスを指定
    Dim sFolder As String
    sFolder = "C:\VBA\FSO"
    
    'FileSystemObjectの作成
    Dim oFso As Object
    Set oFso = CreateObject("Scripting.FileSystemObject")
    
    'フォルダオブジェクトを取得
    Dim oFolder As Object
    Set oFolder = oFso.GetFolder(sFolder)
    
    'プロパティからフォルダの作成日時、最終アクセス日時、更新日時を取得
    Debug.Print "作成日時         - " & oFolder.DateCreated
    Debug.Print "最終アクセス日時 - " & oFolder.DateLastAccessed
    Debug.Print "更新日時         - " & oFolder.DateLastModified
    
End Sub

　■実行結果