Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
15th
Авг
Поиск файла по указанному пути
Posted by Chas under Delphi, Пост-обзор
Доброго времени суток! Мне нужна помощь… это касается поиска файла.
Допустим иметься некий файл file.txt по адресу c:\123\навание_папки_которое_я_не_з наю\file.txt
Так вот как мне этот файл найти если я знаю только первоначальный путь к нему?!
Serge_Bliznykov:
FindFirst + FindNext
// для работы функции MatchesMask()
// добавьте в uses модуль Masks
procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
SearchRec: TSearchRec;
begin
Dir := IncludeTrailingBackslash(Dir);
if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> 0 then begin
if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
DirSearch(Dir + SearchRec.name, Mask, sl)
end
else
if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
Sl.Add(Dir + SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DirSearch('C:\123\', 'file.txt', Memo1.Lines);
end;