请大家多多关照!
VBScript 中的文本文件读取
上一篇 /
下一篇 2009-03-19 15:10:17
/ 个人分类:脚本
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim fso, file, msg
Set fso = CreateObject ("Scripting.FileSystemObject")
Set file = fso.OpenTextFile (“c:\test.txt", ForReading)
Do While Not file.AtEndOfStream
msg = file.ReadLine
MsgBox msg
Loop
file.Close
Set file = Nothing
Set fso = Nothing
收藏
举报
TAG: