访问共享网络文件夹

Question

我需要通过VBA访问网络文件服务器上承载的文件夹。该文件夹只能通过服务帐户（与普通用户帐户不同）以书面形式进行访问，而我的用户名和密码也是可以的。

通过用户界面，我可以看到该文件夹​​并将其映射为本地驱动器，但为了以书面形式访问它，我需要从Windows注销并通过服务帐户登录。

有没有办法在正常的用户会话期间访问网络文件夹，但在VBA代码中硬编码username和pwd？

我也尝试了文件夹映射为本地驱动器：

Set WshNetwork = CreateObject("WScript.Network") 
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder", False, Username, pwd 

，但没有工作（“S”驱动器并没有映射）。如果我没有提供用户名和密码，我可以做同样的事情：

Set WshNetwork = CreateObject("WScript.Network") 
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder" 

它完美地工作。

想知道现在如果我想要做的事实际上是可能的？如果没有，是否有其他选择？

感谢

Answer 1

您可能会发现在你的测试值this answer。

从本质上讲，我会检查两件事情......

1. 确保你是不是已经连接到使用登录的用户目前这一资源。如果是，可能会收到类似以下的错误消息：

2. 请确保您的用户名中使用domain\username语法。

否则我认为你是正确的轨道。我基于上面的链接汇集了一些示例代码，并且能够使用不同的用户名成功连接到网络共享，并遍历文件列表。

（请注意，您实际上并没有映射驱动器建立连接的提示。）

下面的代码是一个非常快的（工作）VBA实现样品在Access network share from within VBScript eg FileSystemObject

上市

Public Sub TestNetShareName() 

    Dim NetworkObject As Object 
    Dim FSO As Object 
    Dim Directory As Object 
    Dim Filename As Object 
    Dim ServerShare As String 
    Dim UserName As String 
    Dim Password As String 

    ServerShare = "\\corp-server\HostingFolder" 
    UserName = "mydomain\myuser" 
    Password = "freddie123" 

    Set NetworkObject = CreateObject("WScript.Network") 
    Set FSO = CreateObject("Scripting.FileSystemObject") 

    NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password 

    Set Directory = FSO.GetFolder(ServerShare) 
    For Each Filename In Directory.Files 
     Debug.Print Filename.Name 
    Next 

    Set Filename = Nothing 
    Set Directory = Nothing 
    Set FSO = Nothing 

    NetworkObject.RemoveNetworkDrive ServerShare, True, False 

    Set NetworkObject = Nothing 

End Sub