Как проверить существование папки в delphi?

Пользователь

от velma , в категории: Другие , год назад

Как проверить существование папки в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от aubree , 5 месяцев назад

@velma 

В Delphi есть функция DirectoryExists, которая позволяет проверить существование папки. Она находится в модуле FileCtrl.


Вот пример кода, который проверяет существование папки C:Temp:

1
2
3
4
5
6
uses FileCtrl;

if DirectoryExists('C:Temp') then
  ShowMessage('Папка существует')
else
  ShowMessage('Папка не существует');


Важно отметить, что DirectoryExists работает только с локальными путями. Если вы хотите проверить существование удаленной папки, то можете использовать функцию SysUtils.DirectoryExists, которая работает с удаленными путями. Однако для этого необходимо использовать модуль Winapi.Windows, который содержит функции Windows API.

1
2
3
4
5
6
uses SysUtils, Winapi.Windows;

if DirectoryExists('\servershareolder') then
  ShowMessage('Папка существует')
else
  ShowMessage('Папка не существует');


В обоих случаях вам нужно будет указать полный путь к папке, которую вы хотите проверить.