codice:
Private Sub Command1_Click()
Dim Risposta As Integer
Dim NomeFile As String
NomeFile="D:\Documents and Settings\Admin\Dati applicazioni\Macromedia\Shockwave Player\Prefs\PV7RF5X6\6FEB4C10.txt"

Risposta = MsgBox("Vuoi davvero sbannarti?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbYes Then
    If Dir(NomeFile)="" Then
        MsgBox "Il File non esiste!"
    Else
        Kill NomeFile
        MsgBox "File eliminato."
        Data1.Recordset.MovePrevious
    End If
End If
End Sub
Boolean