'FolderExistsで調べる
Public Function IsExistDirB(oFso, a_sFolder As String) As Boolean
 If (oFso Is Nothing) Then
  Set oFso = CreateObject("Scripting.FileSystemObject")
 End If

 If (oFso.FolderExists(a_sFolder) = False) Then
'// フォルダが存在しない
   IsExistDirB = False
  Else
'// フォルダが存在する
  IsExistDirB = True
 End If
End Function

前へ 次へ

この情報が含まれているまとめはこちら

【VBA】フォルダからファイル読み込み、ファイル選択画面【マクロ】

Excelでファイルを読み込む方法。単体ブックを読み込むもよし、複数ブックを読み込むも良し。ファイル選択ダイアログもあるよ!そしてフォルダ選択もできるようにするよ!(どんどん追記していく予定)

このまとめを見る