USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Apagar arquivos de Backups antigo da pasta para economizar espaço
Postada em 2/9/2004 por Lancer            
'Faça referencia em seu proje scriptruntime
'A diferença aqui é que quando gero os arquivos uso o nome de arquivo como 'Numeros tipo data de hoje seguido de qualquer outro numero (pode ser código, 'autoincrement da base de dados ou mesmo hora e minuto do arquivo gerado, ficando
'Os 10 primeiros numero como data, tipo   250404210814, sendo dia 25 do 04 de 04, 'as 21hs 8m 14s, vc pode tambem usar o fileSystemObject para pegar o tributo, fica 'a seu critério. e necessi
'E mais ou menos assim... o caminho das pedras

'num módulo
Dim fso As New FileSystemObject

Private Sub Apaga_BCKPAntigo(sf As Folder)
Dim gg As Date, fil1
Dim bRet As Boolean
Dim A As File
Dim bb As String
Dim nn As String
For Each A In sf.files

bb = CaminhoBCkp & "\" & A.Name
nn = FileDateTime(bb)
gg = CDate(Mid(nn, 1, 10))
      If gg <= CDate(Date - 5) Then
      DoEvents
      Set fil1 = fso.GetFile(sf & "\" & A.Name)
      fil1.Delete
      End If
      DoEvents
Next
Exit Sub

End Sub

'pra chamar

Apaga_BCKPAntigo fso.GetFolder(CaminhoDaPasta)

 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página