Question

我花了几个月的时间尝试获取Visual Basic 2010代码，了解如何映射网络驱动器，断开连接以及重新映射网络驱动程序。

我需要能够将它映射到配置文件文件夹，如下所示：完整路径; “\ 10.10.10.12 \ Profile文件夹”。我需要登录才能访问网络文件夹/user:Domainname\UserName Password，然后通过消息确认映射是否成功。

在映射之后，我将请求配置文件名称并检查网络上是否存在此类配置文件文件夹。如果存在，则返回一条消息，指出该配置文件存在，并删除配置文件夹，覆盖任何文件夹属性，如只读等等。

还有其他任务，但他是我死路一条的地方。

Answer 1

这个问题很老但也许OP还在寻找。我写了一段HTA页面，将网络地址映射到虚拟驱动器。代码是VBScript，因此使用WScript库，它不是VB.net的本机部分。有关详细信息，请参阅WScript in VB.Net on StackOverflow。

连接脚本：

SUB doLogOn()
Dim objNetwork, errNum, ojbFSO, strDrive, iNum
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists("\\MyServer\MyFolder\") = False Then
   strDrive = "J:"
   Set objNetwork = CreateObject("WScript.Network")
   On Error Resume Next
   objNetwork.MapNetworkDrive strDrive, "\\MyServer\MyFolder", False, "username", "password"
   If Err.Number <> 0 Then
          Err.Clear
   End If
   Set objFSO = Nothing
   Set objNetwork = Nothing
End If
END SUB

就个人而言，我还没有找到代码在.Net中做同样的事情。上面显示的VBScript非常原始;我希望它加上关于绑定WScript的信息会给你一个或两个想法。

修改：请参阅Eric Dalnas' code, here

在Visual Basic 2010中映射网络驱动器

1 个答案: