VB6.0 以前

    ' FileSystemObject (FSO) の新しいインスタンスを生成する
    Dim cFso As FileSystemObject
    Set cFso = New FileSystemObject

    ' Folder オブジェクトを取得する
    Dim cFolder As Folder
    Set cFolder = cFso.GetFolder("C:\Hoge\")

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFso = Nothing

    ' 作成日時を取得する
    Dim dtCreate As Date
    dtCreate = cFolder.DateCreated

    ' 更新日時を取得する
    Dim dtUpdate As Date
    dtUpdate = cFolder.DateLastModified

    ' アクセス日時を取得する
    Dim dtAccess As Date
    dtAccess = cFolder.DateLastAccessed

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFolder = Nothing

    ' 取得したタイムスタンプを表示する
    Call MsgBox("作成日時 : " & CStr(dtCreate))
    Call MsgBox("更新日時 : " & CStr(dtUpdate))
    Call MsgBox("アクセス日時 : " & CStr(dtAccess))