TITLE: [59] Re: ファイルの存在を調べる方法は? DATE : 2001-02-18 14:32:00 -------------------------------------------------- a-murataさん、こんにちは。 久々のプログラミング・ネタ、わくわくして解決に取り組ましたよ! で、うまくいったのでご報告です。 <準備> フォームに次のコントロールを貼っておいてください。 Text1 :テキストボックス あるかどうかを調べるファイル名を記入する Text2 :テキストボックス 存在チェックの結果を表示するところ Command1:コマンドボタン このボタンを押すとチェックし、結果を表示する File1 :Fileコントロール <コーディング> Command1ボタンをクリックしたときのイベントハンドラにコードを書きます。 -------------------------------------- Private Sub Command1_Click() On Error Resume Next File1.Open Text1.Text, fsModeInput ←とりあえずオープンしてみる If Err.Number <> 0 Then ←エラーがあったかどうかチェック Text2.Text = "Not Found" Else Text2.Text = "File Exist" End If File1.Close On Error GoTo 0 ←エラー処理をクリア(必要かな?) End Sub -------------------------------------- <実行> Text1のテキストボックスに、適当にファイル名を書きます。 そして、Command1ボタンをクリックすると、もしそのファイルがあれば 「File Exist」と、なければ「Not Found」とText2のテキストボックス に表示されます。 こんな感じでいかがでしょうか? 僕の所はうまくいきましたが。 ちなみに僕は、さらにCommonDialogコントロールを使って、 参照ボタンをつけてチェックしました。