2024年3月30日发(作者：)

vbs文件操作脚本实例

1.创建一个新的文本文件，如果文件已经存在则报告错误：

Rem 在当前盘根目录下创建"测试.txt"并写入一个字符串

VBS dim fso,file,filename

VBS filename="测试.txt"

VBS Const ForWriting=2

VBS Set fso=CreateObject("stemObject")

If ists(filename)=-1

VBSCall Call MessageBox("发现错误!!!文件已经存在!!!")

Goto over

EndIf

VBS Set file=TextFile(filename,Ture)

VBS ine("文件第一行,这是一个测试文件")

VBS

VBSCall Call MessageBox("测试文件创建成功!!!")

Rem over

EndScript

2.强行写入文件覆盖原有内容：

Rem 往当前盘根目录下的文件"测试.txt"写入一个字符串,覆盖原有内容

VBS dim fso,file,filename

VBS filename="测试.txt"

VBS Const ForWriting=2

VBS Set fso=CreateObject("stemObject")

If ists(filename)=0

VBSCall Call MessageBox("发现错误!!!文件不存在!!!")

Goto over