Как создать каталоги на стороне навигатора?
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
ГлСП
Профи
Вступление в Клуб: 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
|
|
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
