Скачать: CL | DM;

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".

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

---

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

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

---

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

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

---

← →
Sandman25 ©   (2003-06-02 10:53) [11]

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

---

← →
Lord Warlock ©   (2003-06-02 11:07) [12]

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

Const MyFolder="\Files";
var Path,FileName: String;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c