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

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

A 回答 (2件)

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

 

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

がんばってください。
    • good
    • 0
この回答へのお礼

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

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

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


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 として下さい

    • good
    • 0
この回答へのお礼

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報

カテゴリ