Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: ForceDirectories
ForceDirectories
|
function ForceDirectories ( const Path : string ) : Boolean; |
Функция (Unit SysUtils)
|
Создаёт новый путь каталогов
|
Описание:
|
Функция ForceDirectories создает один или более вложенных каталогов, указанные Path. Если создание успешно, то возвращается True, иначе ошибка может быть получена, используя GetLastError. |
Пример кода: Создание нового пути на диске C
|
begin
// Пытаемся создать новый вложенный каталог в текущем каталоге
if CreateDir('C:NonExistantDirTestDir')
then ShowMessage('Добавление нового каталога прошло успешно')
else ShowMessage('Добавление нового каталога вызвало ошибку : '+
IntToStr(GetLastError));
// Now force it to create this directory
if ForceDirectories('C:NonExistantDirTestDir')
then ShowMessage('Добавление нового каталога прошло успешно')
else ShowMessage('Добавление нового каталога вызвало ошибку : '+
IntToStr(GetLastError));
end;
Результат:
|
Добавление нового каталога вызвало ошибку : 3 Добавление нового каталога прошло успешно |