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

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

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

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

Сообщение Sergey_Afanasyev » 22.03.2018 19:42:27

Имеется строка символов sss := 'Отчет_март_2018'
Как из программы создать папку с таким наименованием?
Sergey_Afanasyev
новенький
 
Сообщения: 49
Зарегистрирован: 22.02.2012 19:30:27

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

Сообщение pupsik » 22.03.2018 20:26:40

Код: Выделить всё
uses
  LazFileUtils;
....
if CreateDirUTF8(.... 'Отчет_март_2018')
....
pupsik
энтузиаст
 
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13

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

Сообщение Sergey_Afanasyev » 22.03.2018 21:11:48

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

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

Сообщение zoltanleo » 25.03.2018 18:00:18

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

Код: Выделить всё
const
  MyDir: String = 'c:\temp';
begin
  if DirectoryExists(MyDir)
    then
      ForceDirectories(MyDir + DirectorySeparator + 'MyDir' + DirectorySeparator + 'MySubFolder')
    else
      ShowMessage('No such directory');
end;
Аватара пользователя
zoltanleo
постоялец
 
Сообщения: 457
Зарегистрирован: 17.10.2013 10:55:01


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 30

Рейтинг@Mail.ru