Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS: как открыть файл, лежащий в локальной сети? / 2 сообщений из 2, страница 1 из 1
17.11.2004, 15:52:07
    #32787195
q_l
q_l
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS: как открыть файл, лежащий в локальной сети?
нужно открыть известную расшаренную папку на известном сервере в локальной сети, считать оттуда список файлов и открыть какой-то из них.

Если бы речь шла о файле на диске, я бы использовал Scripting.FileSystem, а вот как быть с локальной сетью - не знаю. Какой объект использовать, как вызывать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2004, 16:23:12
    #32787317
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS: как открыть файл, лежащий в локальной сети?
Если папка расшарена, какие проблемы?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
   Dim oFSO, oFolder, oFile, oText
    
    Set oFSO = CreateObject("scripting.filesystemobject")
    Set oFolder = oFSO.GetFolder("\\Nick\Music")
    For Each oFile In oFolder.Files
        WScript.Echo oFile.Path
    Next
    Set oText = oFSO.OpenTextFile(oFolder.Path & "\Desktop.ini")
    WScript.Echo oText.ReadAll
    oText.Close
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS: как открыть файл, лежащий в локальной сети? / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 312ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2168589]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 208ms
total:  312ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]