実行時エラー”76” パスが見つかりません。

Question

前提・実現したいこと

Visual Basic 6.0を使用しています。
やりたいことは下記二点です。

①「読込みファイル」に指定されたファイルを読込む。
②「ファイル内容」のリストボックスに、ファイルから読み込んだ内容を出力する。

エラーの修正ができず困っています。
パスは指定できているはずなんですが、
何がいけないのでしょうか。

初心者かつ、曖昧な表現ですみません。

発生している問題・エラーメッセージ

実行時エラー”76”　パスが見つかりません。
 Open strFileName For Input As #iFileNumber

該当のソースコード

Private Sub cmdRead_Click()
       
    Dim iFileNumber As Integer
    iFileNumber = FileSystem.FreeFile()
    
    Dim cFso As FileSystemObject
    Set cFso = New FileSystemObject
    
    
    ' ファイルパスからファイル名を取得する
    Dim stFileName As String
    stFileName = cFso.GetFileName("c:\tmp\read.txt")

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFso = Nothing

    ' ファイル名を表示する
    Call MsgBox(stFileName)
    

    ' ファイルを開く
    strFileName = "c:\tmp\read.txt"
    
    ' ファイルオープン
    intNo = FreeFile()
    Open strFileName For Input As #iFileNumber

    Dim stResult As String

    ' ファイルを 1 行ずつ読み込む
    Do While (Not FileSystem.EOF(iFileNumber))
    
        Dim stBuffer As String
        Line Input #iFileNumber, stBuffer
        stResult = stResult & stBuffer & vbNewLine
        MsgBox stBuffer
        ListBox1.AddItem stBuffer, stResult
    Loop
    
       Close #iFileNumber
       Call MsgBox(stResult)
   

       
End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[YAmaGNZ]

C:\tmpってフォルダがありますか？
C:\tmp\read.txtってファイルがありますか？

[pichipichi1]

YAmaGNZさん
コメントありがとうございます。

ご質問の回答ですが、
フォルダ、ファイルともにあります！

Answer 1

実際に提示されたコードを実行しましたが、ファイルやフォルダが正しく存在した場合エラーは出ませんでした。
指定しているフォルダがない場合（今回の場合は「c:\tmp」）に「パスが見つかりません」のエラーとなります。
フォルダは存在するがファイルがない場合は「ファイルが見つかりません」となります。

下記ソースは全体の存在のチェックしかしていませんが、

    ' ファイルを開く
    strFileName = "c:\tmp\read.txt"

    ' ファイルが存在しているかどうか確認する
    If Dir(strFileName) = "" Then
        Call MsgBox("ファイルは存在しません")
    End If

    ' ファイルオープン
    intNo = FreeFile()

としてみたらどうなりますか？

Comments

[pichipichi1]

ファイルが存在しているかを確認するため、コードを記述いたしました。

結果は、「ファイルが存在しません。」となりました。

再度、C:\tmpってフォルダが存在しているか、C:\tmp\read.txtってファイルがあるかの二点を確認しましたが、両方存在しているんですが、、。
エラーで表示されてしまっている以上、ファイルが存在しないということなので、
もう一度最初から確認致します。

[YAmaGNZ]

例えばtmpが全角だったり、tempだったりと微妙に違ったりしませんかね？
実際に存在するフォルダをエクスプローラで開いて、アドレスバーの部分のパスをソースにコピペしてみてはどうなりますかね？

[pichipichi1]

大変返答が遅くなってしまい申し訳ありません。
全角や半角、存在数ファイルパスをコピぺしたりと確認しましたが、やはりエラーが出てしまいました。
ファイルの読込みはできているらしく、ファイル名を画面のテキストボックスに入力されたファイルパスを指定するといいとアドバイスをいただきました。
ただ、VBAと混ざってしまいVB6での書き方がわかりません。どこを直せばいいのでしょうか。

[YAmaGNZ]

「ファイルの読込みはできているらしく」とありますがどういう事象を確認して読込ができていると判断されたのでしょうか？
質問で書かれているのはファイルを読み込む前の
Open strFileName For Input As #iFileNumber
で「実行時エラー”76”　パスが見つかりません。」というエラーが発生しているということですのでファイルの読込処理まで到達していません。

今一度ステップ実行などして動作や変数の中身を確認してみてはどうでしょうか？

[pichipichi1]

YAmaGNZさんのおっしゃる通り憶測の判断です。
一度初めから全て確認致します！