I need code similar to this:
The following code does not work it says file not found.VB Code:
Kill (app.path & "\*.tmp")
Printable View
I need code similar to this:
The following code does not work it says file not found.VB Code:
Kill (app.path & "\*.tmp")
:)
VB Code:
Private Sub Form_Load() Dim strDir As String strDir = Dir$(App.Path & "\", vbDirectory) Do While strDir <> "" If Right(strDir, 4) = ".tmp" Then Kill App.Path & "\" & strDir End If strDir = Dir Loop End Sub