カレントディレクトリにあるテキストファイルを読ませたい。

質問

プロジェクトと同じフォルダにあるデータを一行ずつ読ませたいのですが
絶対パスしか指定できないのですか？

それからファイルの読み込み方がわかりません

回答No.1

bin-chan · ベストアンサー

> 絶対パスしか指定できないのですか？
App.Pathでプロジェクトがあるパス（ドライブ＋フォルダ）が取得できますよ。

> それからファイルの読み込み方がわかりません
CreateObjectもありますが、従来からの方法を。

Dim nFileNo As Long
Dim strBuffer As String

nFileNo = FreeFile()

Open App.Path & "ここはファイル名.txt" For Input As #nFileNo

While Not(Eof(nFileNo))
Input #nFileNo, strBuffer
MsgBox strBuffer
Wend

Close

こんなとこかな？
一行単位で読むときは「Input #nFileNo, strBuffer」を
Line Input #nFileNo, strBuffer として下さい

」

お礼

書きこみありがとうございました。
おかげさまでOpen App.Pathは理解できました

でも　ファイル名を指定してもファイルが見つからず
エラーがでます。　今からバグ取りをがんばります
ありがとうございました。

回答No.2

bin-chan

> でもファイル名を指定してもファイルが見つからずエラーがでます。　

EXEファイルにした場合と、インタープリタではパスが異なります。
MsgBoxやイミディエイトウィンドウでApp.Pathをご確認ください。

がんばってください。

お礼

出来ました！
本当にありがとうございました。