【Access】VBAで保存先フォルダが存在しない場合はフォルダを作成する方法

ソースコードの説明

Access VBAでフォルダがあるかをチェックして、フォルダがなければフォルダを作成するコードをご紹介します。

「C:\access」フォルダ内に「test」フォルダがあるかどうかをチェックし、なければ「test」フォルダを作成します。

ただし、「C:\access」フォルダは存在するものとします。

VBAソースコード

Sub DirectorySample()
    Dim strFolder As String
    Dim Fso As Object

    'FileSystemObjectオブジェクトを生成します
    Set Fso = CreateObject("Scripting.FileSystemObject")
    
    strFolder = "C:\access\test"    '判定するフォルダパス
    If Fso.FolderExists(strFolder) = False Then 'フォルダがなければ作成
        MkDir strFolder
    End If
End Sub

Accessマクロ&VBAのプログラミングのツボとコツがゼッタイにわかる本
最新のAccess2019/2016にも対応しているので失敗しない

Rakuten

Amazon

Yahoo！ショッピング