フォルダがあるか確認チェックしてなければ作る

トップページ（目次）

007.フォルダがあるか確認チェックしてなければ作る

＜実行前後＞

→

Sub フォルダがあるかチェックしてなければ作る()
    
    Set フォルダ = CreateObject("Scripting.FileSystemObject")
    
    If フォルダ.FolderExists("C:\Aフォルダ\") Then
        'Aフォルダがあるので何もしない
    Else
        フォルダ.CreateFolder ("C:\Aフォルダ\")
    End If

End Sub

フォルダ = CreateObject("Scripting.FileSystemObject") はとりあえず気にしない。