创建文本文件

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.CreateTextFile("C:FSOScriptLog.txt") 

检察文件是否存在

Set objFSO = CreateObject("Scripting.FileSystemObject") 
If objFSO.FileExists("C:FSOScriptLog.txt") Then 
Set objFolder = objFSO.GetFile("C:FSOScriptLog.txt") 
Else 
Wscript.Echo "File does not exist." 
End If 

删除文本文件

Set objFSO = CreateObject("Scripting.FileSystemObject") 
objFSO.DeleteFile("C:FSOScriptLog.txt") 

重命名文件

Set objFSO = CreateObject("Scripting.FileSystemObject") 
objFSO.MoveFile "C:FSOScriptLog.txt" , "C:FSOBackupLog.txt" 

文本操作
读取全部内容

Const ForReading = 1 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:ScriptsTest.txt", ForReading) 
strContents = objFile.ReadAll 
objFile.Close 

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

Const ForReading = 1 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.OpenTextFile ("c:scriptsservers.txt", ForReading) 
Do Until objTextFile.AtEndOfStream 
strComputer = objTextFile.ReadLine 
Wscript.Echo strComputer 
Loop 
objTextFile.Close 

追加文本文件一行内容

Const ForAppending = 8 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.OpenTextFile ("C:ScriptsService_Status.txt", ForAppending, True) 
objTextFile.WriteLine("追加的内容") 
objTextFile.Close 

有用的几个函数：
替换：将Jim替换成James。

strNewText = Replace(strText, "Jim ", "James ") 

用逗号分隔字符串：

arrpath=split(strDN,",") 
wscript.echo arrpath(0) 

几个实例：
读取文本文件指定的行内容（读第四行内容存到strLine变量中）

Const ForReading = 1 
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading) 
For i = 1 to 3 objTextFile.ReadLine Next 
strLine = objTextFile.ReadLine Wscript.Echo strLine 
objTextFile.Close

vbs 错误捕获器，用于捕获内部错误并进行手工处理
但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改使用完毕要记得关闭错误捕获器onerrorgoto0语法如下:=======

查看SQL状态的vbs
'****************************'*byr05e'*检验SQLSERVER是否在这机器上工作'****************************strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!

vbs 字符统计功能模块
字符统计功能模块SubTongJi()SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.OpenTextFile("ok.txt",1)strText=objFile.ReadAllAll=Len(strText)S="`~!@#$%^&*()-_=+|[{]};:',./?