ExtractFilePath

[epickgod]

Добрый день! Помогите пожалуйста! Как при помощи ExtractFilePath или подобных функций извлечь из пути к файлу только последнюю папку?

Т.е. есть функция из фака, которая выдает полный путь к файлу:

var
    S: string;
begin
 ...
    S:= ExtractFilePath( 'C:\DIR1\DIR2\myfile.zzz');  //S :='C:\DIR1\DIR2\'
 ...
end;

а мне нужно, чтобы на выходе S:=DIR2;

Подскажите пожалуйста

[evg_m]

file:='C:\dirx\dir\file.txt';
dir:=Extractfiledir(file);
rez:=ExtractFileName(dir);

[epickgod]

да, все работает, спасибо. Но вероятно я не правильно выразился с вопросом. В общем если полностью,то мне нужно:
Есть текстовое поле, в которое вводится имя папки и ункция подсчета кол-ва файлов в папке. Так вот например пиложение запускается из д:\тест\тест.ехев корне лежит папка 001 в ней находится 5 файлов изображений, и папка, допустим с названием "3" в которой 2 изображения. Мне нужно реализовать подсчет лбщего количеста файлов в папке, вводимой в текстовое поле сиучетом того, что если если в папке (из поля эдит) находится папка допустим "3", то количество файлов в ней необходимо умножать на 3. Поможите?