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

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

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

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2002/01/29 22:08

> 絶対パスしか指定できないのですか？

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は理解できました

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

お礼日時：2002/01/30 00:16

No.2 回答者： bin-chan 回答日時： 2002/01/30 00:45

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

　

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

がんばってください。

この回答へのお礼

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

お礼日時：2002/01/30 14:01