FSO フォルダを作成、Add、CreateFolder

このコードは、FileSystemObject (FSO) を使用して新しいフォルダを作成する方法を示しています。

' FSO フォルダを作成、Add、CreateFolder
Private Sub FSO_Add_CreateFolder()
    ' 参照設定「Microsoft Scripting Runtime」必要
    With New FileSystemObject
    ' 以下は、参照設定有無にかかわらず使用可
    'With CreateObject("Scripting.FileSystemObject")
        Dim myPath As String
        myPath = "C:\TEMP"
        Dim myFolders As Folders
        ' 指定されたパスのサブフォルダのFoldersコレクションを取得
        Set myFolders = .GetFolder(myPath).SubFolders
        
        ' myFoldersコレクションに新しいフォルダ"piyo"を追加
        myFolders.Add "piyo"
        ' 指定されたパスに新しいフォルダ"foo"を作成
        .CreateFolder myPath & "\foo"

    End With
End Sub

コードの詳細な説明

1. FileSystemObjectの作成:With New FileSystemObject
   ここでは FileSystemObject の新しいインスタンスを作成しています。このオブジェクトを使ってファイルシステムにアクセスします。
2. フォルダのパスを設定:Dim myPath As String myPath = "C:\TEMP"
   変数 myPath に操作対象となるフォルダのパス（ここでは “C:\TEMP”）を代入します。
3. サブフォルダの取得:Dim myFolders As Folders Set myFolders = .GetFolder(myPath).SubFolders
   指定されたパスのフォルダ（”C:\TEMP”）内のサブフォルダのコレクションを myFolders に設定します。
4. 新しいフォルダを追加:myFolders.Add "piyo"
myFolders コレクションに新しいフォルダ “piyo” を追加します。これにより、”C:\TEMP” フォルダの中に “piyo” という名前の新しいフォルダが作成されます。
5. 新しいフォルダを作成:.CreateFolder myPath & "\foo"
   指定されたパス（”C:\TEMP\foo”）に新しいフォルダ “foo” を作成します。これにより、”C:\TEMP” フォルダの中に “foo” という名前の新しいフォルダが作成されます。

このコードを実行すると、指定されたパス（”C:\TEMP”）内に “piyo” と “foo” という2つの新しいフォルダが作成されます。myFolders.Add メソッドは、既存のフォルダのサブフォルダコレクションに新しいフォルダを追加するために使用され、CreateFolder メソッドは指定されたパスに新しいフォルダを作成するために使用されます。

Follow me!