发信人: sotte(笑篱)
整理人: winsy(2003-04-05 14:50:20), 站内信件
|
【 在 popoq 的大作中提到：】
do until ts.atendofstream
...
loop
:如题，谢谢！！！
:
: Set fso = CreateObject("Scripting.FileSystemObject")
: Set f = fso.GetFile("C:\Inetpub\wwwroot\txn.txt")
: Set ts = f.OpenAsTextStream(ForReading, 2)
:
:......
|
|