Private Sub Command1_Click()
Dim Chemin$
On Error GoTo Erreur:
Chemin = "C:\Rep à vider\"
Kill Chemin & "*.*"
GoTo Fin:
Erreur:
If Err = 53 Then
MsgBox "Erreur " & Err & "-" & Error & "-" & "Il n'y a pas de fichier existant."
End If
Fin:
End Sub