Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
14th
Сен
Поиск файла на диске
Posted by micher under Delphi
Dux
Как найти определенный файл на диске?
К примеру нужно найти файл test.mpg. В случае удачного поиска необходимо вывести путь к этому файлу. Может у кого есть готовый пример?
eoln
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure ScanDir(StartDir: string; FileNam: string);
var SearchRec : TSearchRec;
begin
if StartDir[Length(StartDir)] <> '\' then
StartDir := StartDir + '\';
try
if FindFirst(StartDir+FileNam, faAnyFile, SearchRec) = 0 then
repeat
if (SearchRec.Attr and faDirectory) <> faDirectory then begin
writeln(StartDir+SearchRec.Name);
readln;
halt
end;
until FindNext(SearchRec) <> 0;FindClose(SearchRec);
except end;
{разделение по каталогам}
if FindFirst(StartDir+'*', faAnyFile, SearchRec) = 0 then
try
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
if (SearchRec.Name <> '..')
and (SearchRec.Name <> '.') then
begin
ScanDir(StartDir + SearchRec.Name + '\', FileNam);
end;
until FindNext(SearchRec) <> 0;FindClose(SearchRec);
except end;
end;
var
chrI:char;
begin
for chrI:='A' to 'Z' do begin
//if not diskexist(chrI) then continue;
ScanDir(chrI+':\','test.mpg') //имя файла
end
end.
Похожие статьи
