Comment delete des fichiers d'un dossier systeme

Question

Salut &#224; tous,
Voila j'ai essayer de supprimer manuellement le dossier Cookies de ma session Xp, et il m'affiche un message comme quoi je ne peut pas supprimer le dossier, j'ai essayer avec la fonction suivante et il m'affiche le m&#234;me message :

function EffaceDossier(Dossier : String): Boolean; var FileOpStruct : TShFileOpStruct;
begin
FileOpStruct.Wnd := 0;
FileOpStruct.wFunc := FO_DELETE;
FileOpStruct.pFrom := PChar(Dossier);
FileOpStruct.pTo := nil;
FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
FileOpStruct.lpszProgressTitle := nil;Result :ShFileOperation(FileOpStruct) 0;
end;

Alors j'aurais voulue savoir si il y a une moyen de supprimer les fichiers et les sous dossiers qui sont &#224; l'int&#233;rieure de ce dossier.

Merci d'avance.


Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

Salut BenBox,



Il faut probablement modifier les attibuts du dossier. Il doit avoir l'attribut System qui t'emp&#234;che de l'effacer.





Pout lire les attributs :  Attributs := GetFileAttributes(PChar(Dossier));  // Attributs : DWord

Pour les modifier       : 
 SetFileAttributes(PChar(Dossier)
, Attribut
s);



Avec pour valeurs d'attributs (dans Windows.pas) : 



  {$EXTERNALSYM FILE_ATTRIBUTE_READONLY}

  FILE_ATTRIBUTE_READONLY             = $00000001;

  {$EXTERNALSYM FILE_ATTRIBUTE_HIDDEN}

  FILE_ATTRIBUTE_HIDDEN               = $00000002;

  {$EXTERNALSYM FILE_ATTRIBUTE_SYSTEM}

  FILE_ATTRIBUTE_SYSTEM               = $00000004;

  {$EXTERNALSYM FILE_ATTRIBUTE_DIRECTORY}

  FILE_ATTRIBUTE_DIRECTORY            = $00000010;

  {$EXTERNALSYM FILE_ATTRIBUTE_ARCHIVE}

  FILE_ATTRIBUTE_ARCHIVE              = $00000020;

  {$EXTERNALSYM FILE_ATTRIBUTE_NORMAL}

  FILE_ATTRIBUTE_NORMAL               = $00000080;

  {$EXTERNALSYM FILE_ATTRIBUTE_TEMPORARY}

  FILE_ATTRIBUTE_TEMPORARY            = $00000100;

  {$EXTERNALSYM FILE_ATTRIBUTE_COMPRESSED}

  FILE_ATTRIBUTE_COMPRESSED           = $00000800;

  {$EXTERNALSYM FILE_ATTRIBUTE_OFFLINE}

  FILE_ATTRIBUTE_OFFLINE              = $00001000;





Donc dans ton cas tu peux essayer en ajoutant, au debut de ta proc&#233;dure, la ligne :

 
SetFileAttributes(PChar(Dossier)
, 
FILE_ATTRIBUTE_DIRECTORY
);






Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

Salut Kenavo et merci de m'aider pour ce probl&#232;me,
Donc si j'ai bien compris je doit faire sa :
function EffaceDossier(Dossier : String): Boolean; var FileOpStruct : TShFileOpStruct;
begin
SetFileAttributes(PChar(Dossier), FILE_ATTRIBUTE_DIRECTORY);
FileOpStruct.Wnd := 0;
FileOpStruct.wFunc := FO_DELETE;
FileOpStruct.pFrom := PChar(Dossier);
FileOpStruct.pTo := nil;
FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
FileOpStruct.lpszProgressTitle := nil;Result :ShFileOperation(FileOpStruct) 0;
end;

J'ai essayer et j'ai toujours le message comme quoi c'est un dossier syst&#232;me.
Merci d'avance.


Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

Ah ! M... ! C'est bien l'attribut auquel je pensais !



Serait-il r&#233;f&#233;renc&#233; comme dossier syst&#232;me ailleurs ? En utilisant la fonction suivante, tu peux lire les attributs du dossier :


Attribut := GetFileAttributes(PChar(Dossier));




Pas mieux ! D&#233;sol&#233; !



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

J'ai pas compris l'histoire du Attribut := GetFileAttributes(PChar(Dossier));

Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

C'&#233;tait pour te permettre de v&#233;rifier les attributs du dossier &#224; supprimer avant de faire l'appel &#224; 
ShFileOperation



Le probl&#232;me vient sans doute du fait que ton r&#233;pertoire Cookies est
sans doute r&#233;f&#233;renc&#233; dans la base de registres comme r&#233;pertoire sp&#233;cial
: voir cl&#233;s

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders et HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folder




Tu aurrais peut &#234;tre int&#233;ret &#224; supprimer les cookies sans effacer le
r&#233;pertoire ! Donc &#224; &#233;crire une fonction VideDossier plut&#244;t que
EffaceDossier.



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

Et avec la fonction VideDossier, sa peut supprimer les SousDossier ?


Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

Faut essayer !



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

Le probl&#232;me c'est que je ne sais pas du tout comment faire, sinon je l'aurais fais :)


Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

Bon, on y va ! Le pricipe que je te donne est général, je ne sais pas si il te donnera satisfaction. Il y a des mystères pour moi autour des cookies ! Le seul truc dont je sois sûr, est que dasns un répertoire \Cookies, il y a un fichier Index.dat qui n'est guère manipulable. function VideDossier(Dossier : String): Boolean; var FileOpStruct : TShFileOpStruct; SearchRec : TSearchRec; s : String; Resu : Integer; begin S := ''; Resu := FindFirst(Dossier+'\*.*',faAnyFile,SearchRec); // recherche tous les fichiers While Resu = 0 do begin if (SearchRec.Name[1]<>'.') and (SearchRec.Name<>'INDEX.DAT') then // si fichier à éliminer s:= s+Dossier+'\'+SearchRec.Name+#0; // constitution de la liste des fichiers à effacer Resu := FindNext(SearchRec); end ; s: =s+#0; FindClose(SearchRec); SetFileAttributes(PChar(Dossier), FILE_ATTRIBUTE_DIRECTORY); FileOpStruct.Wnd := 0; FileOpStruct.wFunc := FO_DELETE; FileOpStruct.pFrom := PChar(s); // liste des fichier à effacer FileOpStruct.pTo := nil; FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT; FileOpStruct.lpszProgressTitle := nil; Result :ShFileOperation(FileOpStruct) 0; end; A tester ! Ken@vo

Code, Code, Codec ! [%3C/body ]

BenXbox · Answer

C'est une bombe ton code il marche trop bien, merci &#224; toi :)


Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

Enfaite non sa marche pas super bien lol, sa supprime que les fichiers qui sont dans le dossier, mais sa delete pas les sous dossier.

Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!


Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

Bas pour les cookies sa marche impecables, mais pour l'historique comme c'est dans des sous dossier sa ne marche pas. :(


Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

Enl&#232;ve le flag FOF_SILENT
(et m&#234;me FOF_NOCONFIRMATION ) 
pour
avoir un retour  d'infomation du syst&#232;me, Il te dira pourquoi il
ne veut pas effacer tes sous r&#233;pertoires (syt&#232;mes, read-only, utilis&#233;s
par un autre programme,...)


Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

Il dit rien du tout quant j'enleve cette ligne de code :   FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;


Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

Donc j'ai avancer un petit peu, j'ai réussie à afficher dans une ListBox tout les fichiers, mais j'arrive toujours pas à supprimer, donc je mais le code, si tu as une idée : procedure TForm1.Recherche(Base : string; SubDir : string = ''); begin if FindFirst(Base+SubDir+'*', faAnyFile, SR) = 0 then begin repeat if (SR.Name <> '.') and (SR.Name <> '..') then begin if (SR.Attr and faDirectory) = 0 then begin ListBox1.Items.Append(SubDir+SR.Name); ListBox1.Perform(WM_VSCROLL, SB_BOTTOM, 0); end else Recherche(Base, SubDir+SR.Name+'\'); end; until FindNext(SR) <> 0; FindClose(SR); end; end; function EffaceDossier(Dossier : String): Boolean; var FileOpStruct : TShFileOpStruct; begin FileOpStruct.Wnd := 0; FileOpStruct.wFunc := FO_DELETE; FileOpStruct.pFrom := PChar(Dossier); FileOpStruct.pTo := nil; FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT; FileOpStruct.lpszProgressTitle := nil;Result :ShFileOperation(FileOpStruct) 0; end; Merci d'avance. Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

Il n'y a pas de probl&#232;me pour effacer un r&#233;pertoire non vide, si tous les fichiers et sous-r&#233;pertoires qu'il contient peuvent &#234;tre effac&#233;.

Je pense qu'il doit y avoir quelque part dans ton arborescence un fichier r&#233;tif &#224; l'affacement.



Tu peux essayer de les effacer un par un ! 



for i:=0 to Listbox1.Items.Count-1 do

  if EffaceDossier(ListBox1.Items[i]) then

    ListBox1.Items.Delete(i);

 

Il ne restera dans la listbox, que les fichiers non effac&#233;s, et il faudra comprendre pourquoi ceux-l&#224; restent !



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

Je le mais ou le code que tu mas donn&#233; ?


Mon Site Web : http://Www.BenXbox.Fr.sT

cs_Kenavo · Answer

Apr&#232;s l'appel &#224; la proc&#233;dure Recherche



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

BenXbox · Answer

Sa ne marche pas :(


Mon Site Web : http://Www.BenXbox.Fr.sT

Comment delete des fichiers d'un dossier systeme

20 réponses

Votre réponse

Discussions similaires