东方时尚网站:VBS如何读取了d:\a.txt内容然后用msgbox提示出来呢???
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/11 19:45:05
举个例子!!~~!~
Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("D:\a.txt", True)
'写一行。
msgbox "Writing file <br>"
f1.WriteLine "Hello World"
f1.WriteBlankLines(1)
f1.Close
' 读取文件的内容。
msgbox "Reading file"
Set ts = fso.OpenTextFile("D:\a.txt", ForReading)
s = ts.ReadLine
msgbox "File contents = '" & s & "'"
ts.Close
End Sub
call readfiles
把以上存为readfile.vbs
即可,ok!!
VBS如何读取了d:\a.txt内容然后用msgbox提示出来呢???
VBS如何读取了d:\a.txt内容然后用msgbox提示出来时只能显示第一行??????
MOTO TXT 如何读取TF卡上的文本?
请问VB中如何读取txt文件的数据
如何写asp读取.txt里的内容进数据库
如何编写在VB中读取TXT文件的语句?
vb如何读取TXT当作里面的代码?
昨天上网发现了(js.codeexec.a) ,(exploit.vbs.phel),(vbs.startpaged)病毒
VBS.startPage.d是什么病毒,危害大吗,如何处理?
VBS.DL.Cacher.a是什么病毒? 如何彻底查杀