[ Delphi ] Supprimer un repertoire et son contenu

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ Delphi ] Supprimer un repertoire et son contenu

Ciler

:hello:

Voila mon probleme, j'aurai besoin de supprimer tout un repertoire (il contient des fichiers mais pas de sous repertoire). Du coup
RemoveDir est forfait (le repertoire doit etre vide).

Il y a une commande pour virer tout le repertoire sans avoir a supprimer avant les 156 fichiers qui sont dedans ?

---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8

Publicité

antp

Champion des excuses bidons

Faut supprimer tous les fichiers, y a rien de prévu dans l'OS pour faire autrement [:spamafote]

Code :

function Deltree(sDir: string): Boolean;
var
iIndex: Integer;
SearchRec: TSearchRec;
sFileName: string;
begin
sDir := sDir + '\*.*';
iIndex := FindFirst(sDir, faAnyFile, SearchRec);
while iIndex = 0 do
begin
sFileName := ExtractFileDir(sDir) + '\' + SearchRec.Name;
if SearchRec.Attr = faDirectory then
begin
if (SearchRec.Name <> '' ) and
(SearchRec.Name <> '.') and
(SearchRec.Name <> '..') then
Deltree(sFileName);
end else
begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
DeleteFile(sFileName);
end;
iIndex := FindNext(SearchRec);
end;
FindClose(SearchRec);
RemoveDir(ExtractFileDir(sDir));
Result := True;
end;

Ciler

antp a écrit :

Faut supprimer tous les fichiers, y a rien de prévu dans l'OS pour faire autrement [:spamafote]

Code :

function Deltree(sDir: string): Boolean;
var
iIndex: Integer;
SearchRec: TSearchRec;
sFileName: string;
begin
sDir := sDir + '\*.*';
iIndex := FindFirst(sDir, faAnyFile, SearchRec);
while iIndex = 0 do
begin
sFileName := ExtractFileDir(sDir) + '\' + SearchRec.Name;
if SearchRec.Attr = faDirectory then
begin
if (SearchRec.Name <> '' ) and
(SearchRec.Name <> '.') and
(SearchRec.Name <> '..') then
Deltree(sFileName);
end else
begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
DeleteFile(sFileName);
end;
iIndex := FindNext(SearchRec);
end;
FindClose(SearchRec);
RemoveDir(ExtractFileDir(sDir));
Result := True;
end;

Merci :jap:

---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8

FORUM HardWare.fr

Programmation

Delphi/Pascal

[ Delphi ] Supprimer un repertoire et son contenu

Sujets relatifs
[XML-HTML] newbie inside - interpreter du code HTML contenu dans XML	[VBA-Access] Modifier le contenu d'un champ sans message
"Trier" le contenu d'une variable	Lire le contenu d'un rep a rebours...
pascal vers delphi	[delphi] Evenement NavigateComplete2 de IE via OLE :??: Zion help plz
[Delphi] p'tit problème conversion cpp vers delphi	[delphi inside] comment simuler un clik a l'ecran ?
[delphi]Taille de fenêtre	reconstituer un fichier à partir de son contenu ascii ?
Plus de sujets relatifs à : [ Delphi ] Supprimer un repertoire et son contenu

Page générée en 0.047 secondes