delete file

[LeNenne]

Hi and thanks for all help.

How to erase a file

   file.Delete (App.Path & "\backup\PhoneTel.mdb")

it do not work.

Or do like this instead that the file phonetel.mdb
is uppdating evry time you press enter.

[Ancient Dragon]

verify that app.path returns what you think it does. Also the file can not be open by some other procesas.

[Jx_Man]

Try :

 Private Sub Command2_Click()
     Kill (App.Path & "\backup\PhoneTel.mdb")
 End Sub

Or you can do like this :

Private Sub filedelete(filename As String)
    Dim filesystemobject As Object
    Set filesystemobject = CreateObject("Scripting.filesystemobject")
    filesystemobject.deletefile filename, True
End Sub

Private Sub Command2_Click()
    filedelete (App.Path & "\backup\PhoneTel.mdb")
End Sub