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

[pix_l]

Есть ли какая функция которая при сохранении файла по несуществующему пути, автоматом создает необходимые каталоги без запроса, а в случае совпадения, просто сохраняла бы файл? Т.е. у меня сейчас крутится обработчик: если каталог не существует, то Forcedirectories(). Но при каждом сохранении файла прокручивать такое не хотелось бы - может есть вариант какой?

[Stilet]

Это нормальный вариант, не парься.

[Ntlegend]

среди стандартных функцый не видал такого.. напиши сам сохранение в отдельную процедуру (функцыю)

проверка на существование директории

function DirectoryExist(var Directory: PChar): Boolean;
var
  Code: Integer;
begin
  Result := False;
  Code := GetFileAttributes(Directory);
  Result := ((Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0))
end;

метод применения:

if not DirectoryExist('C:\111')
 then CreateDirectory('C:\111', nil);

[FaTaL]

Сообщение от Ntlegend

среди стандартных функцый не видал такого.. напиши сам сохранение в отдельную процедуру (функцыю)

проверка на существование директории

function DirectoryExist(var Directory: PChar): Boolean;
var
  Code: Integer;
begin
  Result := False;
  Code := GetFileAttributes(Directory);
  Result := ((Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0))
end;

метод применения:

if not DirectoryExist('C:\111')
 then CreateDirectory('C:\111', nil);

Такая функция уже реализована в Delphi
DirectoryExists

[pix_l]

Сообщение от Stilet

Это нормальный вариант, не парься.

да вариант то не плохой, но эту штуку нужно прокручивать при каждом нажатии мыши (точнее на отпускание кнопки мыши) поэтому чуть ли не каждые 5 секунд обрабатывать условие - как то коряво.

[Ntlegend]

можешь смело без проверок перед сохранениям файла написать CreateDirectory.. если папка существует - то оно ничего не создат.. если нету - то создаст..