【VBA】フォルダを新規作成する

2020.11.06

VBAで
　・フォルダを新規作成
できます！

作成方法は複数ありますが、ここでは
　・「FileSystemObject」を使用する方法
を記載します！

FileSystemObjectは
　・多機能で便利
です！

作成したいフォルダの
　・存在確認を行い
　・存在しない場合のみ新規作成
します！
※存在するフォルダの作成を試みるとエラーとなるため。

VBAコード

ここでは例として、
　・デスクトップ配下にフォルダ「folder_001」を新規作成
します。

Option Explicit

Sub sample()
    
    Dim fso As Object
    Dim folderFullPath As String
    
    '作成するフォルダのパスを指定
    folderFullPath = "C:\Users\user\Desktop\folder_001"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'フォルダの存在確認
    If fso.FolderExists(folderFullPath) = False Then
        '新規作成
        fso.CreateFolder (folderFullPath)
    End If
    
    '後片付け
    Set fso = Nothing
    
End Sub

「FileSystemObject」の「createFolder」メソッドによって、フォルダを作成します。

エラーが発生しないように、作成する前に作成するフォルダの存在確認をしています。

実行結果

フォルダを新規作成できました。

フォルダを新規作成できた
フォルダを新規作成できた

参考①

階層的なフォルダを新規作成することもできます。

詳細は以下の記事をご確認ください。

【VBA】(階層的な)フォルダが存在しない場合、(階層的な)フォルダを作成する
【VBA】(階層的な)フォルダが存在しない場合、(階層的な)フォルダを作成するVBAコードです！
excel-vba.work
2021.11.19

参考②

テキストファイルを新規作成することもできます。

詳細は以下の記事をご確認ください。

【VBA】テキストファイルを新規作成する【シンプル】
【VBA】テキストファイルを新規作成するVBAコードです！【シンプル】
excel-vba.work
2022.02.12

参考③

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「FileSystemObject」の「createFolder」メソッド

CreateFolder メソッド (Visual Basic for Applications)
Office VBA リファレンス トピック
learn.microsoft.com

「フォルダ」と「ディレクトリ」について

どちらも「ファイルの入れ物」です。一般的に
　・Windowsでは「フォルダ」
　・LinuxやMac OS等では「ディレクトリ」
と呼び分けられています。

ただ例えばLinuxにおいて「フォルダ」という言葉を使っても問題無く話が通じるため、あまり気にする必要は無いと考えます。

またWindowsでも昔は(Windows3.1の時は)、「ディレクトリ」と呼ばれていたようです。