// Déclaration des variables
FichierASupprimer is string
ResSuppression is boolean
// Sélection du fichier à supprimer
FichierASupprimer = fSelect("", "", "Sélection du fichier à supprimer", ...
	"Tous fichiers (*.*)" + TAB + "*.*", "", fselOpen + fselExist)
// Suppression du fichier
ResSuppression = fDelete(FichierASupprimer)
// Affichage du message d'erreur si la suppression n'a pas été effectuée
IF ResSuppression = False THEN
	Error(ErrorInfo(errMessage))
ELSE
	Info("Le fichier a été supprimé")
END