// Nom du fichier à surveiller
sNomFichier is string = "C:\Temp\MonRep\MonFichier.extension"
// La procédure TraiteModification sera appelée lorsque le fichier 
// "C:\Temp\MonRep\MonFichier.extension" sera modifié.
IF fWatchFile(sNomFichier, fSurveilleFichier_Callback, ...
		fwCreateFile + fwModifyFile + fwDeleteFile + ...
		fwRename) THEN
	// On informe l'utilisateur de la mise sous surveillance du fichier
	Info("La mise sous surveillance du fichier " + sNomFichier + " a réussi.")
ELSE
	// On informe l'utilisateur de l'échec de la mise sous surveillance du fichier
	Info("La mise sous surveillance du fichier " + sNomFichier + " a échoué.")
END

// Code de la procédure interne
INTERNAL PROCEDURE fSurveilleFichier_Callback(sNomComplet, sNomFichierSurveille, nAction, sAncienNomFichier)
	sDesignationAction is string
	// La désignation de l'action subie dépend de nAction
	SWITCH nAction
		CASE fwCreateFile: sDesignationAction = "Création de fichier"
		CASE fwDeleteFile: sDesignationAction = "Suppression de fichier"
		CASE fwModifyFile: sDesignationAction = "Modification de fichier"
		CASE fwRename: sDesignationAction = "Renommage de fichier"
	END
	// Ajout d'une ligne contenant les informations de la modification 
	// dans le champ Table TABLE_MODIFICATIONS
	TableAddLine(TABLE_MODIFICATIONS, sNomComplet, sNomFichierSurveille, ...
		sDesignationAction, sAncienNomFichier)
END