Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\1\1.txt", 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Wscript.Echo strLine
Loop
objFile.Close
[ Last edited by yywd on 2008-6-7 at 10:05 PM ]作者: bat-zw 时间: 2008-6-7 22:37 标题: 不懂vbs: