none
Excluir arquivos de algumas pastas RRS feed

  • Pergunta

  • Caros Amigos,

    Preciso de um script para excluir arquivos e subpastas de um diretório, mas esse script tem que possuir uma condição de ter que manter algumas pastas e os arquivos contidos nelas.

    sds/Marcio
    quarta-feira, 26 de novembro de 2008 16:09

Respostas

  • Galera,para quem quiser, segue abaixo:

    '--------------------------------------------------------------------------------------------------------
    ' Script para apagar arquivos e diretórios de uma determinada pasta

    strComputer = "."
    DayOfWeek = ""
    SubFolder = ""

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    ' 1º passo
    ' Verificar o dia da semana
    Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime")

    For Each objItem in colItems
        DayOfWeek = "" & objItem.DayOfWeek
        'Wscript.Echo "Day of the Week: " & objItem.DayOfWeek
        ' Dia da semana 1 - segunda, 2 - terça, 3 - quarta, 4 - quinta, 5 - sexta, 6 - sábado, 7 - domingo
            if DayOfWeek = "6" then
                'Wscript.Echo "sábado"
            else
                'Wscript.Echo "outros dias da semana"
                Wscript.Quit
            end if       
    Next

    ' 2° passo
    ' Verificar subdiretórios
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' Informar diretório pai da pesquisa
    Set objFolder = objFSO.GetFolder("C:\temp\")
    Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
        objFSO.DeleteFile("C:\temp\*.*")
        SubFolder = "" & objSubfolder.name
        'Wscript.Echo objSubfolder.Name
            if UCase(SubFolder) = "PASTA1" or UCase(SubFolder) = "PASTA2" then
                'Wscript.Echo "Não deletar"
            else
                ' '3° passo
                ' Deletar as subpastas não desejadas
                errResults = objSubfolder.Delete
                'Wscript.Echo errResults
                'Wscript.Echo "Pastas excluídas com sucesso"
            end if
    Next
    Wscript.Quit
    '----------------------------------------------------------------------------------------------------------------------------------------------------
    sexta-feira, 12 de dezembro de 2008 19:43