Dirファイル検索後、ファイル消失時のエラーを回避するには？ (ID:79617)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも、いろいろ参考にさせていただいております。 私は、ＶＢ６初心者です。環境はＷｉｎ２０００Ｐｒｏです。 質問内容は、下記プログラムのように、Ｄｉｒ関数でファイル検索した直後に、 対象のファイルが削除された時、「ファイルがありません」で、アプリケーション が強制終了してしまいます。（ほんのタイミングで、重なった時です。） Ｄｉｒ関数後、そのファイルを実際使用するまでに、ファイルが消失した際の 回避方法があれば教えて下さい。 アプリケーションが止まらない方法であれば助かります。 よろしくお願いします。 ●ファイルコピー時 Myfile = Dir("c:\abc.jpg") <==ここではＯＫだが If Myfile = "abc.jpg" Then ifファイルがあったら… FileCopy "c:\abc.jpg", "c:\123.jpg" <==このタイミングで消失 End If ●イメージ表示時 Myfile = Dir("c:\abc.jpg") <==ここではＯＫだが If Myfile = "abc.jpg" Then ifファイルがあったら… Image1.Picture = LoadPicture("c:\abc.jpg") <==このタイミングで消失 End If