#103 ファイルが存在するかどうか調べる方法(FileSystemObject版) VBA

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
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved