ops ho scritto male!!!

RICOPIA QUESTO SOTTO
codice:
Private Sub Command2_Click()
    On Error GoTo cancella_file
    Name "c:\documenti\prova.txt" As "c:\documenti\prova\prova.txt"
    GoTo file_trovato
cancella_file:
    Kill "c:\documenti\prova\prova.txt"
    Name "c:\documenti\prova.txt" As "c:\documenti\prova\prova.txt"
file_trovato:
End Sub