|
|
|
|
|
|
|
|
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)
|
|
|
|
|
