Форум: "Начинающим";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Вниз

Как можно узнать какие папки находяться в определённом каталоге   Найти похожие ветки 

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.041 c