VPF::Ошибка при создании файла - Форум программистов

kali

Дата 29.4.2008, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 9.11.2006
Где: Минск

Репутация: нет
Всего: 20

На Rewrite выкидывает ошибку Invalid Filename.

Не могу понять, чем ему имя не нравится? smile

Код


procedure TForm1.FormCreate(Sender: TObject);
var f: TextFile;
Path: String;
begin
GetDir(0,Path);
Path:=Path+'\Data\'+IntToStr(YearOf(Date))+'\'+IntToStr(MonthOf(Date))+'\'+IntToStr(Dayof(Date))+'\'+'1'+'.qqq';
  AssignFile(f,Path);
  Rewrite(f);
  CloseFile(f);
end;

--------------------

Работая над решением задачи, всегда полезно знать ответ.

Snowy

Дата 29.4.2008, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Сначала нужно создать все каталоги, входящие в путь (ForceDirectories), а уже потом пытаться создавать там файл.

volvo877

Дата 29.4.2008, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Цитата(kali @ 29.4.2008, 13:19

)

чем ему имя не нравится?

А папка с именем

Код


Path+'\Data\'+IntToStr(YearOf(Date))+'\'+IntToStr(MonthOf(Date))+'\'+IntToStr(Dayof(Date))+'\'

уже существует? Или ты хочешь создать файл в несуществующей папке? smile

kali

Дата 29.4.2008, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 9.11.2006
Где: Минск

Репутация: нет
Всего: 20

Snowy, Спасибо.
volvo877, если честно, был абсолютно уверен, что папки создаются автоматически при создании файла. smile

Это сообщение отредактировал(а) kali - 29.4.2008, 14:33

--------------------

Работая над решением задачи, всегда полезно знать ответ.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »