vbs脚本：CreateTextFile

最新推荐文章于 2023-10-10 10:18:27 发布

bj_wellcome

最新推荐文章于 2023-10-10 10:18:27 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB &amp; VBS 文章标签：脚本 file

本文链接：https://blog.youkuaiyun.com/bj_wellcome/article/details/5799839

这是一个VBS子程序，用于创建文本文件。首先检查目标文件是否存在或者其父文件夹是否已存在，如果不符合条件则抛出错误。然后使用fso对象的CreateTextFile方法创建文件。如果在创建过程中出现错误，程序将捕获并报告错误信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Rem :  ===========  创建文本文件
Rem :  ===========  不能有同名的文件或文件夹
Rem :  ===========  父文件夹必须存在
Sub CreateTextFile( file )
	Dim f
	f = Trim( file )
	If Right(f,1) = "/" Then f = Left(f,Len(f) -1 )
	If fso.fileexists(f) = True Or fso.folderexists(f) = True Then Err.Raise vbObjectError+128, "CreateFolder", f & " already exists"
	If fs