広告
広告
フォルダ存在確認関数。フロッピーの挿入確認、出力先の存在確認などにどうぞ。
第一引数 | フォルダ名(フルパス指定) as String |
---|---|
戻り値 | IsFolderExists as Boolean |
Option Compare Database Public Function IsFolderExists(strFolder As String) As Boolean Dim objFso As Object Set objFso = CreateObject("Scripting.FileSystemObject") IsFolderExists = objFso.FolderExists(strFolder) End Function
広告