Informationen und Beispiele zum Thema MsgBox | |
---|---|
![]() |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
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 SubGruß 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
Betrifft: Danke Daniel -)
von: sigrid
Geschrieben am: 01.10.2019 14:44:17
Hallo Daniel,
habe es danke deines Makros hinbekommen !!!
mfg
sigrid