vbscript讀檔

' ReadLine 一次取出一行資料
' 12:15 2005/3/9

' ****************** DIM 區
dim strpath
dim objfile,strNetxLine
Set FSO = CreateObject("Scripting.FileSystemObject")
' ****************** 修改區


strpath = "\\cc\vbtool\subfile"
' ****************** SET區
'路徑
Set objTextFile = FSO.OpenTextFile(strpath & "\" & "readme.txt") 'tmpfile

' ******************
While Not objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
' if strNextLine <> "" then
wscript.echo strNextLine
' end if
Wend