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:  Eliminar aquivos tmp da pasta do seu programa
Postada em 6/11/2003 por Marcos Nogueira            
Public Sub DelTmp()
''Elimina os arq temporarios que sao criados pelo datareport
        SeuFormInicial.File1.Path = App.Path
        On Error GoTo erroTEMP
        For qqu = 0 To SeuFormInicial.File1.ListCount - 1
            SeuFormInicial.File1.ListIndex = qqu
            If Right(App.Path, 1) = "\" Then
                Kill App.Path & SeuFormInicial.File1.FileName
            Else
                Kill App.Path & "\" & SeuFormInicial.File1.FileName
            End If
        Next
Exit Sub
erroTEMP:
qqu = qqu + 1
Resume 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