vbs脚本：DeleteFolder

Rem :  ===========  删除文件夹，不管是否为空Rem :  ===========  文件夹必须存在Sub DeleteFolder( folder )Dim f1f1 = folderIf Right(folder,1) = "/" Then f1 = Left(folder,Len(folder) -1 )If fso.folderexists(f1)=False Then Err.Raise vbObjectError+128, "DeleteFolder", "Folder : " & f1 & " does not exist"         Dim errMsgOn Error Resume NextRem  ======  code begin    fso.DeleteFolder f1, TrueRem  ======  code endIf Err.Number <> 0 ThenerrMsg = Err.DescriptionOn Error Goto 0Err.Raise vbObjectError+128, "DeleteFolder", errMsg & vbNewLine & _"                folder:" & vbTab & folderExit SubEnd IfEnd Sub