ＶＢ6.0にて、ＣＳＶファイルを読み込もうとしているのですが、1行ずつ

質問

ＶＢ6.0にて、ＣＳＶファイルを読み込もうとしているのですが、1行ずつ読み込めません。
以下のコードで、Lineのメッセージボックスが表示されないのです。
どなたか教えていただけないでしょうか。よろしくお願いします。

'ＣＳＶファイル読み込み
Sub Stream()
Dim Line, Temp As Variant
Dim objFSO As Object
Dim objStream As Object
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(strDFpath & strDFname(1), ForReading, False)
Temp = objStream.ReadAll
MsgBox Temp

'最後の行までループ
Do Until objStream.AtEndOfLine - 1 <> True
'1行読む
Line = objStream.ReadLine
MsgBox Line
Loop

objStream.Close
Set objStream = Nothing
Set objFSO = Nothing
End Sub

回答No.1

samtomsan · ベストアンサー

表記の方法でファイルを読んだことはないのですが、

Temp = objStream.ReadAll

これですべて読み込んでしまっているのではないでしょうか。ですから

Do Until objStream.AtEndOfLine - 1 <> True

では既にすべて読み込んでいるので実行されることはないと思います。
簡単に確かめるには、Tempの後でcloseして再びOpenしてみてはいかがでしょうか。

お礼

その通りでした。ありがとうございます！