Code to read from txt file

June 09, 2010

Dim fso,f
Set fso=createobject("Scripting.filesystemobject")
set f=fso.opentextfile("C:\test.txt",1)
while f.atendofline<>true
s=f.readline()
msgbox s
wend
f.close
set f=nothing
set fso=nothing

You Might Also Like

0 comments