Вниз
Скачать: CL | DM;

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.
Что я делаю неправильно?


← →
clickmaker ©   (2009-12-04 16:03) [7]

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

Win32Check(CreateDir

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


← →
Anatoly Podgoretsky ©   (2009-12-04 16:18) [8]

> 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");

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.006 c
11-1210487732
=BuckLr=
2008-05-11 10:35
2010.01.24
Скрыть каретку в richedit НАПРОЧЬ


2-1260107829
Natali
2009-12-06 16:57
2010.01.24
Delphi 7+SQL SERVER 2000+CORBA


2-1260118363
inkakas
2009-12-06 19:52
2010.01.24
Error creating form: line too long on line 74092


2-1259665917
Xmen
2009-12-01 14:11
2010.01.24
Доступ к папкам через сеть


1-1234360353
vinixp
2009-02-11 16:52
2010.01.24
Картинка из веб страницы




   Наверх