| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
@ntonioo
Зарегистрирован: 02.03.2006
Сообщения: 1
|
 Добавлено: Сб Мар 04 2006 15:51 Заголовок сообщения: Как получить список файлов и поддиректорий в указанной дирек |
 |
|
Пожалуйста подскажите (очень нужно): Как получить список файлов и поддиректорий в указанной директории используя С++ Builder6 или Delphi6.
_________________
1111 |
|
| Вернуться к началу |
|
 |
Делф1Ст
Зарегистрирован: 28.02.2006
Сообщения: 24
|
| Добавлено: Пт Мар 10 2006 17:04 Заголовок сообщения: |
|
|
Вот тебе код
| Цитата: | Procedure SearchDir(Dir:string);
var S:TSearchRec;
res :integer;
begin
res := FindFirst(dir+'\*.*', faAnyFile,s);
While res = 0 do
begin
if (s.Name = '.' )or (s.Name='..') then begin
res:=FindNext(s);
continue;
end;
if s.Attr=faDirectory
then SearchDir(dir+s.Name)
else
Form1.Memo1.Lines.Add(dir+s.Name);
res:=FindNext(s);
end;
FindClose(s);
end; |
Юзай на здоровье  |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
