Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Netzwerkverbindung prüfen

Netzwerkverbindung prüfen
18.10.2019 10:08:10
philipp
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Leider wieder nichts,
18.10.2019 13:17:09
philipp
Hallo zusammen,
habe mal wieder was gefunden aber ohne Erfolg.
Vielleicht schaut doch noch einmal jemand drauf.
Ich möchte das der Computer Name "ph" gesucht bzw. gepüft wird, ob
dieser aktiv ist.
Sub netz()
If Environ("UserName") = "ph" Then
MsgBox "io vorhanden"
Else
MsgBox "NICHT vorhanden"
End If
End Sub
gruß philipp b
AW: Netzwerkverbindung prüfen
18.10.2019 14:03:58
ChrisL
Hi Philipp
Ich denke du müsstest mal Klarheit schaffen, was mit "ph" genau gemeint ist. Du benutzt dafür alle möglichen Bezeichnungen z.B. Netzwerkname, Rechner, Computername, Laufwerk... (Environ("Username")=Windows-Benutzername)
(evtl. ein UNC-Pfad? Unterordner?)
cu
Chris
Anzeige
ich habe noch was gefunden das klappt
18.10.2019 14:12:53
philipp
Hallo Chris,
sorry.
ph ist der Computername.
Sub drive_exists()
Dim fs As Object
Dim testdrive As String
testdrive = "\\ph\f\"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.DriveExists(testdrive) Then
MsgBox "Drive >" & testdrive & "" & testdrive & "
das funktioniert soweit, muß allerdings das Verzeichnis mit angeben !
gruß philipp b
Danke ---))
18.10.2019 14:23:34
philipp

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige