jag har en lite loop som ska hämta innehållet i en textfil till en textruta (först till en variabel)..

Dim RedigeraFil, Obj, TObj
Set Obj = CreateObject("Scripting.FileSystemObject")
Set TObj = Obj.OpenTextFile("minfil.asp")
RedigeraFil = TObj.ReadLine
Do Until TObj.AtEndOfLine
RedigeraFil = RedigeraFil & Chr(10) & TObj.ReadLine
Loop
TObj.Close


problemet är att loopen stannar så fort den stöter på en tom rad i filen.. måste antagligen byta ut AtEndOfLine till något annat, men vad?

Priva att byta ut RedigeraFil = TObj.ReadLine till
RedigeraFil = TObj.ReadAll

Ev måst du skapa ett TextStreamobjekt innan.

<code>
Sub TextStreamTest
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("minfil.asp")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write "Hello World"
ts.Close
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
s = ts.ReadAll
' msgbox skall visa all info i filen...
MsgBox s
ts.Close
End Sub


</code>

msgbox stödjs ej av asp.