Проверка наличия папки - Free Pascal
Формулировка задачи:
Задача стоить весьма не сложная. Как проверить, есть ли папка или нет?
К примеру, есть путь к файлу
Папка 'folder1' может существовать и не существовать. Если её нет, нужно ее создать. Вот и напрашивается проверка
var filePath : string; { . . . } filePath := 'D:\folder0\folder1\file.txt';
Решение задачи: «Проверка наличия папки»
textual
Листинг программы
uses SysUtils; // ... if DirectoryExitst(dir_name) then // ...
Объяснение кода листинга программы
- Используемый модуль: SysUtils.
- Проверка наличия папки с помощью функции DirectoryExitst, передав в нее dir_name в качестве аргумента.
- Если функция DirectoryExitst вернула True, то есть папка существует, то выполняется весь блок кода после if, иначе - нет.