Поиск директорий.

← →
independant (2003-11-21 16:01) [0]

Существует ли функция WinApi или процедура в Delphi, возвращающая имена всех поддиректорий в заданой директории ?

Благодарю.

← →
VMcL © (2003-11-21 20:06) [1]

FindFirstFile, FindNextFile + посмотри исходники FindFirst() и FindNext() из модуля SysUtils.

← →
Юрий Ж. © (2003-11-22 17:55) [2]

FindFirstFile, FindNextFile + посмотри исходники FindFirst() и FindNext() из модуля SysUtils.
К этому надо еще проверять (SearchRec.Attr and faDirectory) = faDirectory, то это директория

← →
Dimman1 © (2003-11-22 18:17) [3]

кстати, кто в курсе, почему FindFirst - FindNext не работают (точнее работают, но там атрибуты какие то левые), если ищем на сетевом диске, а не на локальном? (в частности на WinXP наблюдал)

← →
Anatoly Podgoretsky © (2003-11-22 18:22) [4]

Какие левые, какие есть такие и есть.

← →
Dimman1 © (2003-11-22 18:41) [5]

а ты сам поищ на сетевом диске

← →
Anatoly Podgoretsky © (2003-11-23 10:17) [6]

Это ты кому?
Если мне, то приходится искать и проблем нет.

← →
independant (2003-11-25 15:01) [7]

Благодарю за ответы, кое-что ясно.Попытался я написать поиск всех директорий в C:\Program Files :

var
f1:Cardinal;
data32:Win32_Find_Data;

begin
f1:=FindFirstFile("C:\Program Files\*",data32);
if data32.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
begin
dir_n:=strpas(data32.cFileName);
showmessage(dir_n);
end;
repeat
FindNextFile(f1,data32);
if data32.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
begin
dir_n:=strpas(data32.cFileName);
showmessage(dir_n);
end;
until dir_n="";

end.

Но беда в том, что мой код получает не все директории :( Судя по showmessage получили .+..+19 имен, а всего в C:\Program Files 26 директорий.

Если кто подобное делал, приведите пожалуйста код или укажите, что у меня неверно.
2Юрий Ж. Ты предложил проверять
(SearchRec.Attr and faDirectory)=faDirectory
У какой процедуры эти параметры? Разве не подойдет
data32.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY

← →
MBo © (2003-11-25 15:50) [8]

в FAQ есть

← →
Alexis © (2003-11-25 15:52) [9]

А ссылку подкинуть сразу можно :) ?

← →
Dimka Maslov © (2003-11-25 17:19) [10]

(data32 and FILE_ATTRIBUTE_DIRECTORY) <> 0

← →
independant (2003-11-26 17:05) [11]

Немного изменил код, но проблема по прежнему осталась-не получаю названий директорий с атрибутом "Read-Only".

var
fperv:Cardinal;
lg:Boolean;
data32:Win32_Find_Data;

begin
fperv:=FindFirstFile("C:\Program Files\*.*",data32);
if data32.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
begin
dir_n:=strpas(data32.cFileName);
if (dir_n<>".") and (dir_n<>"..") then
showmessage(dir_n);
end;
repeat
lg:=FindNextFile(fperv,data32);
if (data32.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY)
or (data32.dwFileAttributes=FILE_ATTRIBUTE_READONLY) then
begin
dir_n:=strpas(data32.cFileName);
if (dir_n<>".") and (dir_n<>"..") then
showmessage(dir_n);
end;
until lg=false;
end.

Причем на результат не влияет то, включаю ли я в прогу выделенное условие или нет !
Если у кого была подобная проблема укажите, в чем дело.
2Dimka Maslov- в какое место вставлять условие-у меня возникает ошибка?

← →
independant (2003-11-27 16:25) [12]

Неужели никто не сможет мне помочь?
Dimka Maslov, мог бы ты уточнить, как в приведенном коде твое условие заюзать.

FAQ еще раз ;)

← →
independant (2003-11-27 16:29) [14]

ЭЭЭ-MBo, ну не будь нехорошим человеком, подкинь ссылку на фак(FAQ не маленький) :)

там есть поиск

Поиск директорий. Найти похожие ветки