vbs脚本:DeleteFolder
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
猜你喜欢
转载自emzt82emzt.iteye.com/blog/1363186
今日推荐
周排行