Функція FileSearch – пошук файлу в одній або більше папках

Функція FileSearch в Delphi – пошук файлу в одній або більше папках.

Функція FileSearch: Пошук у поточному каталозі та поза ним

var
  myFile       : TextFile;
  fileName     : string;
  fullFilePath : string;
  dir1, dir2   : string;

begin
  // Файл, який ми будемо шукати
  fileName := 'Test.txt';

  // Запис текстового файлу до поточного каталогу
  AssignFile(myFile, fileName);
  ReWrite(myFile);
  Write(myFile, 'Hello World');
  CloseFile(myFile);

  // Запис текстового файлу до іншого каталогу
  AssignFile(myFile, 'C:\Program Files\'+fileName);
  ReWrite(myFile);
  Write(myFile, 'Hello World');
  CloseFile(myFile);

  // Визначення двох каталогів, де хочемо шукати файл
  dir1 := 'C:\No such directory';
  dir2 := 'C:\Program Files';

  // Пошук файлу
  fullFilePath := FileSearch(fileName, dir1+';'+dir2);

  // Якщо ми шукаємо зараз, ми знайдемо його у поточному каталозі
  if fullFilePath = ''
  then ShowMessage(fileName+' не знайдено')
  else ShowMessage(fullFilePath+' знайдено');

  // Тепер видаляємо Test.txt з поточного каталогу та повторюємо пошук
  DeleteFile(fileName);

  // Якщо ми шукаємо тепер, ми знайдемо його в одній із директорій пошуку
  fullFilePath := FileSearch(fileName, dir1+';'+dir2);
  if fullFilePath = ''
  then ShowMessage(fileName+' не знайдено')
  else ShowMessage(fullFilePath+' знайдено');
end;