lister les fichiers d'un repertoireRésolu

Question

bonjour, j'ai un petit problème avec le code suivant : Code : function GetDirectory(const strPath: String): String; var WFD: TWin32FindData; hFile: THandle; strFile, strDirectory: String; begin hFile := FindFirstFileA(PChar(strPath + '*'), WFD); while FindNextFileA(hFile, WFD)doif(WFD.dwFileAttributesand16) = 16 then(if Copy(String(WFD.cFileName),1,1) <> '.' then strDirectory := strDirectory + #2 + String(WFD.cFileName) + #1) else strFile := strFile + String(WFD.cFileName) + #1; Result := strDirectory + strFile; end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage(GetDirectory('D:\')); end; il est censé m'afficher tous les fichiers et dossiers contenus dans le repertoire D:\ le code marche, mais néanmois il y a un problème en effet, il ne m'affiche pas le premier, par exemple si j'ai un répertoire nommé "abc" et qu'il est le premier dans l'ordre alphabétique, il n'apparaitra pas, et si ensuite je créé un repertoire nommé "aaa" alors du coup le abc apparaitra mais pas le "aaa" avez vous une idée de la manière dont je peux corriger ça ? merci

cptpingu · Accepted Answer

Methode crade: tu rajoute un traitemnet pour le 1er element: (pense a indenter ton code, parce que la c'est horrible) hFile := FindFirstFileA(PChar(strPath + '*'), WFD); if(WFD.dwFileAttributesand16) = 16 then(if Copy(String(WFD.cFileName),1,1) <> '.' then strDirectory := strDirectory + #2 + String(WFD.cFileName) + #1) else strFile := strFile + String(WFD.cFileName) + #1; Result := strDirectory + strFile; while FindNextFileA(hFile, WFD)doif(WFD.dwFileAttributesand16) = 16 then(if Copy(String(WFD.cFileName),1,1) <> '.' then strDirectory := strDirectory + #2 + String(WFD.cFileName) + #1) else strFile := strFile + String(WFD.cFileName) + #1; Result := strDirectory + strFile; end;

Lister les fichiers d'un repertoire

1 réponse

Votre réponse

Discussions similaires