VBA ファイルシステムオブジェクト Folderオブジェクト①

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

メンバー	読取専用	説明
Function Add(Name As String) As Folder		FolderコレクションにNameで表すフォルダを追加する
Property Count As Long	〇	コレクションに含まれるオブジェクトの数
Property Item(key) As Drive	〇	既定のメンバー　コレクションの要素のうちKeyで参照される単一のオブジェクト

■サンプルコード①(Item/Count)

Sub test()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim myPath As String: myPath = "C:\Users\デスクトップ\ExcelVBAプロジェクト\FSOテスト"
       
    With FSO
        Dim myFolders As Object: Set myFolders = .GetFolder(myPath).SubFolders
        Debug.Print myFolders.Item("hoge").Name 'hoge
        Debug.Print myFolders("fuga").Name 'fuga
        Debug.Print myFolders.Count '3
        Dim myFolder As Object
        For Each myFolder In myFolders
            Debug.Print myFolder.Name
        Next myFolder
    End With
    
    Set FSO = Nothing
End Sub

■サンプルコード②(Add)

Sub test()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim myPath As String: myPath = "C:\Users\デスクトップ\ExcelVBAプロジェクト\FSOテスト"       
    With FSO
        Dim myFolders As Object: Set myFolders = .GetFolder(myPath).SubFolders
        myFolders.Add "piyo"
        .CreateFolder myPath & "\foo"
    End With    
    Set FSO = Nothing
End Sub