Script – Limpar diretório Público

strPasta=”D:\Publica”
set FSo = CreateObject(“Scripting.FileSystemObject”)
Apagar_Arquivos(strPasta)

Sub Apagar_Arquivos(Pasta)

set folder = FSO.getFolder (Pasta)

‘Verifica se tem subpastas
if folder.Subfolders.count > 0 then
for each SubFolder in folder.Subfolders
Apagar_Arquivos SubFolder
next
end if

for each file in folder.files
File.delete
next

if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.Path<>strPasta then
Folder.delete true
end if

end sub

* Este script deleta todo conteúdo da pasta específicada e mantém a mesma (pasta raiz).

Anúncios

One thought on “Script – Limpar diretório Público

  1. Olá bom dia, seu script tem um pequeno erro na linha 20, falta um ‘Then’ antes da quebra de linha para não causar erro.

    Ficaria dessa Maneira:

    strPasta=”C:\Users\felippe.santana\Desktop\TESTE”
    set FSo = CreateObject(“Scripting.FileSystemObject”)
    Apagar_Arquivos(strPasta)

    Sub Apagar_Arquivos(Pasta)

    set folder = FSO.getFolder (Pasta)

    ‘Verifica se tem subpastas
    if folder.Subfolders.count > 0 then
    for each SubFolder in folder.Subfolders
    Apagar_Arquivos SubFolder
    next
    end if

    for each file in folder.files
    File.delete
    next

    if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.PathstrPasta Then
    Folder.delete true
    end if

    end sub

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s