Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fs, f, ts, s, filename filename= "c:SOMEFILE.TXT" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filename) Set ts = f.OpenAsTextStream(ForReading, Tristatefalse) s = ts.skipline s = ts.skipline s = ts.skipline s = ts.skipline s = ts.ReadLine s = mid(s,12) msgbox s ts.Close
blog comments powered by Disqus