|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Arquivos/Diretórios)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Eliminar aquivos tmp da pasta do seu programa
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|