CftClub.ru
Клуб специалистов ЦФТ-Банк 		   О проекте, Правила Клуба, FAQО проекте   Поиск по материалам КлубаПоиск    Отзывы Участников и посетителейОтзывы    Стать Участником КлубаРегистрация    ВходВход

Создание каталога

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Справочник PL/PLUS: Функции, примеры, приёмы
Предыдущая тема :: Следующая тема  
Автор Сообщение
.СергейПанин
Участник - экстремал


Вступление в Клуб: 24.06.2008
СообщениеСр Дек 15, 2010 13:16   Создание каталога Ответить с цитатой
Полезность: 1
/* в память об идеи, кажется, "частных уроков".
Рекурсовно создаём каталоги.
*/

Код:

Private Function MakeDirPath( DirName )

  Dim i
 
  i = 0
 
  Dim Path
 
  Dim FSO
  Set FSO = CreateObject("Scripting.FileSystemObject")

  Do
 
    i = InStr(i + 1, DirName & "\", "\")
   
    Path = Left(DirName, i - 1)

    If Right(Path, 1) <> ":" Then
   
      If Not (FSO.FolderExists(Path)) Then
          FSO.CreateFolder(Path)
       End if   
     
    End If
   
  Loop While i < Len(DirName)
 
End Function
chizh
Участник


Вступление в Клуб: 14.06.2009
СообщениеСр Дек 15, 2010 18:34    Ответить с цитатой
Полезность: Нет оценки
Скорее, не рекурсивно, а циклично всё-таки. Но всё-равно хорошо, закопипастил.
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Справочник PL/PLUS: Функции, примеры, приёмы Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru Домен cftclub.ru не связан с ЗАО "Центр Финансовых Технологий" и ни в коей мере не нарушает авторских и иных прав
Владелец может не разделять мнения Участников и не несет ответственности за их публикации
Powered by phpBB