Текущий архив: 2006.12.31;
Скачать: CL | DM;

Вниз

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

← →
Speak   (2006-08-22 14:20) [0]

Здравствуйте!
Такой вопрос, как можно программно просмотреть содержимое определенной директории, без использования компонентов, и все это должно работать в консольном приложении.

спасибо)...

---

← →
n0name   (2006-08-22 14:29) [1]

FindFirstFile/FindNextFile
Дальше MSDN тебе поможет.

---

← →
Speak   (2006-08-22 19:24) [2]

хотелось бы по подробней

---

← →
n0name   (2006-08-22 19:32) [3]

В принципе ты можешь использовать Borland"овские обертки.

procedure DumpDir(Path: string);
var
SearchRec: TSearchRec;
Res: Integer;
begin
Res := FindFirst(Path + "*.*", faAnyFile, SearchRec);
while Res = 0 do
 begin
  if ((SearchRec.Attr and faDirectory) > 0) then
   begin
    if (SearchRec.Name <> ".") and (SearchRec.Name <> "..") then DumpDir(Path + SearchRec.Name + "\");
   end
  else
   if ExtractFileExt(SearchRec.Name) = ".lnk" then WriteStr(Path + SearchRec.Name);
  Res := FindNext(SearchRec);
 end;
FindClose(SearchRec.FindHandle);
end;


---

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

Текущий архив: 2006.12.31;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c