|
|
|
|
|
|
|
|
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
|
|
|
|
|
