CreateDir. Анализ ошибки

← →
oleg1963lora (2009-12-04 15:19) [0]

Здравствуйте уважаемые Мастера!
Создаю каталог On:=CreateDir("D:\Tutorial") {On:Boolean}
Работает.
То же On:=CreateDir("D:\Tutorial\MyDir") {On:Boolean} - нет
Подскажите пожалуйста как с помощью try - except получить внятное описание ошибки. Или я ДОС забыл? 8-О

← →
Медвежонок Пятачок © (2009-12-04 15:22) [1]

CreateDir это CreateDirectory
а это значит гетластеррор

← →
RWolf © (2009-12-04 15:25) [2]

RaiseLastOSError;

а при чём здесь дос? :/

← →
oleg1963lora (2009-12-04 15:34) [3]

Формат строки соответствует ДОСу

← →
Медвежонок Пятачок © (2009-12-04 15:36) [4]

а зачем?

← →
MBo © (2009-12-04 15:42) [5]

на всякий случай - идентификатор "on" - зарезервированное слово, не стоит так переменную называть

← →
oleg1963lora (2009-12-04 15:59) [6]

Черт сним с ОН-ом.Просто привычка старого програмера (поработай с Паскаль 3.1, там не такое возможно). Я использую локальную переменную.
На самом деле так:

try
On:=CreateDir(PathTargetDir);

except Exception.Create("Ошибка");
{иначе ошибка }
showmessage("Не удалось Err: " +E.Message);
end;
После try выполняется
On:=CreateDir(PathTargetDir); {False}
и улетает транзитом мимо except.
Что я делаю неправильно?

> Что я делаю неправильно?

Win32Check(CreateDir

CreateDir - функция. она возвращает тру или фолс, а не райзит экцепшенов

> oleg1963lora (04.12.2009 15:59:06) [6]

Для исключений используй вышеприведеные советы или процедуру MkDir

← →
oleg1963lora (2009-12-07 09:18) [9]

Здравствуйте уважаемые Мастера!

Наконец нашел нашел нужную мне процедуру ForceDirectories(Path:String), которая создает целую ветку директорий.
В моем случае ForceDirectories("D:\Tutorial\CopyDB\01-09-09\PlanOtd");

Пять вызовов - и у меня в руке - целый веник! :-)))

Спасибо всем за помощь!

CreateDir. Анализ ошибки Найти похожие ветки