asked on
Fill a list from a dir.
'Folder' is a dir like c:\windows
's1' is TListBox.Items
this is the code to fill the listbox with ALL the file op the directory 'folder'
---
procedure TForm1.FillFileList(Folder
var Rec : TSearchRec;
begin
sl.Clear;
if SysUtils.FindFirst(Folder + '*.*', faAnyFile, Rec) = 0 then
try
repeat
sl.Add(Rec.Name);
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;
---
This code adds only the files from c:\windows.
How can I change the code to add also ALL the sub-directories en sub-files?
's1' is TListBox.Items
this is the code to fill the listbox with ALL the file op the directory 'folder'
---
procedure TForm1.FillFileList(Folder
var Rec : TSearchRec;
begin
sl.Clear;
if SysUtils.FindFirst(Folder + '*.*', faAnyFile, Rec) = 0 then
try
repeat
sl.Add(Rec.Name);
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;
---
This code adds only the files from c:\windows.
How can I change the code to add also ALL the sub-directories en sub-files?
Delphi
Last Comment
jurgentje
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Thanks, i think i can do it with this code ;)
ASKER
I have a problem with filling the list from a CD.
He gives only the dirs and not the files in this dirs.
He gives only the dirs and not the files in this dirs.
this is because a cd files is read only
if u do the code exactly how i send to you there will be working on cd
ASKER
I already tought that was the problem, but how do I Change the code?
i try the code again on the cd work perfectly
ASKER
Not here :( He finds the subdirs, but not the file in thise dirs
ASKER
Not here :( He finds the subdirs, but not the file in thise dirs
ASKER
Not here :( He finds the subdirs, but not the file in thise dirs
ASKER
Not here :( He finds the subdirs, but not the file in thise dirs
ASKER
oeps sorry i refreshed a few times
i use win98
just the ide instead of use faanyfile try $FFFF or $FF
just curious what will be happend
replace fanayfile with $ff and try with $FFFF
just the ide instead of use faanyfile try $FFFF or $FF
just curious what will be happend
replace fanayfile with $ff and try with $FFFF
ASKER
if (rec.attr=17) or (rec.attr=18) then
this code works
this code works
uses
FileCtrl
var S: String;
Rec: TSearchRec;
begin
If SelectDirectory('Select Some Directory','',S) then
If FindFirst(S+'\*.MP3', 0 , Rec) = 0 then with
ListBox1.Items do begin
BeginUpdate;
Repeat
Add(S+'\'+Rec.Name);
Until FindNext(Rec) <> 0;
Endupdate;
end;
{This gives complete path and file name, or just the file name(without the var)If anything, this shows a very simple way to get the Windows select directory dialog. Note: Adds about 700 pathitems in about three secs on older machine and Windows 2000}
FileCtrl
var S: String;
Rec: TSearchRec;
begin
If SelectDirectory('Select Some Directory','',S) then
If FindFirst(S+'\*.MP3', 0 , Rec) = 0 then with
ListBox1.Items do begin
BeginUpdate;
Repeat
Add(S+'\'+Rec.Name);
Until FindNext(Rec) <> 0;
Endupdate;
end;
{This gives complete path and file name, or just the file name(without the var)If anything, this shows a very simple way to get the Windows select directory dialog. Note: Adds about 700 pathitems in about three secs on older machine and Windows 2000}
ASKER
OneSurfer, this code doesn't take the subdir's
but the dir is not the c:\idapi
but c:\windows\