VBScript 文件操作代码小结

　　VBScript 文件操作代码小结   软件测试

　　创建文本文件

　　复制代码 代码如下:

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")

　　检察文件是否存在

　　复制代码 代码如下:

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　If objFSO.FileExists("C:\FSO\ScriptLog.txt") Then

　　Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt")

　　Else

　　Wscript.Echo "File does not exist."

　　End If

　　删除文本文件

　　复制代码 代码如下:

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　objFSO.DeleteFile("C:\FSO\ScriptLog.txt")

　　重命名文件

　　复制代码 代码如下:

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"

　　文本操作

　　读取全部内容

　　复制代码 代码如下:

　　Const ForReading = 1

　　Set objFSO = CreateObject("Scripting.FileSystemObject")

　　Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)

　　strContents = objFile.ReadAll

　　objFile.Close

　　一行行的读取文本文件内容

原文转自：http://www.ltesting.net