Поиск файлов

[maks5]

Доброе время суток! Как найти адреса к файлам в папке, в которой лежит программа? Допустим мне нужно найти все exe файлы в этой папке. Заранее благодарен.

[MoBLer]

Вот нашел в интернете, немного переделал можно искать любые файлы

[maks5]

Спасибо!! буду разбираться.

[maks5]

А как с этими получеными адресами связать переменные?

[maks5]

Как?.......

[MoBLer]

Адреса найденых файлов записуются в массив. Потом используеш этот массив как угодно)))

uses Dos;
Const n=100; {максимальное кол адресов}
var total,totald:longint;
    i,m:integer;
     a:array[1..n] of string;{ массив стингов тут будут хранится адреса файлов} 
  Procedure SearchDisk(mask,cat:string);
  var DirInfo: SearchRec;
      CurDir:string;
  begin
  i:=1;
    GetDir(0,CurDir);
    chdir(cat);
    FindFirst(mask, AnyFile, DirInfo);
    while DosError = 0 do
      begin
      if (DirInfo.Name<>'.') and (DirInfo.Name<>'..') then
        begin

      {  writeln(curDir,'\',DirInfo.Name); а вот эта строчка выводит адрес на экран}
        a[i]:=curDir+'\'+DirInfo.Name;{добовляем в массив адрес}
        i:=i+1;
        if (DirInfo.Attr = $10) then
          begin { directory found }
          inc(totald);
          if (cat='\')
            then SearchDisk(mask,'\'+DirInfo.Name)
            else SearchDisk(mask,cat+'\'+DirInfo.Name);
          end
        else { file found }
          inc(total);
        end;
      FindNext(DirInfo);
      end;
    chdir(CurDir);
  end;
begin
total:=0; totald:=0;
SearchDisk('*.exe','');
writeln;
for m:=1 to  i-1 do {Выводим массив с адресами} 
writeln('a[',m,']=',a[m]);
readln
end.

[maks5]

спасибо огромное. Вот теперь можно разбираться.