ExtractFilePath

← →
odyssey © (2003-06-02 09:42) [0]

Мастера не судите строго (начинающий). Я понимаю, наверное это ерундовый вопрос, но нигде не могу найти на него ответ. При сохранении файла указываю путь - ExtractFilePath(ParamStr(0))+"file.txt"
Как сделать так, чтобы файл сохранялся здесь, но в отдельную папку?

← →
iNew © (2003-06-02 09:44) [1]

Здесь это где?

← →
odyssey © (2003-06-02 09:47) [2]

Здесь -это в той папке где находится сама прога. Я так понимаю при использовании ExtractFilePath(ParamStr(0))+"file.txt"
файл сохраняется там же где и ЕХЕ

← →
Lord Warlock © (2003-06-02 09:54) [3]

Правильно понимаешь.

← →
odyssey © (2003-06-02 09:55) [4]

to Lord Warlock ты ответ знаешь?

← →
Lord Warlock © (2003-06-02 09:57) [5]

вопрос сформулируй нормально, я ничего не понял

← →
iNew © (2003-06-02 09:59) [6]

ExtractFilePath(ParamStr(0))+"\NewPapaka"+"\file.txt".
Только папку надо предварительно создать.

← →
odyssey © (2003-06-02 10:06) [7]

to Lord Warlock Допустим ехе будет находиться C:\MyProg. Мне необходимо чтобы созданный прогой файл сохранялся C:\MyProg\Files\file.txt Я не могу явно указать путь, так как не знаю где будет находиться прога, поэтому использую ExtractFilePath(ParamStr(0)). Может я что-то не правильно понимаю?

← →
Lord Warlock © (2003-06-02 10:07) [8]

Ну тогда как написал iNew © (02.06.03 09:59)

ForceDirectories((ExtractFilePath(ParamStr(0))+"\Files")+"\file.txt".

Если подкаталога нет, он будет создан

to Lord Warlock, to iNew понял спасибо

Не работает. Если писать так, как подсказал iNew ExtractFilePath(ParamStr(0))+"\NewPapaka"+"\file.txt".
, то делфи воспринимает все вместе \NewPapaka\file.txt как название файла.
Так как подсказал Lord Warlock, выдается ошибка о несответствии типов boolean и string.

ForceDirectories((ExtractFilePath(ParamStr(0))+"\Files");
AssignFile(F, ExtractFilePath(ParamStr(0))+"\Files\file1.txt");

гм, извиняюсь..

Const MyFolder="\Files"; var Path,FileName: String; Path:=ExtractFilePath(ParamStr(0))+MyFolder; if ForceDirectories(Path) then begin FileName:=Path+"\file.txt"; ... end;

ExtractFilePath Найти похожие ветки