Comment supprimer un fichier ou dossier avec delphi

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment supprimer un fichier ou dossier avec delphi

Rellik1982

Soyez Fous

Si vous savez s'il existe une commande delphi pour effacer un fichier ou un dossier complet, ca m'interesse.

Merci

Publicité

evode

Meuaarf !! ReZo !!!

Citation :

Unité SysUtils

DeleteFile supprime un fichier du disque et renvoie False si elle échoue.

function DeleteFile(const FileName: string): Boolean;

Citation :

Unité SysUtils

RemoveDir efface un répertoire vide existant.

function RemoveDir(const Dir: string): Boolean;

Description
La valeur renvoyée est à True si un répertoire a été effacé, False si une erreur s'est produite.

en regardant vite fait comme ca j'ai pas vu de methodes pour supprimer un rep et ses fichiers/sous rep
il ne te reste donc k'a coder une petite fonction recursive

---------------
Hyndex - Meuaarf !! ReZo !!!

antp

Super Administrateur
Champion des excuses bidons

J'avais trouvé ca y a un petit temps, je l'avais gardée pour pas devoir la réecrire en cas de besoin :

Code :

Function Deltree(sDir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : String;
begin
//Result := False;
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;

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Comment supprimer un fichier ou dossier avec delphi

Sujets relatifs
[VC++] comment copier tout le contenu d'un dossier dans un autre ...	Delphi : Outlook MailItem et adresse email ..
[C/C++] Supprimer les warning dans un code	[PHP-XML] Parser une variable à la place d'un fichier?
[HTML] lien vers fichier ( ms sans afficher fenetre de dl)	[C++ Builder5] comment récuperer le nom d'un fichier??
Tranfert de fichier d'un client vers un autre client	supprimer le dossier historique de windows sous batch
[PHP] passage de 50ko à un srcipt, sans fichier?
Plus de sujets relatifs à : Comment supprimer un fichier ou dossier avec delphi

Page générée en 0.056 secondes