probleme de suppression de fichiers (SERVICE)

Version imprimable

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:

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:

SI PAS (fSupprime(sUnFichier)) ALORS

ni dans le

Code:

1
2
SINON
				fEcritLigne(nIdFichierLog,"Fichier supprimé "+sUnFichier)

Auriez-vous une idée ?

Merci d'avance.

04/10/2018, 16h33
tbc92

Ligne 5 : si tu as n caractères RC dans ta chaine, c'est que tu as n+1 fichiers, et non n.
Mais ce n'était pas ta question :)

Quand un service s'exécute, Le USER Qui exeécute le service est un user particulier, et il peut y avoir des problèmes de dropits d'accès. Mais comme tu testes tout bien comme il faut, ça ne doit pas être la bonne piste.

Dans ton fichier log, as-tu les lignes 'J'y suis' (ligne 14 de ton code) ?
05/10/2018, 13h54
maysa

Merci.

oui je teste juste mes log.

Oui j'ai bien des j'y suis dans mon fichier de LOG mais j'ai rajouté un message d'erreur : accès refusé ! il s'agit de droit mais le problème c'est que je n'avais pas ce problème avant...
09/10/2018, 09h23
philouZ

Bonjour,

L'utilisateur utilisé pour les services par défaut est, sauf erreur de ma part, le compte système local qui a des droits particulièrement restreints. Si tu veux pouvoir supprimer des fichiers je pense qu'il faut que tu passes sur compte ayant ces droits sur la machine.
10/10/2018, 07h09
Programming-Z

A savoir, quand tu libères le fichier avec fFerme(), il se peut qu'il soit toujours considérer comme ouvert par le processus cible après l’exécution de la fonction.

Si le fichier ne se supprime pas, je suis sur que tu as l'erreurinfo qui correspond au "ce fichier est déjà ouvert par un processus" un truc du genre.
11/10/2018, 14h56
maysa

Hello,

j'ai ce message "Détail de l'erreur système : Accès refusé..". et quand je veux faire une copie, il me refuse aussi la copie. C'est étrange car nous avions pas de soucis avant.