| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как можно узнать какие папки находяться в определённом каталоге [D6, XP]

Malik ©   (2007-03-17 22:24:00) 

Помогите плизз!!!

---

RASkov   (2007-03-18 13:17:00) [1]

> [7] DrPass ©   (18.03.07 12:22)

Еще замороченее получилось :))

>CorrectFinalDelimiter();

---

DrPass   (2007-03-18 12:22:00) [2]

> RASkov   (18.03.07 11:46) [6]

Все равно, надо уточнить:
AddFinalDelimiterToTheEndOfTheString

---

RASkov   (2007-03-18 11:46:00) [3]

> А если путь отделяется не слешем?

AddFinalDelimiter...)

---

DrPass   (2007-03-18 11:29:00) [4]

> И не могли они обозвать IncludeTrailingPathDelimiter чем-
> нибудь вроде AppendMissingSlash.

А если путь отделяется не слешем?

---

Zeqfreed   (2007-03-18 10:07:00) [5]

И не могли они обозвать IncludeTrailingPathDelimiter чем-нибудь вроде AppendMissingSlash.

---

RASkov   (2007-03-18 08:46:00) [6]

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....

---

Германн   (2007-03-18 01:41:00) [7]

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

"Папки" в "каталогах" находятся только в "спецхранилищах"! :)

---

RASkov   (2007-03-17 22:32:00) [8]

FindFirst, FindNext
faDirectory

---

Наверх