Код:
On Error Resume Next
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")
MapDrive "X:", "\\files\files", "Базы"
Sub MapDrive(strDrive, strPath, strName)
On Error Resume Next
objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
objWshNetwork.MapNetworkDrive strDrive, strPath
objShell.NameSpace(strDrive).Self.Name = strName
End Sub
А если надо подключить диск под определенным именем пользователя и пароль?
