Bonjour à tous

J'ai 2 soucis totalement étrange.

j'ai des fichiers dans un répertoire que je supprime une fois par jour. (exécution d'un service)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
SI (DateDuJour() > dDernierTraitement) ALORS
	fEcritLigne(nIdFichierLog,"Suppression des fichiers xml "+DateDuJour()+HeureSys())
	// Pour chaque fichier trouvé on supprime
	ResListeFichier = fListeFichier(sFichierXML,frRécursif)
		fEcritLigne(nIdFichierLog,"nombre de fichier à supprimer :"+ChaîneOccurrence(ResListeFichier, RC))
 
	POUR TOUTE CHAÎNE sUnFichier DE ResListeFichier SEPAREE PAR RC
		// supprime le fichier
		fEcritLigne(nIdFichierLog,"fichier à supprimer "+sUnFichier)
		Multitâche(100)
 
		fEcritLigne(nIdFichierLog,"debut de boucle")
		SI (sUnFichier <> sFichierXMLDefaut) ALORS
			fEcritLigne(nIdFichierLog,"j'y suis")
 
 
			// ouverture pour fermeture du fichier
			nidfichierbete=fOuvre(sUnFichier)
			SI  nidfichierbete<>-1 ALORS 
				fEcritLigne(nIdFichierLog,"le fichier est ouvert je le ferme")
				SI PAS fFerme(nidfichierbete) ALORS
					fEcritLigne(nIdFichierLog,"Je ne peux pas fermer le fichier")
				SINON
					fEcritLigne(nIdFichierLog,"Je ferme le fichier")
				FIN
			FIN
 
			Multitâche(100)
 
			SI PAS (fSupprime(sUnFichier)) ALORS
				fEcritLigne(nIdFichierLog,"Impossible de supprimer le fichier :  "+sUnFichier+" - "+DateDuJour()+HeureSys(),ErreurInfo())
			SINON
				fEcritLigne(nIdFichierLog,"Fichier supprimé "+sUnFichier)
			FIN
		SINON
			fEcritLigne(nIdFichierLog,"Fichier "+sUnFichier+" pas different du fichier par defaut" + sFichierXMLDefaut)
		FIN
		Multitâche(100)
	FIN
FIN
Dans mon fichier de log, j'ai bien le fichier à supprimer, mais il ne me supprime que les fichiers créé ce jour (peut etre juste une coincidence)
ce qui est étrange c'est que mon service ne passe ni dans le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
SI PAS (fSupprime(sUnFichier)) ALORS
ni dans le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
SINON
				fEcritLigne(nIdFichierLog,"Fichier supprimé "+sUnFichier)
Auriez-vous une idée ?

Merci d'avance.