Создать папку

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
Sergey_Afanasyev
новенький
Сообщения: 49
Зарегистрирован: 22.02.2012 19:30:27

Создать папку

Сообщение Sergey_Afanasyev »

Имеется строка символов sss := 'Отчет_март_2018'
Как из программы создать папку с таким наименованием?
pupsik
энтузиаст
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13
Контактная информация:

Сообщение pupsik »

Код: Выделить всё

uses
  LazFileUtils;
....
if CreateDirUTF8(.... 'Отчет_март_2018')
....
Sergey_Afanasyev
новенький
Сообщения: 49
Зарегистрирован: 22.02.2012 19:30:27

Сообщение Sergey_Afanasyev »

Благодарю !!!
Аватара пользователя
zoltanleo
постоялец
Сообщения: 459
Зарегистрирован: 17.10.2013 10:55:01

Сообщение zoltanleo »

Используй ForceDirectories - можно создавать папки с любом уровнем вложенности

Код: Выделить всё

const
  MyDir: String = 'c:\temp';
begin
  if DirectoryExists(MyDir)
    then
      ForceDirectories(MyDir + DirectorySeparator + 'MyDir' + DirectorySeparator + 'MySubFolder')
    else
      ShowMessage('No such directory');
end;
Ответить