用于删除文件夹和文件的VBScript

Function deletefilesandfolders (foldername, deep)
        const fldname = foldername
....
If UBound(Split (folder.path, "")) > deep Then
....
End Function
deletefilesandfolders ("C:\Documents and Settings\%username%\Desktop\testdel2", 5)

const fldname = "D:\Garbage"
set fso = createobject("scripting.filesystemobject")
set fldr = fso.getfolder(fldname)
recurse fldr  
sub recurse(byref fldr)
        dim subfolders,files,folder,file
        set subfolders = fldr.subfolders
        set files = fldr.files
        for each file in files
                on error resume next 
                file.Delete
        next  
        for each folder in subfolders
                recurse folder
                If UBound(Split (folder.path, "")) > 2 Then
                    folder.Delete
                End If 
        next   
        set subfolders = nothing
        set files = nothing
end Sub

Function deletefilesandfolders (foldername, deep)
        dim fso,fldr
        set fso = createobject("scripting.filesystemobject")
        set fldr = fso.getfolder(foldername)
        deep = UBound(Split (foldername, "")) + deep
        recurse fldr, deep
        Set fso = Nothing 
        Set fldr = Nothing
End Function 
Sub recurse(byref fldr, deep)
        dim subfolders,files,folder,file
        set subfolders = fldr.subfolders
        set files = fldr.files
        for each file in files
                on error resume next 
                file.Delete
        next  
        for each folder in subfolders
                recurse folder, deep
                If UBound(Split (folder.path, "")) > deep Then
                    folder.Delete
                End If 
        next   
        set subfolders = nothing
        set files = nothing
End Sub
deletefilesandfolders "d:\garbage", 0 '0==delete all subfolders . 1==leave subfolders 1 deep . 2==leave subfolders 2 deep...and so on...