ROTINA PRA LIMPAR TEMPORARIOS DATA REPORT

MASTER2020 05/08/2009 18:02:15
#319040
pessoal preciso de uma rotina pra limpar os temporarios do data report algume tem alguma ideia.at +
ICEMAN 05/08/2009 18:54:17
#319043
adicione um filelistbox em um form de nome form1

defina

pattern = [Ô]*.tmp[Ô]

Public Sub DelTmp()
[ô][ô]Elimina os arq temporarios que sao criados pelo datareport
        form1.File1.Path = App.Path
        On Error GoTo erroTEMP
        For qqu = 0 To form1.File1.ListCount - 1
            form1.File1.ListIndex = qqu
            If Right(App.Path, 1) = [Ô][Ô] Then
                Kill App.Path & form1.File1.FileName
            Else
                Kill App.Path & [Ô][Ô] & form1.File1.FileName
            End If
        Next
Exit Sub
erroTEMP:
qqu = qqu + 1
Resume Next
End Sub



ai ao finalizar o programa é só chamar a funçao DelTmp

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    DelTmp
End Sub



e pronto oque vc solicitou em um segundo
MASTER2020 05/08/2009 19:08:20
#319046
Iceman mas no file mostra alguma coisa? fiz comforme vc mostrou mas no file nao mostra nada.
MASTER2020 05/08/2009 19:13:03
#319047
tem um detalhe os tmp estao na pasta ainda
ICEMAN 05/08/2009 20:12:59
#319049
1º tem que ver se os arquivos temporarios estao na rais do programa se nao onde esta

form1.File1.Path = App.Path


vc tem que indicar o caminho que esta os arquivos temporarios.

2º se nao tiver um filelistbox no form indicado nao ira apagar mesmo

e chamar a função para apagar tenta ai e diz dinovo

qualquer coisa estou no msn é so add
ICEMAN 05/08/2009 20:58:34
#319056 Resposta escolhida
como haviamos falado no msn segue o exemplo.

dei uma aperfeiçoada na instrução, agora está filé.
MASTER2020 05/08/2009 21:00:42
#319057
Perfeito iceman funcionou perfeitamente muito obrigado pelo codigo
Tópico encerrado , respostas não são mais permitidas
Voltar