#032
本来 Dir 関数は、"*" や "?" のワイルドカードも含めた指定のファイルパターンや属性と一致するファイルやフォルダ名を取得するためのものですが、この Dir 関数はもし一致するファイルやフォルダがない場合には "" (長さ 0 の文字列)を返しますので、これを利用すると指定したファイルやフォルダの存在の有無を調べることができます。
サンプルプロシージャ：
Public Function IsExistFile(strFileName As String) As Boolean
IsExistFile = (Len(Dir(strFileName)) > 0)
End Function
IsExistFile = (Len(Dir(strFileName)) > 0)
End Function
使用例：
Debug.Print IsExistFile("a:\windows\calc.exe")・・・・・・True
Debug.Print IsExistFile("a:\windows\kalk.exe")・・・・・・False
Debug.Print IsExistFile("a:\window\")・・・・・・True
Debug.Print IsExistFile("a:\system\")・・・・・・False
Debug.Print IsExistFile("a:\windows\kalk.exe")・・・・・・False
Debug.Print IsExistFile("a:\window\")・・・・・・True
Debug.Print IsExistFile("a:\system\")・・・・・・False
