清除bin和obj文件夹的内容并清理vss相关文件

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

Function DeleteSomeFiles(path)
    Dim file,folder,sfolder,fname,subfolder,files
    If Not objFSO.FolderExists(path) Then
        Msgbox "目标文件夹不存在！"
        Exit Function
    End If
    Set folder=objFSO.GetFolder(path)
    Set files=folder.files
    For Each file In files
        Dim ext
        ext=objFSO.GetExtensionName(file.name)
        If ext="scc" Or ext="vspscc" Or ext="vssscc" Then
            objFSO.DeleteFile path & "" & file.name,True
        End If
    Next
    Set subfolder=folder.subfolders
    For Each sfolder In subfolder
	If sfolder.name="bin" Or sfolder.name="Bin" Or sfolder.name="obj" Or sfolder.name="PrecompiledWeb" Then
            objFSO.DeleteFolder path & "" & sfolder.name,True
        Else
            DeleteSomeFiles path & "" & sfolder.name
        End If
    Next
End Function

Dim objFSO
Set objFSO=CreateObject("Scripting.FileSystemObject")
Dim objShell,objFolder
Set objShell=Createobject("Shell.Application")
Set objFolder=objShell.BrowerFolder(0,"Choose Folder",0)
If Not objFolder Is Nothing then
    DeleteSomeFiles objFolder.Self.Path 'Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName)-1)
End If
Set objFolder=Nothing
Set objShell=Nothing
Set objFSO=Nothing

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!