Есть ли на диске файл с данным именем? , Разные способы это узнать

Ну вы блин даёте, а что не знаете о стандартной паскалевской функции FSearch, FSplit, FExpand?

Кстати, да! Сам всегда через FSearch делал, а сейчас забыл
Правильно проверять так: FSearch('ИмяФайлаСИменемПути', '') , а не FSearch('ИмяФайла', 'ПутьКФайлу') !!!

Сообщение отредактировано: Some1 - 19.12.03, 12:12

Можно и через FileSearch из модуля windows попробовать.......

uses windos;
var p:pchar;
s:array[0..100(длина названия)] of char;
d:array[0..100(длина пути к файлу)] of char;
begin
writeln('Имя файла');
readln(s);
p:=strnew(s);
filesearch(d,p,getenvvar('path'));
if d[0]=#0 then writeln('Файла на диске нет')
else writeln('Путь к файлу - ',fileexpand (d,d));
end.

Добавлено в 10.01.04, 19:40:
Из модуля WinDos