На шаринг дан доступ юзеру "Х"
Как из под юзера "Y" программым путем залесть в эту папку ?
(что то типа того: Domain\user:password)



Option Explicit
Sub FTPLink()
    Dim oShell
    Dim sUrl As String
    sUrl = "ftp://user:password@192.168.10.10" 'это пример, вы подставьте свою ссылку на фтп
    Set oShell = CreateObject("Wscript.Shell")
    oShell.Run (sUrl)
    Set oShell = Nothing
End Sub

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6