vbs脚本:CreateFolder

最新推荐文章于 2025-05-07 13:56:00 发布

原创最新推荐文章于 2025-05-07 13:56:00 发布 · 268 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用VBS脚本创建文件夹的方法。该脚本能够检查目标路径是否已存在，确保父目录的存在，并在满足条件时创建新的文件夹。如果遇到错误，如路径已存在或父目录不存在等问题，则会抛出异常。

vbs脚本:CreateFolder
2010年08月09日
　　Rem : =========== 创建文件夹 Rem : =========== 不能有同名的文件或文件夹 Rem : =========== 父文件夹必须存在 Sub CreateFolder( folder ) Dim f f = Trim( folder ) IfRight(f,1) = "\" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "CreateFolder", f & " already exists" If fso.folderexists(fso.GetParentFolderName(f)) = False ThenErr.Raise vbObjectError+128, "CreateFolder", fso.GetParentFolderName(f) & " does not exists" Dim errMsg OnError Resume NextRem ====== code begin fso.CreateFolder f Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "CreateFolder", errMsg & vbNewLine & _ " folder:" & vbTab & folderExitSubEndIfEndSub