TIA TP1200 - Netzlaufwerk prüfen

Pico1184

Level-2
Beiträge
332
Reaktionspunkte
9
Zuviel Werbung?
-> Hier kostenlos registrieren
Guten Morgen,

ich prüfe mittels eines VB Scriptes das Vorhandensein eines Netzlaufwerks:

In der Variable Path steht z.B.

\\test-pc\datenspeicher

Code:
Set fs = CreateObject("FileCtl.FileSystem")
If fs.dir(path) <> "" The 
NetworkOk = True
Else
NetworkOk = False
End If

In diesem Fall liefert mir fs.dir den Wert "datenspeicher" zurück was ja auch ok ist.
Wenn ich jetzt allerdings den entfernten Rechner ausschalte und somit das Netzlaufwerk nicht mehr vorhanden ist (wurde vorher über ein bat Script zum Panel gemappt) liefert fs.dir immer noch den Wert "datenspeicher". Wie soll ich hier dann feststellen ob das Laufwerk nicht mehr vorhanden ist?

Liegt das daran weil im System des Panels immer noch eine Verbindung zu dem Netzlaufwerk angelegt ist? Falls ja wie kann ich dann feststellen das der PC nicht mehr erreichbar ist???

Grüße Pico
 
Zuletzt bearbeitet:
Das einfachste wäre es wohl einfach kurz zu versuchen einen leere Datei zu erstellen.
Damit hast du auch gleich die Prüfung ob Schreibzugriff etc. vorhanden ist erschlagen.
 
guckst du hier
Protool/WinCCflex/TIA Daten lesen / schreiben mit VB-ScriptDim f,fs,datei,info

On Error Resume Next
Set f= CreateObject("filectl.file")
Set fs = CreateObject("filectl.filesystem")

If fs.dir(\\freigabe") <> "" Then
info="Verzeichnis existiert"
end if

'oder

datei="\\freigabe\Log_Prozess.csv"
f.open datei, 2
fehler = Err.Number
If fehler=0 Then
info="Datei konnte erstellt werden"
end if
Err.Clear
f.close
[/CODE]

 
Zurück
Oben