[VB6] Verificare la presenza di un file

[angeloalogeno]

Ciao a tutti
Mi scuso molto se vi intaso il forum con un messaggio stupido e ovvio per alcuni ma effettivamente ho questo problema, e visto che non ho dato un occhiata a piu di due lezioni di VB.. emh non so risolvere il problema!

Passo al punto!
Io devo fare in modo che il programma elimini un file, che puo esserci solo perchè è venerdi. Insomma...il codice è questo

Private Sub Command1_Click()
Dim Risposta As Integer
Risposta = MsgBox("Vuoi davvero sbannarti?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbYes Then
Kill "D:\Documents and Settings\Admin\Dati applicazioni\Macromedia\Shockwave Player\Prefs\PV7RF5X6\6FEB4C10.txt"
Data1.Recordset.MovePrevious
End If
End Sub

Come faccio a mandare un messaggino se il file non è presente?
E come faccio amandare un messaggino se il file è stato eliminato?
Mi scuso ancora con tutti.
Bella li

[oregon]

Usa la funzione Dir per controllare se c'e' il file e la MsgBox per visualizzare un messaggio (ma questo lo avevi gia' fatto ...)

[Boolean]

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

[Boolean]

ops... sovrapposto

Boolean

[angeloalogeno]

Originariamente inviato da Boolean
ops... sovrapposto

Boolean

grazie del codice -.-!