В какой папке находиться файл

← →
qweqweqweqweasd (2009-11-19 17:34) [0]

Как узнать в какой папке находиться файл?

есть путь C:\folder\new\1.txt

надо вытащить new из этого пути

написал такую функцию
function GetLastDir(FilePath:widestring):string ;
var
i:integer;
s:widestring;
begin
s:=ExtractFileDir(FilePath);
if s="" then exit;

for i:=Length(s) downto 0 do
begin
if s[i]="\" then
delete(s,1,i);
end;
result:=s;
end;

Но иногда просиходит ошибка на if s[i]="\" then

← →
Игорь Шевченко © (2009-11-19 17:36) [1]

> Но иногда просиходит ошибка на if s[i]="\" then

Больно слышать

← →
Омлет © (2009-11-19 17:38) [2]

1. s[0] не существует.

2. if s[i]="\" then
begin
delete(s,1,i);
Break;
end;

← →
{RASkov} © (2009-11-19 17:41) [3]

ShowMessage(ExtractFileName(ExtractFileDir("C:\folder\new\1.txt")));

← →
qweqweqweqweasd (2009-11-19 17:44) [4]

Спасибо!!!

← →
Омлет © (2009-11-19 17:58) [5]

> [3] {RASkov} © (19.11.09 17:41)

Хитро )

← →
oldman © (2009-11-19 17:59) [6]

> Как узнать в какой папке находиться файл?
>
> есть путь C:\folder\new\1.txt
>
> надо вытащить new из этого пути

А почему не С:\
А почему не folder?
А почему не folder\new?

К выделенному: есть понятие папка, есть подпапка (простите мне мой русский).

← →
Омлет © (2009-11-19 18:14) [7]

> [6] oldman © (19.11.09 17:59)

Есть директория, а есть полный путь.
Папки - это у секретарш :)

> К выделенному: есть понятие папка, есть подпапка

> Есть директория

Есть еще и каталог, но самое главное, что и первое и второе и третье - файл. В этом и хитрость [3] :)

В какой папке находиться файл Найти похожие ветки