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.
'-------------------------------------------------------------------------------------------------------- ' Script para apagar arquivos e diretórios de uma determinada pasta
' 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 '----------------------------------------------------------------------------------------------------------------------------------------------------
