Текущий архив: 2007.04.08;
Скачать: CL | DM;
Вниз
Как можно узнать какие папки находяться в определённом каталоге Найти похожие ветки
← →
Malik © (2007-03-17 22:24) [0]Помогите плизз!!!
← →
RASkov (2007-03-17 22:32) [1]FindFirst, FindNext
faDirectory
← →
Германн © (2007-03-18 01:41) [2]
> Как можно узнать какие папки находяться в определённом каталоге
"Папки" в "каталогах" находятся только в "спецхранилищах"! :)
← →
RASkov (2007-03-18 08:46) [3]
procedure SearchDir(const Dir: String; Lst: TStrings);
var SR: TSearchRec;
begin
if FindFirst(Dir+"*.*", faDirectory, SR)=0 then
try
repeat
if (SR.Attr and faDirectory = faDirectory) and (SR.Name <> ".") and (SR.Name <> "..") then Lst.Add(SR.Name);
until FindNext(SR)<>0;
finally FindClose(SR); end;
end;
......
SearchDir("C:\Windows\", ListBox1.Items);
SearchDir(IncludeTrailingPathDelimiter(sDir), ListBox1.Items);
либо IncludeTrailingPathDelimiter перенести в SearchDir....
← →
Zeqfreed © (2007-03-18 10:07) [4]И не могли они обозвать IncludeTrailingPathDelimiter чем-нибудь вроде AppendMissingSlash.
← →
DrPass © (2007-03-18 11:29) [5]
> И не могли они обозвать IncludeTrailingPathDelimiter чем-
> нибудь вроде AppendMissingSlash.
А если путь отделяется не слешем?
← →
RASkov (2007-03-18 11:46) [6]> А если путь отделяется не слешем?
AddFinalDelimiter...)
← →
DrPass © (2007-03-18 12:22) [7]
> RASkov (18.03.07 11:46) [6]
Все равно, надо уточнить:
AddFinalDelimiterToTheEndOfTheString
← →
RASkov (2007-03-18 13:17) [8]> [7] DrPass © (18.03.07 12:22)
Еще замороченее получилось :))
>CorrectFinalDelimiter();
Страницы: 1 вся ветка
Текущий архив: 2007.04.08;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.039 c
