Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Sub KillFile(ByVal FilePath As String)
If Dir(FilePath, vbHidden) <> "" Then
DeleteFile(FilePath)
Else
MsgBox("Le fichier à supprimer n'existe pas")
End If
End Sub
'Exemple d'utilisation
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
KillFile("C:\test.txt")
End Sub