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コントロールを使って、
参照ボタンをつけてチェックしました。