// Nom du fichier à surveiller
sNomFichier est une chaîne = "C:\Temp\MonRep\MonFichier.extension"
// La procédure TraiteModification sera appelée lorsque le fichier 
// "C:\Temp\MonRep\MonFichier.extension" sera modifié.
SI fSurveilleFichier(sNomFichier, fSurveilleFichier_Callback, ...
		fsCréationFichier + fsModificationFichier + fsSuppressionFichier + ...
		fsRenommage) ALORS
	// On informe l'utilisateur de la mise sous surveillance du fichier
	Info("La mise sous surveillance du fichier " + sNomFichier + " a réussi.")
SINON
	// On informe l'utilisateur de l'échec de la mise sous surveillance du fichier
	Info("La mise sous surveillance du fichier " + sNomFichier + " a échoué.")
FIN

// Code de la procédure
PROCÉDURE INTERNE fSurveilleFichier_Callback(sNomComplet, sNomFichier, nAction, sAncienNomFichier)
	sDesignationAction est une chaîne
	// La désignation de l'action subie dépend de nAction
	SELON nAction
		CAS fsCréationFichier : sDesignationAction = "Création de fichier"
		CAS fsSuppressionFichier : sDesignationAction = "Suppression de fichier"
		CAS fsModificationFichier : sDesignationAction = "Modification de fichier"
		CAS fsRenommage : sDesignationAction = "Renommage de fichier"
	FIN
	// Ajout d'une ligne contenant les informations de la modification 
	// dans le champ Table TABLE_MODIFICATIONS
	TableAjouteLigne(TABLE_MODIFICATIONS, sNomComplet, sNomFichier, ...
		sDesignationAction, sAncienNomFichier)
FIN