VPF::Поиск папки (каталога) - Форум программистов

alek1987new

Дата 27.3.2010, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.11.2009

Репутация: нет
Всего: -1

Привет всем, вот такая задача стоит передо мной-имеется тоько название папки, которое записывается в едит1, по этому названию я должен найти папку и открыть ее, подскажите пожалуйста как осуществить мою задумку. Заранее благодарен.

Frees

Дата 27.3.2010, 23:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

http://lmgtfy.com/?q=delphi+%D0%BF%D0%B0%D...%B8%D1%81%D0%BA

--------------------

Кольцов Виктор Владимирович

bems

Дата 28.3.2010, 15:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Сформулируй точнее

--------------------

Обижено школьников: 8

alek1987new

Дата 28.3.2010, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.11.2009

Репутация: нет
Всего: -1

Вот нашел код поиска папки, только не пойму где задается имя папки, которую мне надо найти

Код


procedure ffind(cat:string); //каталог, откуда начать поиск
var sea:TSearchRec;
res:integer; //результат поиска (0 или нет)
begin
res:=FindFirst(cat+'*.*',faAnyFile,sea); //ищем первый файл
res:=findNext(sea);//ищем следующий файл
While res=0 do
begin
if (Sea.Attr=faDirectory) and ((Sea.Name='.')or(Sea.Name='..')) then//чтобы не было файлов . и..
begin
Res:=FindNext(sea);
Continue;//продолжаем цикл
end;
 
if (Sea.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
begin
form1.ListBox1.Items.Add(Sea.Name);
Ffind(cat+Sea.Name+'\');//рекурсивно вызываем нашу процедуру
Res:=FindNext(Sea);//ищем след. файл
Continue;//продолжаем цикл
end;
Res:=FindNext(Sea);//ищем след. файл
end;
FindClose(Sea);//освобождаем пересенную поиска
end;

bems

Дата 28.3.2010, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Модератор: не создавайте дубликатов

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »