ファイルを呼び出して処理する前に、
次のようなコードで存在するかを確認する方がよい。
Dir(****ｱﾄﾞﾚｽ*****)
⇒ ファイルが存在しないなら 空白 になる
⇒ ファイルが存在するなら ファイル名 を取得する
<サンプル>
dim myAdress as string
myAdress = "" ←フルパスを記入
If Dir(myAdress) = "" Then
'指定したディレクトリがない場合
else
'指定したディレクトリがある場合
End If