Filer i et dir

<quote>Er der virkelig ikke en måde at gøre det på, med ren kode, uden komponenter?
</quote>

Joda - prøv med følgende:

<pre>
procedure TForm1.RecursePath(Path: String);
var
SearchRec: TSearchRec;
begin
if FindFirst(Path + '\\*.*', faAnyFile, SearchRec) = 0 then
begin
repeat
if SearchRec.Attr and faAnyFile <> 0 then
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
if Pos(LowerCase('.txt'), LowerCase(SearchRec.Name)) > 0 then //hvis du vil have andet end .txt filer skal du rette det her
ListBox1.Items.Add(Path + '\\' + SearchRec.Name);
RecursePath(Path + '\\' + SearchRec.Name)
end;
end
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RecursePath('c:');
end;
</pre>

<quote>Hej udviklere

Jeg sidder med et lille problem.
Hvordan kan jeg finde alle txt-filer i et dir, og lægge navnene på filerne ind i en listbox???

Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk
</quote>

Her er det du søger: <a href="http://emilemil.subnet.dk/TFileSearch.zip">TFileSearch</a>.
Det er et komponent der kan søge efter filer og derefter kommer navnet som en string.

Emil Melgaard
<p><a href="mailto:emil.melgaard@private.dk">emil.melgaard@private.dk</a></p>

<quote>Hej udviklere

Jeg sidder med et lille problem.
Hvordan kan jeg finde alle txt-filer i et dir, og lægge navnene på filerne ind i en listbox???

Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk
</quote>

Her er det du søger: http://emilemil.subnet.dk/TFileSearch.zip
Det er et komponent der kan søge efter filer og derefter kommer navnet som en string.

Emil Melgaard
<p><a href="mailto:emil.melgaard@private.dk">emil.melgaard@private.dk</a></p>

Er der virkelig ikke en måde at gøre det på, med ren kode, uden komponenter?

Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk

Min delphi 6.0 siger Missing operator or semicolon i denne linie og et par andre:

if (SearchRec.Name '.') and (SearchRec.Name '..') then


Hvad skyldes det?



Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk

<quote>Min delphi 6.0 siger Missing operator or semicolon i denne linie og et par andre:

if (SearchRec.Name '.') and (SearchRec.Name '..') then

Hvad skyldes det?
Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk</quote>

Jeg tror at der skulle have stået
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
istedet for
if (SearchRec.Name '.') and (SearchRec.Name '..') then

i linien hvor der står
if Pos(LowerCase('.txt'), LowerCase(SearchRec.Name)) > 0 then
vil jeg dog hellere skrive
if LowerCase(ExtractFileExt(SearchRec.Name)) = '.txt' then

Kim Jensen aka BOSH
http://www.hulubulu.dk

Hvad så med linien:


if SearchRec.Attr and faAnyFile 0 then


Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk

<quote>Hvad så med linien:


if SearchRec.Attr and faAnyFile 0 then


Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk
</quote>



<b> Øhhhh.... ved det ikke.... :-] </b>

<quote>Hvad så med linien:
if SearchRec.Attr and faAnyFile 0 then
</quote>

Der mangler mindre og større end tegnene også mellem faAnyFile og 0.....det er da lidt træls at de bliver fjernet...ka du så rette det Kasper :-)

Det lader til at computeren ikke finder nogle filer, hvis jeg sætter den til at vise en message med SearchRec.Name er resultatet bare: '.'
Selvom der faktisk er to filer i diret.


Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk