themenstarter234
Level-1
- Beiträge
- 45
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
Hallo Forum
In einem VB-Script in einer PC-Runtime greife ich auf mehrere Variablen der Steuerung zu und generiere dann einen Ordner auf dem PC bestehend aus den Infos der Variablen.
sporadisch kommt es vor das hier noch versucht wird den gleichen Ordner erneut zu erstellen.
Das Script rufe ich mit Wertänderung einer Variable (Erfassung zyklisch fortlaufend) aus dem Programm auf. Im SPS Programm werden genau davor die Variablen (zyklisch bei Verwendung) beschrieben.
Dieses Variablen werden aber nur in dem Script verwendet.
Muss ich nun alle Variablen auf "zyklisch fortlaufend" stellen oder kann ich im Script die Variable aktualisieren bzw. eine Wartezeit einbauen?
Anbei das Script
Vielen Dank im vorraus.
'Ordner erstellen
Dim fso, f, Pfad, Ordner
Pfad = SmartTags("Komm_Daten\DB_Pfad_Name.Laufwerk_aktiv") & ":\"
Ordner = Pfad & SmartTags("Komm_Daten\DB_Pfad_Name.OrdnerName")
ShowSystemAlarm "Ordner: " & Ordner
' Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
' Wenn Ordner nicht existiert,Ordner erstellen
'Set f = fso.CreateFolder (Ordner)
If Not fso.FolderExists(Ordner) Then
fso.CreateFolder (Ordner)
End If
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description & Ordner
Err.Clear
Exit Sub
End If
Set fso = Nothing
Set f = Nothing
' Anforderung Skript ausführen wieder auf 0 schreiben
SetValue SmartTags("Komm_Daten\DB_Allgemein.HMI_Script_02"),0
' Ausgabe alles iO
ShowSystemAlarm "Ordner wurde erstellt: " & Ordner
Exit Sub
In einem VB-Script in einer PC-Runtime greife ich auf mehrere Variablen der Steuerung zu und generiere dann einen Ordner auf dem PC bestehend aus den Infos der Variablen.
sporadisch kommt es vor das hier noch versucht wird den gleichen Ordner erneut zu erstellen.
Das Script rufe ich mit Wertänderung einer Variable (Erfassung zyklisch fortlaufend) aus dem Programm auf. Im SPS Programm werden genau davor die Variablen (zyklisch bei Verwendung) beschrieben.
Dieses Variablen werden aber nur in dem Script verwendet.
Muss ich nun alle Variablen auf "zyklisch fortlaufend" stellen oder kann ich im Script die Variable aktualisieren bzw. eine Wartezeit einbauen?
Anbei das Script
Vielen Dank im vorraus.
'Ordner erstellen
Dim fso, f, Pfad, Ordner
Pfad = SmartTags("Komm_Daten\DB_Pfad_Name.Laufwerk_aktiv") & ":\"
Ordner = Pfad & SmartTags("Komm_Daten\DB_Pfad_Name.OrdnerName")
ShowSystemAlarm "Ordner: " & Ordner
' Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
' Wenn Ordner nicht existiert,Ordner erstellen
'Set f = fso.CreateFolder (Ordner)
If Not fso.FolderExists(Ordner) Then
fso.CreateFolder (Ordner)
End If
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description & Ordner
Err.Clear
Exit Sub
End If
Set fso = Nothing
Set f = Nothing
' Anforderung Skript ausführen wieder auf 0 schreiben
SetValue SmartTags("Komm_Daten\DB_Allgemein.HMI_Script_02"),0
' Ausgabe alles iO
ShowSystemAlarm "Ordner wurde erstellt: " & Ordner
Exit Sub