DelFilePath

Function Cancella(xFile)
'Sezione gestione dell'errore

On Error Goto trap:
Dim der As String, dum As String
'Taglia il nome e percorso del file da cancellare

der = Mid(xFile, 1, InStrRev(xFile, "\") - 1)
'Taglia il nome e percorso del file da cancellare

dum = Mid(xFile, InStrRev(xFile, "\") + 1, Len(xFile))
'verifica se il file si trova nella cartella corrente

If der <> App.Path Then
'cambia la cartella

ChDir (der)
'cancella il file

Kill dum
'ritorna alla cartella

ChDir (App.Path)
Cancella = "File Cancellato"
Else
Kill dum
Cancella = "File Cancellato"
End If

trap:
Select Case Err.Number
Case 5
Cancella = "Nome File o Directory non valido"
Case 53
Cancella = dum & vbCrLf & vbCrLf & "Non esiste"
Case 76
Cancella = der & vbCrLf & vbCrLf & "Path non valida"
Case 75
Cancella = "Directory e/o File Non trovati"
End Select
End Function

Private Sub Form_Load()
'passa le informazioni alla routine

MsgBox Cancella("c:\blabla"), 0, "Info sul file rimosso"
End Sub