Клуб программистов

    Delphi функция FileSearch осуществляет поиск файла в одной или более папках. Необходимо указывать не только название папки, но и полный адрес этой папки.

    Имя файла может быть как файловым именем, так и полным адресом файла.

    Если файл будет найден, то возвращается полный адрес файла включая имя файла, в случае не нахождения искомого файла будет возвращена пустая строка.

    ПРЕДУПРЕЖДЕНИЕ: ВСЕГДА сначала поиск будет проходить в текущей папке (смотри GetCurrentDir), независимо от перечисленных директорий. Если файл обнаруживается там, то путь файла возращён не будет, а только имя файла.

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

begin
   // The file we will be searching for
   fileName := 'Test.txt';

   // Write to a text file in the current directory
   AssignFile(myFile, fileName);
   ReWrite(myFile);
   Write(myFile, 'Hello World');
   CloseFile(myFile);

   // Write to a text file to another directory
   AssignFile(myFile, 'C:\Program Files\'+fileName);
   ReWrite(myFile);
   Write(myFile, 'Hello World');
   CloseFile(myFile);

   // Define two directories where we want to search for the file
   dir1 := 'C:\No such directory';
   dir2 := 'C:\Program Files';

   // Search for the file
   fullFilePath := FileSearch(fileName, dir1+';'+dir2);

   // If we search now, we will find it in the current directory
   if fullFilePath = ''
   then ShowMessage(fileName+' not found')
   else ShowMessage(fullFilePath+' found OK');

   // Now delete Test.txt from the current directory and retry
   DeleteFile(fileName);

   // If we search now, we will find it in one of the search dirs
   fullFilePath := FileSearch(fileName, dir1+';'+dir2);
   if fullFilePath = ''
   then ShowMessage(fileName+' not found')
   else ShowMessage(fullFilePath+' found OK');
end;

Test.txt found OK
C:\Program Files\Test.txt found OK