|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Deletar um arquivo com mais de 15 dias sem alteração
|
 |
|
|
|
Postada em 23/7/2003 por Filippe Favero
filippe@sitesolidario.com.br
Em um modulo coloque isso :
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'" Função para pegar a data da ultima alteração do Arquivo "
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Public Function DataArq(ByVal sArq As _
String) As String
If Dir$(sArq) <> "" Then
DataArq = Left(FileDateTime(sArq), 8)
Else
DataArq = "ERRO"
End If
End Function
em um form coloque isso :
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'" comando para matar os arquivos que possuem mais de 15 "
'" dias sem alteração "
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Private Sub Command1_Click()
Dim fso As Object
Dim fldr As Object
Dim sufixo As String
Dim sVar As String
Set fso = CreateObject("scripting.filesystemobject")
Set fldr = fso.GetFolder(App.Path)
For Each File In fldr.files
sufixo = (Right(Trim(File.Name), 4))
If sufixo = ".ZIP" Then
sVar = DataArq(File)
If sVar <> "ERRO" Then
If DateDiff("d", sVar, Date) > 15 Then
Kill File
End If
End If
End If
Next
End Sub
|
|
|
|
|
