Узнать, лежит ли в папке файл или подпапка.

← →
Андрей Молчанов (2005-08-08 18:45) [0]

Имеется путь к файлу C:\My folder\Images\image.jpg (например). Как узнать, лежит ли он в папке C:\My folder? В данном случае лежит.

← →
begin...end © (2005-08-08 18:50) [1]

Переформулируйте вопрос.

← →
Андрей Молчанов (2005-08-08 18:54) [2]

Есть путь и имя объекта (файлу или папке) - например, в случае с файлом C:\My folder\Images\image.jpg. И есть путь к другой папке. Как узнать, находится ли первый объект внутри второй папки?

← →
alex-drob © (2005-08-08 18:58) [3]

if pos("C:\My folder\","C:\My folder\Images\image.jpg"")<>0 then
Лежит
Else
нет

← →
Андрей Молчанов (2005-08-08 19:04) [4]

> alex-drob ©

Это я понимаю, но все таки хотелось бы какого нибудь более стандартного способа.

Кстати, если использовать этот, то скорее лучше в виде:
if pos("C:\My folder\","C:\My folder\Images\image.jpg")=1 then
Лежит
Else
нет

← →
begin...end © (2005-08-08 19:07) [5]

> Андрей Молчанов (08.08.05 19:04) [4]

> хотелось бы какого нибудь более стандартного способа

Насколько я знаю, такого нет.

> Кстати, если использовать этот, то скорее лучше в виде...

Верно.

← →
Андрей Молчанов (2005-08-08 19:12) [6]

> Насколько я знаю, такого нет.

Жаль придется юзать этот.

Кстати, если кто-то еще будет его использовать, то:
if pos(IncludeTrailingPathDelimiter("C:\My folder\"),"C:\My folder\Images\image.jpg")=1 then
Лежит
Else
нет

← →
Kolan © (2005-08-08 19:14) [7]

FileName := ExtractFileName("C:\My folder\Images\image.jpg");

{FileName будет "image.jpg"} if FileExists("C:\My folder\"+FileName) then Result := True else Result := False;

Я не понял вопрос?

← →
Андрей Молчанов (2005-08-08 19:16) [8]

Вот этот код работать как раз не будет:
"C:\My folder\"+FileName равен "C:\My folder\image.jpg", а существует файл "C:\My folder\Images\image.jpg".

> Имеется путь к файлу C:\My folder\Images\image.jpg

Те тут лежит файл?

> Как узнать, лежит ли он в папке C:\My folder

Те надо узнать лежит ли этот файл и в этой папке. Так?

Ты неправильно понял. Вопрос был такой: является ли один каталог подкаталогомдругого?

← →
Андрей Молчанов (2005-08-08 19:31) [11]

В общем, я понял - специальной функции нету :(
Ну чтож, буду пользоваться при помощи Pos. Спасибо всем ответившим. :)

Кстати, может кто-то знает, как можно оптимизировать цикл в http://delphimaster.net/view/1-1123510283/ ?

Узнать, лежит ли в папке файл или подпапка. Найти похожие ветки