■FolderSpecで表されるフォルダが存在しているかを表すブール値を返す
Function FolderExists(FolderSpec As String) As Boolean
VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary
VBA FileSystemObject(ファイルシステムオブジェクト)事前バインディングと実行時バインディング - ray88’s diary
■サンプルコード
Sub Test() Dim FSO As Object Dim MyPath As String 'ファイルシステムオブジェクトをインスタンス化 Set FSO = CreateObject("Scripting.FileSystemObject") MyPath = "C:\Users\デスクトップ\ExcelVBAプロジェクト\FSOテスト" '既に同名フォルダが存在しているかチェック If Not FSO.FolderExists(MyPath & "\test") Then '同名フォルダがなければフォルダを作成する FSO.CreateFolder MyPath & "\test" End If Set FSO = Nothing End Sub