Récursive *.bakRésolu

Question

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

Emandhal · Accepted Answer

u,

C'est parce que tu n'a pas de répertoire avec une extension.bak.

Il te faut analyser tous les fichiers et dossiers avec *.*, et dans "if ( ( sFileData.Attr and faDirectory ) <> faDirectory ) then" il te faut vérifier l'extension et si c'est .bak, suppr le fichier.

Tout problème a sa solution... Mais en général, celle que l'on trouve n'est jamais la bonne...

bibi262 · Answer

Merci beaucoup :D

elguevel · Answer

Hé mais c'est mon code çà ! :-) Content en tout cas que ma source serve à quelque chose ! Sinon oui le masque marche pour tout les types de fichier (donc dossier), il faut donc bien ajouter une condition sur le nom de fichier dans la boucle ! Bon Code ! /\_/\ ( o.o ) ~ ElGuevel ~ > ^ <

Récursive *.bak

3 réponses

Votre réponse

Discussions similaires