Проверка наличия папки - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Задача стоить весьма не сложная. Как проверить, есть ли папка или нет? К примеру, есть путь к файлу
var filePath : string;
{ . . . }
filePath := 'D:\folder0\folder1\file.txt';
Папка 'folder1' может существовать и не существовать. Если её нет, нужно ее создать. Вот и напрашивается проверка

Решение задачи: «Проверка наличия папки»

textual
Листинг программы
uses SysUtils;
 
// ...
 
if DirectoryExitst(dir_name) then // ...

Объяснение кода листинга программы

  1. Используемый модуль: SysUtils.
  2. Проверка наличия папки с помощью функции DirectoryExitst, передав в нее dir_name в качестве аргумента.
  3. Если функция DirectoryExitst вернула True, то есть папка существует, то выполняется весь блок кода после if, иначе - нет.

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы