VBA ファイルシステムオブジェクト Folderオブジェクト②（主なプロパティ）

VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary
VBA ファイルシステムオブジェクト・GetFolder - ray88’s diary
VBA ファイルシステムオブジェクト Folderオブジェクト① - ray88’s diary
VBA ファイルシステムオブジェクト Folderオブジェクト③主なメソッド - ray88’s diary

メンバー	読取専用	説明
Property Attributes As FilterAttribute		Folderオブジェクトの属性を表す列挙型FilterAttributeの値
Property DateCreated As Date	〇	Folderオブジェクトが作成された日時
Property DateLasstAccessed As Date	〇	Folderオブジェクトが最後にアクセスされた日時
Property DateLastModified As Date	〇	Folderオブジェクトが最後に変更された日時
Property Drive As Drive	〇	Folderオブジェクトが存在するDriveオブジェクト
property Files As Files	〇	Folderオブジェクトに含まれるFilesコレクション
Property IsRootFolder As Boolean	〇	Folderオブジェクトがルートフォルダかどうかを表すブール値
Property Name As String		Folderオブジェクトのフォルダ名を表す文字列
Property ParentFolder As Folder	〇	Folderオブジェクトの親フォルダであるFolderオブジェクト
Property Path As String	〇	既定のメンバー　Folderオブジェクトのパスを表す文字列
Property ShortName As String	〇	Folderオブジェクトのショートネームを表す文字列
Property ShortPath As String	〇	Folderオブジェクトのショートパスを表す文字列
Property Size As String	〇	Folderオブジェクトの使用容量
Property SubFolders As Foders	〇	Folderオブジェクトに含まれるFolderコレクション
Property Type As String	〇	Folderオブジェクトのタイプを表す文字列

■サンプルコード

Sub test()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim myPath As String: myPath = "C:\Users\デスクトップ\ExcelVBAプロジェクト\FSOテスト"
       
    With FSO.GetFolder(myPath)
        Debug.Print "Name★" & .Name
        Debug.Print "Path★" & .Path
        Debug.Print "ParentFolder.Path★" & .ParentFolder.Path
        Debug.Print "ShortName★" & .ShortName
        Debug.Print "ShortPath★" & .ShortPath
        Debug.Print "DateCreated★" & .DateCreated
        Debug.Print "DateLastAccessed★" & .DateLastAccessed
        Debug.Print "DateLastModified★" & .DateLastModified
        Debug.Print "Attributes★" & .Attributes
        Debug.Print "IsRootFolder★" & .IsRootFolder
        Debug.Print "Size★" & .Size
        Debug.Print "Type★" & .Type
    End With
    
    Set FSO = Nothing
End Sub