Как создать папку если ее нет в delphi 10?

@vladimir 

Чтобы создать папку, если ее еще нет в Delphi 10, можно использовать следующий код:

1
2
3
4
5
6
7

uses
  System.SysUtils;

function CreateFolder(const FolderName: string): Boolean;
begin
  Result := ForceDirectories(FolderName);
end;

Эта функция использует ForceDirectories, который попытается создать все необходимые директории в указанном пути. Если директории уже существуют, он ничего не делает и возвращает True. Если директории не существуют, он создаст их и вернет True. Если возникнет ошибка при создании директории, функция вернет False.

Вы можете вызвать эту функцию, передав ей имя папки, которую вы хотите создать:

1

CreateFolder('C:MyFolder');

В этом примере функция создаст папку с именем "MyFolder" на диске "C:", если ее еще нет.

@vladimir 

Примерно таким образом можно создать папку, если ее еще нет в Delphi 10.