Отправлено: 17.05.23 16:31. Заголовок: Создание цепочки директорий

Что то не нашел такой функции , есть ли она ?
Есть папка C:\1
Если нужно в ней создать подкаталог можно сделать так
HB_VFDIRMAKE("c:\1\3")
А мне надо бы цепочку подкаталогов сделать типа
HB_VFDIRMAKE("c:\1\3\5\6") но не пашет так

 Отправлено: 17.05.23 16:42. Заголовок: Dima пишет: А мне н..

Dima пишет:

цитата:

А мне надо бы цепочку подкаталогов сделать типа HB_VFDIRMAKE("c:\1\3\5\6") но не пашет так

Сделай массив aDim := HB_ATokens("c:\1\3\5\6","\",.F.,.F.)
А потом в цикле сделай создание подкаталогов.

For nI := 3 TO LEN(aDim) 
 ....

 Отправлено: 17.05.23 16:43. Заголовок: Я такую искал когда-..

Я такую искал когда-то, но не нашел. Поэтому создаю папки одну за другой. Точно также и удаляю, только с другого конца.

 Отправлено: 17.05.23 16:45. Заголовок: Спасибо коллеги :sm..

Спасибо коллеги

 Отправлено: 17.05.23 19:36. Заголовок: Dima Создание по вл..

Dima
Создание по вложенным путям делает hb_DirBuild(cPath)

 Отправлено: 17.05.23 19:54. Заголовок: SergKis Да работает..

SergKis
Да работает , но с сетевыми путями , лажа конечно.
hb_DirBuild("\\127.0.0.1\POCKET\skans\test567")
Создало папку на диске C:\127.0.0.1 и тд а ложить надо было в шару

 Отправлено: 17.05.23 20:06. Заголовок: Dima пишет Если на ..

Dima пишет

цитата:

с сетевыми путями , лажа конечно.

Если на сетевой путь работают ф-ии
lExists := hb_vfDirExists( cDirName )
nSuccess := hb_vfDirMake( cDirName )
тогда токенами из всего общего пути делаешь сам, как было сказано выше

 Отправлено: 17.05.23 21:02. Заголовок: Сергей так и сделал ..

Сергей так и сделал , просто был уверен что твоя подсказка работает и по UNC дороге.
Спасибо

 Отправлено: 18.05.23 14:45. Заголовок: Упс , это у меня Har..

Упс , это у меня Harbour древний , в свежем hb_DirBuild работает нормально с UNC