admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：数据库账号密码怎么看)

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


本文标签： 文件 写入 覆盖

版权声明：本文标题：vbs文件操作脚本实例 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711531811a598620.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。