在Visual Basic 2010中映射網絡驅動器

我花了幾個月的時間試圖獲取關於如何映射網絡驅動器，斷開連接並重新映射網絡驅動程序的Visual Basic 2010代碼。在Visual Basic 2010中映射網絡驅動器

我需要能夠將其映射到配置文件夾，如下所示：完整路徑; 「\ 10.10.10.12 \ Profile文件夾」。我需要登錄到有權訪問網絡文件夾/user:Domainname\UserName Password，然後確認是否映射是成功的消息。

映射之後我會要求配置文件名稱和檢查網絡上存在這樣的配置文件夾。如果它存在，返回一個消息，說明該配置文件存在，並刪除配置文件文件夾覆蓋一樣，如果只讀取任何文件夾屬性等

還有其他的任務，但他就是我死的地方

來源

2012-09-22 user1650516

這個問題很老，但也許OP是s直到看。我寫了一個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

來源

2013-02-22 00:06:47

在Visual Basic 2010中映射網絡驅動器

回答

相關問題