VBScript删除子文件夹和文件的程序，自己定义删多深

'VBScript删除子文件夹和文件的程序，可以自己定义删多深。采用的recursively删除，免除打开子文件后报错。

'http://www.theswamp.org/index.php?topic=26167.0Function deletefilesandfolders (foldername, deep)dim fso,fldrset fso = createobject("scripting.filesystemobject")set fldr = fso.getfolder(foldername)MsgBox "The folder " & fldr & " exists so now to delete all folders inside.", vbInformationintAnswer = Msgbox("Do you want to delete these files", vbYesNo, "Delete Files")If intAnswer = vbNo ThenExit FunctionEnd Ifdeep = UBound(Split (foldername, "\")) + deeprecurse fldr, deepSet fso = Nothing Set fldr = NothingEnd FunctionSub recurse(byref fldr, deep)dim subfolders,files,folder,fileset subfolders = fldr.subfoldersset files = fldr.filesfor each file in fileson error resume nextname = file.namefile.Delete True   If Err Then MsgBox "Error deleting:" & Name & " - " & Err.Description, vbInformation   Else MsgBox "Deleted:" & Name, vbInformation   End If   On Error GoTo 0next  for each folder in subfoldersrecurse folder, deepIf UBound(Split (folder.path, "\")) > deep Then    name = folder.namefolder.Delete TrueIf Err ThenMsgBox "Error deleting:" & Name & " - " & Err.Description, vbInformationElseMsgBox "Deleted:" & Name, vbInformationEnd IfOn Error GoTo 0End Ifnext   set subfolders = nothingset files = nothingEnd Subdeletefilesandfolders "C:\NewTemp", 0'0==delete all subfolders . 1==leave subfolders 1 deep . 2==leave subfolders 2 deep...and so on...