vbs脚本:DeleteFolder

最新推荐文章于 2024-04-21 15:59:47 发布

原创最新推荐文章于 2024-04-21 15:59:47 发布 · 302 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用VBS脚本实现的删除文件夹的功能，该脚本能够检查目标文件夹是否存在，并尝试删除它，无论该文件夹是否为空。

部署运行你感兴趣的模型镜像

vbs脚本:DeleteFolder
2010年08月08日
　　Rem : =========== 删除文件夹，不管是否为空 Rem : =========== 文件夹必须存在 Sub DeleteFolder( folder ) Dim f1 f1 = folderIfRight(folder,1) = "\" Then f1 = Left(folder,Len(folder) -1 )If fso.folderexists(f1)=False ThenErr.Raise vbObjectError+128, "DeleteFolder", "Folder : " & f1 & " does not exist" Dim errMsg OnError Resume NextRem ====== code begin fso.DeleteFolder f1, True Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "DeleteFolder", errMsg & vbNewLine & _ " folder:" & vbTab & folderExitSubEndIfEndSub

您可能感兴趣的与本文相关的镜像