zoukankan      html  css  js  c++  java
  • Delete Visual C++ Useless Files

    Option Explicit
    Dim FullFileName
    FullFileName = Wscript.ScriptFullName
    Dim CurrentPath
    CurrentPath = Left(FullFileName,InstrRev(FullFileName,"\") -1)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim Folder,Files,SubFolder
    Set Folder = fso.GetFolder(CurrentPath)
    VisitAndDelete(Folder)


    Function VisitAndDelete(path)
    Dim fso
    Dim objFolder,objSubFolder,objSubFolders,CurrentPath,objFiles
    Set fso = CreateObject("scripting.filesystemobject")   
    Set objFolder = fso.GetFolder(path)

    Set objSubFolders = objFolder.Subfolders
    For Each objSubFolder In objSubFolders
        CurrentPath = path + "\" + objSubFolder.Name
         On Error Resume Next 
        fso.DeleteFile(CurrentPath & "\*.ncb")
     fso.DeleteFile(CurrentPath & "\*.suo")
        VisitAndDelete(CurrentPath)
    Next
    Set objFolder = Nothing
    Set objSubFolders = Nothing
    Set fso = Nothing
    End Function

  • 相关阅读:
    布局管理
    菜单和工具栏
    Hello World,本章学习Qt的基本功能
    PyQt5中文手册
    qemu-kvm使用
    查看内核日志
    tmux快捷键
    vim插件YouCompleteMe安装
    git submodule删除多余模块
    vim ctags
  • 原文地址:https://www.cnblogs.com/BeyondTechnology/p/1960142.html
Copyright © 2011-2022 走看看