Hallo
Ich habe einen Code, der überprüft, ob ein Netzlaufwerk verbunden ist.
Es soll prüfen ob X: mit dem Pfad vorhanden ist und eine Meldung rausgeben.
Wenn i.o das MsgBox "Alles Top" wenn nio. MsgBox "Fehler...."
Leider prüft der Code nur, ob X: verbunden ist, aber nicht, ob der Pfad korrekt ist.
Was muss ich denn ändern, damit er auch den Pfad überprüft?
Private Sub UserForm_Initialize()
Dim fs As Object
Dim Pfad As String
Set fs = CreateObject("Scripting.FileSystemObject")
Pfad = "X:\vw.vwg\vwdfs\K-E\EA\1764"
MsgBox "Das FR17 Laufwerk " & IIf(fs.DriveExists(Left(Pfad, 1)), "ist verbunden", "ist nicht richtig verbunden!" & vbCrLf & vbCrLf & "Ein Speichern ist nicht möglich!" & vbCrLf & vbCrLf & "LÖSUNG:" & vbCrLf & vbCrLf & "1. Wenn vorhanden, Laufwerk X: trennen" & vbNewLine & "2. Auf Netzlaufwerk verbinden gehen" & vbNewLine & "3. Laufwerk X: auswählen" & vbNewLine & "4. Unter Ordner eintragen: \\vw.vwg\vwdfs\K-E\EA\1764" & vbNewLine & "5. Haken bei: Verbindung bei Anmeldung wieder herstellen" & vbCrLf & vbCrLf & "Sollten weiter Probleme auftreten, bitte an Th.Fischer wenden"), , Pfad