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