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

 

  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      Clique aqui para enviar email para o autor  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
 


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