ARQUIVOS

USUARIO.EXCLUIDOS 18/12/2003 21:59:42
#1676
Como faço para apagar aqueles arquivos temporarios que ficam gravado no meu computador quando entro na internet; na pasta: "c:\windows\Temporary Internet Files" usandos rotina em VB
DANIELCPAETE 18/12/2003 22:18:09
#1677 Resposta escolhida
Troque o Directorio pelo que vc quiser


  Dim Pastas As String
  Dim Directorio As String
  
  Directorio = "C:\Exemplo\"
  Pastas = Dir(Directorio, vbDirectory)
  
  Do While Pastas  ""
    DoEvents
    
    If Pastas  "." And Pastas  ".." Then
      If (GetAttr(Directorio & Pastas) And vbDirectory) = vbDirectory Then
           'Se for uma pasta
      Else
           'Pega os Arquivos
           Kill Directorio & Pastas
      End If
    End If
    Pastas = Dir

  Loop
Tópico encerrado , respostas não são mais permitidas
Voltar