#104
FileSystemObjectのメソッドである"FolderExists"を使って、引数にフルパスで指定したフォルダがディスク上に存在するかどうかを返すサンプルプロシージャです。フォルダがある場合はTureを、ない場合はFalseを返します。
Public Function IsFolderExists(strFolder As String) As Boolean
Dim Fso As Object
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
'FolderExistsメソッドの返り値をプロシージャに返り値にセットします
IsFolderExists = Fso.FolderExists(strFolder)
End Function
Dim Fso As Object
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
'FolderExistsメソッドの返り値をプロシージャに返り値にセットします
IsFolderExists = Fso.FolderExists(strFolder)
End Function
