创建文本文件
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set bjFile = objFSO.CreateTextFile("C:\FSOScriptLog.txt")
检察文件是否存在
Set bjFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("C:\FSOScriptLog.txt") Then Set bjFolder = objFSO.GetFile("C:\FSOScriptLog.txt") Else MsgBox "File does not exist." End If |
删除文本文件
Set bjFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSOScriptLog.txt")
移动文件
Set bjFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSOScriptLog.txt" , "D:\"
复制文件
Set bjFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\FSOScriptLog.txt" , "D:\"
重命名文件
Set bjFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"
读取全部内容
Const ForReading = 1 Set bjFSO = CreateObject("Scripting.FileSystemObject") Set bjFile = objFSO.OpenTextFile("C:ScriptsTest.txt", ForReading) strContents = objFile.ReadAll Wscript.Echo strContents objFile.Close |
一行行的读取文本文件内容
Const ForReading = 1 Set bjFSO = CreateObject("Scripting.FileSystemObject") Set bjTextFile = objFSO.OpenTextFile ("C: \ScriptsTest.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.ReadLine Wscript.Echo strComputer Loop objTextFile.Close |