CftClub.ru
Клуб специалистов ЦФТ-Банк

Как создать каталоги на стороне навигатора?

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Интеграция с внешними подсистемами
Предыдущая тема :: Следующая тема  
Автор Сообщение
ГлСП
Профи


Вступление в Клуб: 20.09.2007
СообщениеВт Май 04, 2010 14:26   Как создать каталоги на стороне навигатора? Ответить с цитатой
Полезность: Нет оценки
нужно перетаскивать фал с ибсошной файловой системы, в файловую систему клиента, создавая при этом соответствующие каталоги.

Так то мысль есть через VBScript, но вдруг есть проще методы?

Спасибо.
ГлСП
Профи


Вступление в Клуб: 20.09.2007
СообщениеСр Май 05, 2010 05:31    Ответить с цитатой
Полезность: 2
Вот нашел. Может кому и пригодится. Тут еще можно и получить содержание каталога


Код:

Public Function Main(LastControl)
   on error resume next
   if LastControl Is Nothing Then         
      Dim fs, f, f1, fc
      Set fso = CreateObject("Scripting.FileSystemObject")
      'если архива нет, создадим
      If Not (fso.FolderExists(p_path_arc)) Then
         Set fs = fso.CreateFolder(p_path_arc)
         End If         
      'Получим список файлов из каталога пользователя
      P_LIST.text = ""
             Set f = fso.GetFolder(p_path)
             Set fc = f.Files
             For Each f1 in fc
                If is_valid_name(f1.name)>0 Then
                    P_LIST.text = f1.name & "|" & P_LIST.text                  
                 end if
                Next                       
   end if
   
      Main = True      
End Function

Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Интеграция с внешними подсистемами Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru