Guten Morgen,
ich möchte gern prüfen, ob der Netzwerkname erreichbar ist.
Habe dies von Daniel gefunden:
Dim checkPath As String
Dim strPath
checkPath = "ph"
On Error Resume Next
checkPath = Dir(strPath, vbDirectory)
On Error GoTo 0
Select Case checkPath
Case ""
MsgBox "Laufwerk vorhanden, aber Ordner fehlt"
Case "ph"
MsgBox "Laufwerk fehlt, zur Sicherheit hier (eigener Rechner) speichern:"
''strPath = "C:\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
Case Else
MsgBox "Verzeichnis und Ordnerstruktur vorhanden"
''strPath = "\\ph\D:\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
End Select
habe mal eingesetzt, obwohl der Netzwerkname aktiv ist, wird immer:
MsgBox "Laufwerk fehlt, zur Sicherheit hier (eigener Rechner) speichern:"
angesagt.
Dies auch bei meinem 2. Rechner ph2.
gruß philip b