Prüfen ob Netzwerk vorhanden

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Prüfen ob Netzwerk vorhanden

Prüfen ob Netzwerk vorhanden von sigrid vom 01.10.2019 10:49:06

AW: Prüfen ob Netzwerk vorhanden - von Daniel am 01.10.2019 11:13:43

AW: Prüfen ob Netzwerk vorhanden - von sigrid am 01.10.2019 14:10:31

Danke Daniel -) - von sigrid am 01.10.2019 14:44:17

Betrifft: Prüfen ob Netzwerk vorhanden von: sigrid
Geschrieben am: 01.10.2019 10:49:06

Guten Morgen zusammen,
endlich habe ich mal wieder was, ich bin mit der Frage an meine GRENZEN
gestoßen.
Ich habe mir dieses Makro zum direkten speichern auf den Rechner der
Kollegin erstellt:
If Environ("Username") = "Buchhalter" Then
strPath = "\\Buchhalter\D\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
End If
Die Speicherung läuft einwandfrei !!!

Ich würde gern zur Sicherung eine Prüfung vornehmen, wenn der Username nicht
erreichbar ist, soll die Datei auf meinem eigenen Rechner gespeichert werden.
strPath =D:\__Buchungen.Buchhaltung\__Fertige_Buchungen\

wie kann man feststellen ob Netzwerkname erreichbar bzw. aktiv ist ?

mfg
sigrid

Betrifft: AW: Prüfen ob Netzwerk vorhanden von: Daniel
Geschrieben am: 01.10.2019 11:13:43

Hi
vielleicht so

Sub test()
Dim checkPath As String
Dim strPath As String
strPath = "\\Buchhalter\D\__Buchungen.Buchhaltung\__Fertige_Buchungen"

checkPath = "xxx"
On Error Resume Next
checkPath = Dir(strPath, vbDirectory)
On Error GoTo 0

Select Case checkPath
    Case ""
        MsgBox "Laufwerk vorhanden, aber Ordner fehlt"
    Case "xxx"
        MsgBox "Laufwerk fehlt"
    Case Else
        MsgBox "Verzeichnis und Ordnerstruktur vorhanden"
End Select

End Sub

Gruß Daniel

Betrifft: AW: Prüfen ob Netzwerk vorhanden von: sigrid
Geschrieben am: 01.10.2019 14:10:31

Hallo Daniel,
hab wohl nicht Richtig verstanden.
Habe mal so eingesetzt, wobei der Rechner "w77" soll der
fremde Rechner sein.

Dim checkPath As String
Dim strPath

checkPath = "w77"
On Error Resume Next
checkPath = Dir(strPath, vbDirectory)
On Error GoTo 0
Select Case checkPath
Case ""
MsgBox "Laufwerk vorhanden, aber Ordner fehlt"
Case "w77"
MsgBox "Laufwerk fehlt, zur Sicherheit hier (eigener Rechner) speichern:"
strPath = "C:\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
Case Else
MsgBox "Verzeichnis und Ordnerstruktur vorhanden"
strPath = "\\w77\D:\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
End Select

mfg sigrid