Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.045 c
3-1161186750
Shopot
2006-10-18 19:52
2006.12.31
InterBase. Не могу найти WISQL!!!


2-1165902757
Mazer
2006-12-12 08:52
2006.12.31
Тренажор на клавиатуре по печатанию в слепую


15-1165579907
Павел Калугин
2006-12-08 15:11
2006.12.31
Спасите, лаба горит...


10-1124864820
Alisher
2005-08-24 10:27
2006.12.31
Использование DCOM - технологий


2-1166084082
Николай1
2006-12-14 11:14
2006.12.31
TApplicationEvents.onIdle не работает