フォルダを作成する【CreateFolderメソッド】【FileSystemObject】【ExcelVBA】

構文

Object.CreateFolder(FolderName )

CreateFolderメソッドのサンプルコード

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■"C:\sample1"をフォルダ生成する
    fso.CreateFolder "C:\sample1"
    
    '■"C:\sample2"をフォルダ生成する
    fso.CreateFolder "C:\sample2\" '最後が円マークでも生成する
    
End Sub

注意点

• 既にフォルダがが存在していければエラー発生します。FolderExistsで事前確認必要です。
  実行時エラー58「既に同名のファイルが存在します」

関連記事

• ファイル名と拡張子を分けて取得する【FileSystemObject】
• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• サブフォルダを取得する【SubFoldersプロパティ】【FileSystemObject】
• フォルダを削除する【DeleteFolderメソッド】【FileSystemObject】
• フォルダをコピーする【CopyFolderメソッド】【FileSystemObject】
• フォルダを移動する【MoveFolderメソッド】【FileSystemObject】