filer i en mappe

Tags:    delphi

Hvordan kan jeg tilføje alle filer fra en mappe til min listbox??

skal ske når programmet starter

procedure TForm1.FormCreate(Sender: TObject);
begin

//?
listbox1.item.add(c:\\mappe\\); //?
//?

end;



6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato

Som nævnt kan FindFirst, FindNext og FindClose(Hedder den vidst :P) bruges. Der er et eksempel i Delphi's hjælp(Er der ihvertfald i D6PE's hjælp).

MH.

The-Freak

Livet er for kort til at kede sig.



procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
if FindFirst('C:\\Test\\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
if not (sr.Name = '.') and not (sr.Name = '..') then
listbox1.Items.Add(sr.Name) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

Nu tilføjer den alle mapper og filer, minus "." og "..".

The-Freak: Jeg henviste til Win32 API'ets funktioner, ikke Delphi's langsommere "wrappere" til dem.

1101110100010110000101000001

[Redigeret d. 21/03-05 13:01:39 af Nicolai Lyster Fersner]



Du kan benytte FindFirstFile og FindNextFile fra Win32 API'et. Kig på MSDN eller Win32 hjælpen for information omkring disse.

1101110100010110000101000001

[Redigeret d. 21/03-05 11:41:41 af Nicolai Lyster Fersner]



procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
if FindFirst('c:\\test\\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
begin
listbox1.Items.Add(sr.Name) ;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

viker :) men den tilføjer også:
.
..
^hvordan får jeg den til at ikke at tilføje det?





Ja Nicolai, det er jeg klar over ;)

MH.

The-Freak

Livet er for kort til at kede sig.




Ja Nicolai, det er jeg klar over ;)

MH.

The-Freak

Livet er for kort til at kede sig.


Okay, men din formulering beskrev det anderledes ;-)

1101110100010110000101000001



t