Функція ForceDirectories в Delphi створює новий шлях каталогів.
SysUtils unit
function ForceDirectories (const Path : string) : Boolean;
Функція ForceDirectories створює один або більше вкладених каталогів, вказаних Path.
Якщо створення успішно, то повертається True, інакше, помилку можна отримати, використовуючи GetLastError.
Функція ForceDirectories: Створення нового шляху на диску C
begin
// Намагаємося створити новий вкладений каталог у поточному каталозі
if CreateDir('C:\NonExistantDir\TestDir')
then ShowMessage('Додавання нового каталогу пройшло успішно')
else ShowMessage('Додавання нового каталогу викликало помилку : '+
IntToStr(GetLastError));
// Тепер примусово створюємо цей каталог
if ForceDirectories('C:\NonExistantDir\TestDir')
then ShowMessage('Додавання нового каталогу пройшло успішно')
else ShowMessage('Додавання нового каталогу викликало помилку : '+
IntToStr(GetLastError));
end;Результат
Додавання нового каталогу викликало помилку : 3
Додавання нового каталогу пройшло успішно
Подібні функції, процедури та команди
CreateDir — створює директорію.
GetCurrentDir — повертає поточний каталог (диск плюс каталог).
GetDir — отримує поточний каталог (диск плюс шлях) для вказаного диска.
MkDir — створює каталог.
ChDir — вибір диска та директорії (папки), в якій проводитиметься робота.
RmDir — видалення каталогу.
RemoveDir — дозволяє видалити директорію.
SelectDirectory — виводить діалогове вікно, за допомогою якого користувач може вибрати директорію.
SetCurrentDir — змінює поточну директорію.
Пригостити автора кавою