vider un répertoire et supression de sous répertoire

Question

Bonjour, J'aimerai savoir comment faire pour avoir une fonction qui vide un répertoire mais qui supprime également les sous répertoires. J'ai essayé avec ShFileOpStruct mais ce n'est pas bon car cette fonction doit continuer même si le fichier est utilisé par Windows. Donc voyez ce que j'ai fait : procedure ViderDossier(dossier: string); var TMPDossier : TSearchRec; TMPFichier : integer; Erreur :string; begin dossier := IncludeTrailingPathDelimiter(dossier); TMPFichier := FindFirst(dossier +'*.*',FaAnyfile,TMPDossier); while TMPFichier = 0 do begin if ((TMPDossier.Attr and FaDirectory <> FaDirectory) and (TMPDossier.Attr and FaVolumeId <> FaVolumeID)) then if DeleteFile(pChar(dossier+TMPDossier.Name)) = false then Erreur := ''; TMPFichier := FindNext(TMPDossier); end; SysUtils.FindClose(TMPDossier); end; Cette fonction supprime bien les fichiers non utilisés par Windows mais ne va pas dans les sous répertoires. Quelqu'un aurait il la solution SVP ? Je vous remerci d'avance pour vos réponses.

Adidas2 · Answer

Merci je vais essayer je vous tiens au courant demain car la je fatigue.
Merci beaucoup ;)

Adidas2 · Answer

Je viens d'essayer cette fonction et apparemment elle ne veut pas marcher.
J'ai mis un showmessage pour voir la valeur qu'avait la variable qu'on passe à destruct_root je me retrouve pas tout à fait avec l'adresse de mes sous-dossier c'est normal ?
et je comprend pas trop l'intérêt du chem := copy(adr, 1, length(adr)-1); vous pourriez m'expliquer pourquoi on supprime le caractère de fin svp ?
Merci d'avance

Vider un répertoire et supression de sous répertoire

2 réponses

Votre réponse

Discussions similaires