如何获取源文件的内容

lingxin5013

ＱＴＰ如何获取源文件的内容？　
我需要把源文件写入一个文本，但是现在不知道如何获取源文件内容，请高手指教～
如51testing的源文件为例子　高手帮助～～～

eramyang

在其他地方看到的，你看看
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
If WinHttp Is Nothing Then Set WinHttp = CreateObject("WinHttp.WinHttpRequest")
WinHttp.Open "GET", "http://www.51testing.com/batch.download.php?aid=10479", False
WinHttp.Send

arrArray = WinHttp.ResponseBody
Set WinHttp = Nothing

假装不在

Dim fso, tf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set tf = fso.CreateTextFile("c:\testfile.txt", True)
   tf.WriteLine("Testing 1, 2, 3.")
   tf.WriteBlankLines(3)
   tf.Write ("This is a test.")
   tf.Close

lingxin5013

LS非常 感谢 ! 我的目的不是创建文本

lingxin5013

问题已经解决 不错

★斌斌※测试☆

过来看看！

小孩

Function ReadAllTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadAllTextFile =   f.ReadAll
End Function

小孩

VBS 例子  读写都有着