none
Apagar pastas e subpastas Temporary Internet Files RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Gostaria de um script que deletasse as pastas e subpastas destes diretorios:

     C:\Documents and Settings\usuario\Configurações locais\Temporary Internet Files

     C:\Documents and Settings\usuario\Configurações locais\Temp

     

    O script vai ser executado na maquina local, não vai ficar no servidor, vou executar manualmente.

     

    Achei alguns na internet mas não funcionaram.

    quinta-feira, 27 de março de 2008 14:35
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     charles braw segue script que você quer Wink

     

    strPasta = Array("C:\Documents and Settings\usuario\Configurações locais\Temporary Internet Files"," C:\Documents and Settings\usuario\Configurações locais\Temp")

    set FSo = CreateObject("Scripting.FileSystemObject")

    for i=0 to 1

    Apagar_Arquivos(strPasta(i))

    next

     

    Sub Apagar_Arquivos(Pasta)

    set folder = FSO.getFolder (Pasta)

     

    if folder.Subfolders.count > 0 then

    for each SubFolder in folder.Subfolders

    Apagar_Arquivos SubFolder

    next

    end if

     

    for each file in folder.files

    set objFile = FSO.GetFile(file)

    File.delete

    next

    end sub

    quinta-feira, 27 de março de 2008 16:59
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    marca a opção deletar temporary internet files quando o navegador for fechado nas opções de internet.

    quinta-feira, 27 de março de 2008 15:00
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Não funcionou, mas gostaria de um vbs , seria mais facil pra poder mexer depois

     

    Valeu, obrigado.

    quinta-feira, 27 de março de 2008 16:09
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

     charles braw segue script que você quer Wink

     

    strPasta = Array("C:\Documents and Settings\usuario\Configurações locais\Temporary Internet Files"," C:\Documents and Settings\usuario\Configurações locais\Temp")

    set FSo = CreateObject("Scripting.FileSystemObject")

    for i=0 to 1

    Apagar_Arquivos(strPasta(i))

    next

     

    Sub Apagar_Arquivos(Pasta)

    set folder = FSO.getFolder (Pasta)

     

    if folder.Subfolders.count > 0 then

    for each SubFolder in folder.Subfolders

    Apagar_Arquivos SubFolder

    next

    end if

     

    for each file in folder.files

    set objFile = FSO.GetFile(file)

    File.delete

    next

    end sub

    quinta-feira, 27 de março de 2008 16:59
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Esta dando permissão negada na linha 15,

    Caract: 1

    codigo : 800A0046

     

    Observação: este usuario é administrador local, e eu tirei o atributo somente leitura da pasta.

     

     

    strPasta = Array("C:\Documents and Settings\usuario\Configurações locais\Temporary Internet Files"," C:\Documents and Settings\usuario\Configurações locais\Temp")

    set FSo = CreateObject("Scripting.FileSystemObject")

    for i=0 to 1

    Apagar_Arquivos(strPasta(i))

    next

    Sub Apagar_Arquivos(Pasta)

    set folder = FSO.getFolder (Pasta)

    if folder.Subfolders.count > 0 then

    for each SubFolder in folder.Subfolders

    Apagar_Arquivos SubFolder

    next

    end if

    for each file in folder.files

    set objFile = FSO.GetFile(file)

    File.delete

    next

    end sub

     

    Obrigado.

    quinta-feira, 27 de março de 2008 19:10
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Charles usa dessa forma aqui Wink 

    strPasta = Array("C:\Documents and Settings\usuario\Configurações locais\Temporary Internet Files"," C:\Documents and Settings\usuario\Configurações locais\Temp")

    set FSo = CreateObject("Scripting.FileSystemObject")

    for i=0 to 1

    Apagar_Arquivos(strPasta(i))

    next

    Sub Apagar_Arquivos(Pasta)

    set folder = FSO.getFolder (Pasta)

    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

    end sub

    quinta-feira, 27 de março de 2008 19:56
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Laerte , na verdade o primeiro script que voce me passou funcionou, testei em outras pastas e obtive sucesso.
    Os computadores o quais  estava fazendo teste , estavam com uma politica no editor do "secpol.msc" que me bloqueava consegui verificar o problema e corrigir.(Quando testei, no computador que eu estava, meu usuario não tinha permissão para vincular o script a  inicialização ou shutdown).
    Acompanhei a execução do script e vi que toda a recusividade que ele faz, funcionou de maneira correta.

    Usei o msgbox do vbscript para pausar os comandos do script para tentar descobrir o problema.


    OBS: Não tem como apagar as sub-pastas não?, já que os arquivos delas são deletados mas as pastas se mantem.

    Tem como eu colocar no caminho da pasta uma variavel para pegar o nome do usuario que esta logado?ja que todos usuario tem uma pasta com o seu nome


    Muito Obrigado !

    Até a proxima.

    sexta-feira, 28 de março de 2008 01:21
    |