Netzlaufwerk
27.02.2017 18:40:46
Thomas
Leider muss ich noch ei Thread öffnen.
Mit folgenden Code prüfe ich, ob ein Netzlaufwerk und der Pfad verbunden ist.
Leider bekomme ich immer die Meldung, das es nicht verbunden ist, obwohl es da ist.
Zu diesem Laufwerk benötigt man eine Zugriffsberechtigung bzw. die UserId muss freigegeben sein.
Mit der UserID melden wir uns an. Muss die angemeldete UserID evtl. in den Code eingebaut werden?
Hier der Code:
Public Sub machs()
Dim FSO As Object
Dim Pfad As String
Set FSO = CreateObject("Scripting.FilesystemObject")
Pfad = "X:\vw.vwg\vwdfs\K-E\EA\1764"
If Not FSO.DriveExists(Left(Pfad, 1)) Then
MsgBox "nicht verbunden"
Exit Sub
End If
If Not FSO.folderexists(Pfad) Then
MsgBox "Pfad nicht vorhanden"
Exit Sub
End If
MsgBox "alles OK"
End Sub
Vielen Dank für Eure Hilfe.
Gruß
Tom