If Dir("c:\toto.txt")<> "" Then ' Le fichier existe Else ' Le ficheir n'existe aps End If
Dim mon_fichier As String mon_fichier="c:\toto.txt" If Dir(mon_fichier)<> "" Then ' Le fichier existe -> suppression Kill (mon_fichier) Else ' Le fichier n'existe pas, pas de suppression End If