Zitat:

Der angegebene Netzwerkpfad wurde von keinem Netzwerkdienstanbieter angenommen.

Public Sub getNetworkshare()
Dim UserName As String
Dim Password As String
Dim ServerShare As String
Dim NetworkObject As Object
Dim FSO As Object
Dim Directory As Object
Dim Filename As Object
 
ServerShare = "\\192.168.0.4\"
UserName = "Toast"
Password = "geheim"
 
Set NetworkObject = CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Call NetworkObject.MapNetworkDrive("", ServerShare, False, UserName, Password) _
  '<------ hier tritt der Fehler auf
 
FSO.CreateFolder (ServerShare & "\Test")
 
Set Filename = Nothing
Set Directory = Nothing
Set FSO = Nothing
 
NetworkObject.RemoveNetworkDrive ServerShare, True, False
 
Set NetworkObject = Nothing
End Sub

Seitdem ich einen Computer habe, l?se ich mit ihm alle Probleme, die ich ohne ihn nicht hatte.