Sub フォルダ情報の取得()
    Dim FSO As New FileSystemObject
    Dim MyFolder As Folder
    Dim MyFile As File
    Dim strFolder As String
    Dim MyPath As String

    strFolder = "Sample"
    
    MyPath = CurrentProject.Path & "\" & strFolder
    Set MyFolder = FSO.GetFolder(MyPath)

    Debug.Print MyFolder.Attributes 'フォルダ属性
    Debug.Print MyFolder.DateCreated 'フォルダ作成日時
    Debug.Print MyFolder.DateLastAccessed 'フォルダ最終アクセス日時
    Debug.Print MyFolder.DateLastModified 'フォルダ最終更新日時
    Debug.Print MyFolder.Drive 'ドライブ
    Debug.Print MyFolder.Name 'フォルダ名
    Debug.Print MyFolder.Path 'パス
    Debug.Print MyFolder.Size 'サイズ
    Debug.Print MyFolder.Type '種類
    
    Set MyFolder = Nothing
    Set FSO = Nothing
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ