#103
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
Dim Fso As Object
'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
'FileExistsメソッドの返り値をプロシージャに返り値にセットします
IsFileExists = Fso.FileExists(strFilePath)
End Function
この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
