Bonjour,
Je cherchais depuis un bout comment faire pour supprimer les fichiers qui sont dans les sous-dossiers, j'ai finit par trouver un code qui marche superbement bien :
procedure Scan( NomDossier : string );
var
hFound : Integer;
sFileData : TSearchRec;
begin
NomDossier := IncludeTrailingPathDelimiter( NomDossier );
hFound := FindFirst( NomDossier + '*.*', faAnyFile, sFileData);
if ( hFound = 0 ) then
begin
repeat
if ( ( sFileData.Name <> '.' ) and ( sFileData.Name <> '..' ) ) then
begin
if ( ( sFileData.Attr and faDirectory ) <> faDirectory ) then
begin
ShowMessage('File name = '+sFileData.Name);
ShowMessage('File size = '+IntToStr(sFileData.Size));
end
else
Scan( NomDossier + sFileData.Name);
end;
until ( FindNext( sFileData ) <> 0 );
end;
SysUtils.FindClose( sFileData );
end;
J'en avais besoin car je devais supprimer tout les fichiers *.bak présent dans le disque dur. Alors je modifie :
hFound := FindFirst( NomDossier + '*.*', faAnyFile, sFileData);
pour
hFound := FindFirst( NomDossier + '*.bak', faAnyFile, sFileData);
Mais ça ne marche pas, si je remplace par *.bak, la fonction sous-dossier ne fonctionnera plus. Je ne comprends pas pourquoi et j'esasie de comprendre mais sans résultat.
Quelqu'un aurait une idée ?
Merci d'avance,
bibi262