Скачать: CL | DM;

Ищем только папки   Найти похожие ветки 

← →
Magical   (2003-11-30 17:08) [0]

Почему по следующему коду

procedure TForm1.Button1Click(Sender: TObject);
var
F: TSearchRec;
Path: string;
Attr: Integer;
begin
Path := "C:\*.*";
Attr := $0000003F;
FindFirst(Path, Attr, F);
begin
ListBox1.Items.Add(F.name); {Добавление в TListBox имени найденного файла}
while FindNext(F) = 0 do
ListBox1.Items.Add(F.name);
end;
FindClose(F);

end;


находятся не только папки(но не все) но и всякие другие папки.

---

← →
KA_ ©   (2003-11-30 17:17) [1]

Потому что

unit SysUtils;
...
faAnyFile = $0000003F;
...

Таким образом ты ищешь все файлы и папки по заданной маске Path.
Чтобы найти только папки надо указать

Attr := $00000010; // faDirectory


---

← →
Magical   (2003-11-30 17:30) [2]

Пардон ошибся, но и при таком расскладе получаем
такой список папок:
aitorg.txt
avpupd.rep
bitsetup.log
Data
Doc
Documents and Settings
Mathematics2004
matlabR12
My Downloads
PDOXUSRS.NET
Program Files
samples
t.exe
temp
tp
WINDOWS
WINNT
__rar_12.846

Но ведь t.exe и т.д. это не папки, причем наличие разрешения проверять не годиться, так как есть эе файлы и без разрешения.

---

← →
dataMaster ©   (2003-11-30 17:37) [3]

Тебе сюда http://delphibase.endimus.com/?action=viewfunc&topic=filenames&id=10328

---

← →
Magical   (2003-11-30 18:13) [4]

Большое спасибо!!!!!!!!!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c