2013-07-25 36 views
1

我想在映射网络驱动器之前检查网络驱动器是否有映射。 我使用此代码映射驱动器。如何查看地图网络驱动器连接?

Dim network = New IWshNetwork_Class() 

       network.MapNetworkDrive("Z:", ServerDc, Type.Missing, username, pwd) 

回答

2

IWshNetwork_Class似乎是Windows脚本宿主对象模型COM库中的一个类。

Dim Network As IWshRuntimeLibrary.IWshNetwork_Class 
Dim Drives As IWshRuntimeLibrary.IWshCollection_Class 
Drives = Network.EnumNetworkDrives 
For DriveCounter As Long = 0 To Drives.Count – 1 Step 2 
    MsgBox(Drives.Item(DriveCounter) & " is mapped to " & Drives.Item(DriveCounter + 1)) 
Next 

看一看this PDF更多信息...

+0

错误发生在计数-1。 ' - '无效。 – user2562841

+0

看到我编辑的代码,在'-'和'1'之间加了一个空格。 –