Создание файла если такого файла нету

[Shaitan63]

У меня вот вопрос: нужно написать код, который обращался к папке и в случи если файла в папке нету(пример 46.txt) то он создавался и записывал в него данные.

[RUSt88]

в делфи например параметр rewrite по-моему, чет такое

[SERG1980]

можно так

var SL:TStringList;
if not FileExists('путь к файлу') then
begin
 SL:=TSteingList.Create;
 SL.Add('данные');
....
 SL.SaveToFile('путь сохранения');
 SL.Free;
end;

[Serge_Bliznykov]

Shaitan63 - язык программирования какой? и под какую среду исполнения?

и ещё, а если такой файл в папке уже есть, что делать программе?
Если в любом случае записывать — тогда RUSt88 дал абсолютно верный совет - перезаписывайте файл, если его нет, он создастся, если же есть - то перезапишется.

А если реально надо анализировать, есть такой файл или нет, и, в зависимости от этого принимать решение, то:

если Pascal - то там либо поставить опцию игнорировать ошибки ввода/вывода ($I-} и пытаться открыть файл и анализировать IOResult
либо воспользоваться функцией поиска файла через FindFirst(..)

если речь идёт о Дельфи - то есть уже функция FileExists

[Shaitan63]

сорри что невсе данные дал) delphi7 под XP sp2 в случии если такой файл есть то в него записывать данные из программы

[Serge_Bliznykov]

а вышесказанного не хватило?

ладно.
если файл нужно перезаписать (старые данные теряются, новые записываются):

  var f : TextFile;
begin
  AssignFile(f,'46.txt');
  Rewrite(f);
  WriteLn(f, 'Новая строчка в файле 46!!!');
  Flush(f);
  CloseFile(f);
end;

если данные в файл нужно ДОПИСЫВАТЬ в конец:

  var f : TextFile;
begin
  AssignFile(f,'46.txt');
  if FileExists('46.txt') then Append(f)
     else Rewrite(f);
  WriteLn(f, 'Дописанная строчка в файле 46!!!');
  Flush(f);
  CloseFile(f);
end;

[Shaitan63]

всё понел спасибо завтро буду колдовать

[Shaitan63]

насколько я понел этот код

if not FileExists('путь к файлу') then

рашифровывается как- если файла нет, то...

а этот код

SL:=TSteingList.Create;
SL.Add('данные');
....
SL.SaveToFile('путь сохранения');
SL.Free;

создаёт лист с текстовыми данными и сохроняет его по нужному адрессу?

[Serge_Bliznykov]

точно.
только:

SL:=TStringList.Create;

[DeKot]

Осмелюсь добавить к вышесказанному - в постах #1 - #6 рассматривается классический (паскалевский) метод работы с текстовыми файлами, а

SL:=TStringList.Create;
SL.Add('данные');
....
SL.SaveToFile('путь сохранения');
SL.Free;

это уже работа с файлом , как с объектом (ООП) класса TStrings.