Проверка наличия файла

← →
Urvin (2006-05-27 08:48) [0]

Как проверить наличие определенного файла ("c:\123.txt") на другом компьютере в локальной сети (пусть "computer2")?

← →
Kolan © (2006-05-27 12:37) [1]

FileExists("c:\123.txt");

← →
ssk © (2006-05-27 13:18) [2]

>>Kolan © (27.05.06 12:37) [1]
FileExists("c:\123.txt");

ну-ну...

← →
inri13666 © (2006-05-27 16:15) [3]

Можно сделать более тупа без fileexists, вот так
...
VAr ff:file;
...
begin
...
{I$-}
assignfile(ff,"c:\123.txt");
reset(ff);
{I$+}
if ioresult<>0 then Showmessage ("File not exists!!!!!!");
...
end;» Palladin:» 1 Директивы не оканчиваются символом $, а начинаются с него.

2 Неплохо было бы закрыть файл в случае удачи.
If IOResult=0 Then CloseFile(ff) Else ShowMessage("File not exists!!!!!!");

3 Провал операции Reset совсем не означает, что файла не существует. Например он (файл): может быть заблокирован другим приложением или у пользователя не будет прав на работу с ним....

← →
Rial © (2006-05-27 16:33) [4]

А можно еще так:

...
Var Image:TImage;
...
begin
...
Image:=TImage.Create;
Image.Parent:=Self;
Try
Try
Image.LoadFromFile("C:\123.txt");
Except
Showmessage ("File not exists!!!!!!");
end;
Finally
Image.Free;
end;» Palladin:» 1 Image:=TImage.Create<b>({хотя бы}Nil)</b>

2 Image.<b>Picture.</b>LoadFromFile("C:\123.txt");

3 Тоже что и в 3 пункте комментария выше + загрузиться смогут только файлы изображений и только те, формат которых распознает TPicture, ну и еще, в конце концов, памяти может не хватить :)

← →
Palladin © (2006-05-28 09:46) [5]

> Urvin (27.05.06 08:48)

FileExists("\\computer2\<имя доступного по сети ресурса отождествленного с корнем раздела C>\123.txt");

← →
Ega23 © (2006-05-28 12:42) [6]

> А можно еще так:
>
> ...
> Var Image:TImage;
> ...
> begin
> ...
> Image:=TImage.Create;
> Image.Parent:=Self;
> Try
> Try
> Image.LoadFromFile("C:\123.txt");
> Except
> Showmessage ("File not exists!!!!!!");
> end;
> Finally
> Image.Free;
> end;
>

Рыдал! В Орешник! Срочно.

← →
tesseract © (2006-05-28 12:46) [7]

> Рыдал! В Орешник! Срочно.

при прочтении сего плакалъ :-)

← →
TUser © (2006-05-28 17:14) [8]

В метод LoadFromFile класса TImage уже встроен Конвертор Форматов. А вы не слышали?

Я раз, что смог хоть кого - то развеселить...
Просто навеяно

> Kolan © (27.05.06 12:37) [1]

и

> inri13666 © (27.05.06 16:15) [3]

:))

> Urvin (27.05.06 08:48)

если прав доступа к comp2 достаточно, то
FileExists("\\comp2\с$\123.txt");
Иначе или [5] или никак.
Хотя, можно и троянца заслать на comp2, но это уже из другой оперы :))

Проверка наличия файла Найти похожие ветки