広告
広告
フォルダ存在確認関数。フロッピーの挿入確認、出力先の存在確認などにどうぞ。
| 第一引数 | フォルダ名(フルパス指定) 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
広告