Problème avec DeleteFile : le fichier n'est pas effacé

Version imprimable

30/06/2005, 08h00
davinout

Problème avec DeleteFile : le fichier n'est pas effacé
Bonjour,

Voici un ptit bout de code qui marche pas :
Code:

1 2 If FileExists(cible) then DeleteFile(cible);
Bon c un peu plus compliqué que ça, mais le truc, c'est que il rentre bien dans le if, donc il détecte bien le fichier, mais il ne veut pas l'effacer...
Le fichier cible est un fichier en réseau sur un serveur auquel j'ai accès (sinon le logiciel ne se lance pas), mais normalement les fichiers sont supprimables à la main donc ça ne devrait pas poser de problèmes.

Je n'ai pas de message d'erreur, tout se passe bien mais le fichier ne s'efface pas.. merci pour votre aide!
30/06/2005, 09h12
Tardiff Jean-François

Bonjour

Je ne peux que vous confirmer ce que vous connaisser déja.
Delete file comme l'aPI SHFileOperation ne renvoi pas d'erreur quand il ne peuvent pas détruire un fichier. Ils renvoient True si le fichier est détruit et False s'il ne l'est pas.

Doc votre code se comporte normalement, et l'on ne peut pas savoir directement par le deletefile pourquoi le fichier n'est pas détruit.

Il faudrait tester indépendament le fichier pour essayer de comprendre la cause du problème.
Droit d'access.
Fichier ouvert.
Erreur dans le nom de fichier.

Une recherche rapide dans google m'a permis de me rendre compte que la plupart des gens se contente de detecter que le fichier n'est pas détruit sans chercher pourquoi.
Déssolé, je n'ai pas mieux.
30/06/2005, 09h31
Clorish

Je crois que s'agissant d'un lecteur reseau, les fonction de Delete et copie ne marchent pas de maniere triviale.

J'ai noté que sous dos, la fonctio COPY par exemple ne marche pas avec le reseau mais il faut passer par une 2e fonction genre COPYEX pour que les chemins reseau marchent.

Regarde de ce coté la ..... (il est possible que la fonction Delete de Borland ne amrche pas avec le reseau il te faudra donc chercher une autre fonction acceptant les chemin reseau).

Sinon essayer avec un autre fichier (local celui la) pour verifier ton algo.
30/06/2005, 10h16
davinout

Déja je ne pense pas que ce soit les droits d'accès, comme je l'ai dit j'ai tous les droits et lecture et en écriture, les fichiers ne sont pas ouverts car pour les tests je crée un fichier manuellement puis j'essaye de le supprimer.

Je viens d'essayer en local et ça n'efface pas le fichier non plus!

Le booléen que renvoie deleteFile est à False.. C'est bizarre qu'il detecte bien le fichier mais qu'il ne veule pas l'effacer!

je crée un nouveau projet pr tester cette fonction ça pourrait venir de Delphi non?
30/06/2005, 10h23
davinout

je viens de créer un projet tout simple: un bouton qui supprime un fichier précis... il supprime bien le fichier que ce soit en local ou en réseau...

La je ne comprends plus -_-
30/06/2005, 10h26
Clorish

non cela ne viens pas de Delphi.
mais peut etre que le fichier en question est ouver et mal fermé depuis uen autre procedure .....

Remarque : Les balises Codes se font entre "[]" ;)
30/06/2005, 10h42
davinout
le logiciel n'ouvre pas les fichiers.. je pense qu'il y a un problème dans l'algo mais je viens de découvrir un truc bizarre lol je vs explique:

on sélectionne les fichiers à selectionner ds une arborescence comme sur windows, on peut en sélectionner plusieurs. On stocke les noms ds un tableau de strings.

Puis ds une boucle on delete un par un, ça donne ça à peu près :
Code:

1 2 3 4 5 6 7 i:=0 while i<cpt begin deletefile(chemin + '\' + tab.Strings[i]); i:=i+1; end;
kan je fais le pas à pas, les noms des fichiers sont bons, par exemple si mon tableau de strings est composé de : fic1, fic2, fic3 et que j'ai sélectionné fic3 en dernier, ils seront tous effacés sauf fic3! alors que, et je le répète, je vois bien dans le pas à pas que le nom du fichier est bon!

ps: oups pr les balises lol, merci :)

edit: me suis trompé c le dernier qui n'est pas effacé! j'ai corrigé

En faisant ça, les noms de fichiers sont corrects ?
Code:

1 2 3 4 5 6 i:=0 while i<cpt begin ShowMessage(chemin + '\' + tab.Strings[i]); i:=i+1; end;

non j'ai dit c'est un exemple, ça fait plutôt ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
cible:= DirLtBx_RepSource_Ouvrir.Directory;
    if fichier then
    begin
        i:=0;
        while i<cpt do
        begin
           cible :=DirLtBx_RepSource_Ouvrir.Directory+'\'+ tab.Strings[i];
           If FileExists(cible) then DeleteFile(cible);
           i:=i+1;
       end;
    end
    else etc...

avec dirLtBx_RepSource_Ouvrir qui est un TDirectoryListBox et fichier un booléen qui regarde si on selectionne un fichier ou un répertoire

30/06/2005, 11h05
Clorish

Attention !
Tu incremente ta boucle dans le test if file exists.

Autrement si elle n'existe pas ... tu ne l'efface pas .. et tu boucle infiniement sur le meme fichier qui n'existe pas.

Ca ne resoucra pas ton probleme mais ca t'en evitera d'autres.
30/06/2005, 11h07
MD Software

Je réitère, remplce le DeleteFile par un ShowMessage, pour être sûr que les fichiers sont bons.
30/06/2005, 11h17
davinout

merci pr l'incrémentation lol -_-' , j'avais rajouté le fileExist pour faire les tests et j'ai pas trop réfléchi :p

sinon pour le showmessage je confirme: les noms des fichiers sont bons.
30/06/2005, 11h18
MD Software

Donc, si je résume, tu es en train de dire que dans ton code

Code:

DeleteFile('C:\toto.txt');

supprime le fichier c:\tata.txt

C'est bien ça ?
30/06/2005, 11h21
davinout

nonon c pas ça: imagine dans le tableau j'ai 3 strings: fic1.doc fic2.doc et fic3.doc
donc c:\fic1.doc etc..

kan je regarde au pas à pas dans la boucle, il passe bien par chacun des fichiers, mais le dernier sur lequel il passe ne se supprime pas... c'est incompréhensible.. donc si je n'en supprime qu'un à la fois il ne le supprime pas, pourtant le showmessage l'affiche bien.
30/06/2005, 11h30
davinout

j'ai trouvé un truc!

En fait le fichier qu'il ne veut pas supprimer, est celui qui est encadré (sélectionné en fait), c dur à expliquer..quand je dis sélectionné c'est pas en surbrillance, mais encadré par des pointillés. C'est le dernier fichier sur lequel on clique, même si notre clic est une déselection.

je vous aurais bien montré une image pour vous expliquer mais j'ai pas accès à mon ftp d'ici :(

En passant ça m'a permis de trouver un bug, ça me fait une erreur E/S 6 si jamais je clique sur supprimer alors que la sélection est sur un fichier qui n'est pas en surbrillance (j'espère que vous me suivez)
30/06/2005, 12h07
Tardiff Jean-François

si le fichiers qui n'est pas détruit est celui qui a le focus dans la grille c'est que la grille fit quelque chose soit avec le fichier, soit avec le nom du fichier.

Je pensait aux habituelle espace venant se fourrer la ou on ne les attent pas.

Pour teste cela vous pouriez essayer un ExistFile du fichier avant le deletefile.

Si ExisteFile declenche un message et que le message apparait, c'est que le nom du fichier est faux.
30/06/2005, 12h08
Sub0

Il faut redéfinir l'attribut du fichier avant sa suppression...

Citation:

Envoyé par [img

http://sub0.developpez.com/tf1.png[/img]]function FileSetAttr(const FileName: string; Attr: Integer): Integer;

La fonction FileSetAttr définit les attributs du fichier FileName à partir de la valeur transmise par Attr. La valeur d'Attr est constituée en combinant les constantes d'attribut de fichier appropriées, comme dans ce qui suit :

FileSetAttr('MyFile.sys', faReadOnly or faSysFile);

FileSetAttr renvoie zéro si l'exécution de la fonction réussit. Sinon, la valeur renvoyée est un code d'erreur.

Remarque : Voir TSearchRec pour une description des constantes d'attribut de fichier.

http://sub0.developpez.com/tag.png
Lien tout en bas à gauche de cette fenêtre
30/06/2005, 12h15
badr

fait

Code:

while i<=cpt do
30/06/2005, 13h30
davinout

Ahh merci sub0! ça marche maintenant, mais je ne comprends pas pourquoi il ne voulait pas supprimer les fichiers qui avaient le focus...

Y a toujours une erreur qui vient d'un peu plus haut quand le fichier qui a le focus ne sera pas effacé mais c bon je sais pourquoi..

merci à tous :)