• На форуме с 17 июня 2005г.
  • Сообщений: 67
  • Спасибо: 0

Тема: Чтение файла по сети

Здравствуйте подскажите пожалуйста как в VBA прочитать файл находящийся в сети в расшареной папке?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Чтение файла по сети

Возможно проблема подключитсься к шарингу если нет, то вот чтение ни чем не отличается от чтения локального файла

   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, ts
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set ts = fso.OpenTextFile("\\SmeL\VsioNaSharu\options.ini", ForReading)
   MsgBox ts.Read(10)

незабываем подключить FSO

  • На форуме с 17 июня 2005г.
  • Сообщений: 67
  • Спасибо: 0

Re: Чтение файла по сети

сори а как его подключить то?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Чтение файла по сети

сори а как его подключить то?

предпологаю это про FSO а не про шаринг.
Tools\References...\Microsoft Scripting Runtime

  • pav
  • Восстановленный участник
  • На форуме с 2 марта 2006г.
  • Сообщений: 1
  • Спасибо: 0

Re: Чтение файла по сети

Не надо его подключать, если просто,

Dim fso, ts

то и так будет работать.

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Чтение файла по сети

> AnteC
А не пробовали сделать сетевой диск и читать файл обычным образом, как будто он у Вас на компьютере? Очень удобно.