Создать папку и извлечь путь до нее

[artemavd]

Доброе утро! Создаю папку с текущей датой:

 CreateDir(DateToStr(Now));

Нужно получить путь к ней и записать в Lable для дальнейших действий. Как это сделать?

[FaTaL]

ExtractFilePath (Application.ExeName) + DateToStr(now) + '\';

[Alex Cones]

Если я работаю в 23:59 ВНЕЗАПНО выскочит ошибка Path not found.

Вы идете по неверному пути, создавая лишние телодвижения.

Var
 PathName : String;
Begin
 PathName := DateToStr(Now);
 CreateDir(PathName);
 ...
 Label1.Caption := PathName;

+ : PathName не измениться до особых распоряжений.
+ : Выигрываем пару тактов, не используя DateToStr второй раз.

[artemavd]

От себя только добавлю еще, что нужно было дописать так:

Var
 PathName : String;
Begin
 PathName := DateToStr(Now);
 CreateDir(PathName);
 ...
 Label1.Caption := ExtractFilePath(Application.ExeName) + PathName + '\';

[Alex Cones]

ExtractFilePath(Application.ExeName

Я обычно использую GetDir. И писать короче и модули никакие не требует.

[ZuBy]

Сообщение от Alex Cones

Я обычно использую GetDir. И писать короче и модули никакие не требует.

а если в проге есть TOpen/SaveDialog?

[Alex Cones]

(* GLOBAL *)
Var
 CurDir : String;

Form1.OnCreate
Begin
 GetDir(0, CurDir);
End;

[ZuBy]

Alex Cones, если только так)