【VBA】フォルダの情報をサクッと取得する方法/VBA関数とGetFolderメソッドとFolderオブジェクト

Sub folderInfoSample()
    Const fileName As String = "C:\Users\xxxx\Documents"
    
    Dim fileDate As Date
    fileDate = FileDateTime(fileName)
    
    Debug.Print "最終更新日時: " & fileDate
End Sub

最終更新日時: 2023/12/04 15:48:41

Sub attrInfoSample()
    Const fileName As String = "C:\Users\xxxx\Documents"
    
    Dim attr As Integer
    attr = GetAttr(fileName)
    
    Dim result As String
    
    If (attr And (vbDirectory Or vbSystem Or vbVolume Or vbAlias)) = 0 Then
        result = "標準ファイル|"
    End If
    
    If attr And vbAlias Then result = result & "エイリアス|"
    If attr And vbArchive Then result = result & "アーカイブ|"
    If attr And vbDirectory Then result = result & "フォルダー|"
    If attr And vbHidden Then result = result & "隠し属性|"
    If attr And vbReadOnly Then result = result & "読み取り専用|"
    If attr And vbSystem Then result = result & "システム|"
    If attr And vbVolume Then result = result & "エイリアス|"
    
    Debug.Print "属性は|" & result & "です"
    
End Sub

Sub getFolderSample()
    Const folderName As String = "C:\Users\xxxx\Documents"
    
    Dim fso As New Scripting.FileSystemObject
    Dim folderObj As Folder
    
    Set folderObj = fso.GetFolder(folderName)
    
    Dim fo As Folder
    Debug.Print folderObj.name & "のサブフォルダー一覧"
    For Each fo In folderObj.SubFolders
        Debug.Print fo.name
    Next
    
    Dim fl As file
    Debug.Print folderObj.name & "のファイルー一覧"
    For Each fl In folderObj.Files
        Debug.Print fl.name
    Next
End Sub

Sub printFolderList(folderName As String, Optional count As Integer = 0)
 
    Dim fso As New Scripting.FileSystemObject
    Dim folderObj As Folder
    
    Set folderObj = fso.GetFolder(folderName)
    
    Dim fo As Folder
   
    For Each fo In folderObj.SubFolders
        Debug.Print String(count, vbTab) & fo.name & "<DIR>"
        printFolderList folderName & "\" & fo.name, count + 1
    Next
    
    Dim fl As file

    For Each fl In folderObj.Files
        Debug.Print String(count, vbTab) & fl.name
    Next
End Sub

Sub getFolderSample2()
    Const folderName As String = "C:\Users\xxxx\Documents"
    printFolderList folderName
End Sub