-> Hier kostenlos registrieren
Moin an alle,
ich bin dabei im TiA Portal ein VB Skript zu entwerfen, dass einen Datentransfer von
aufgenommenen Kurvendiagrammen in ein Verzeichnis auf meinen Rechner exportieren soll.
Mein Problem ist, dass mein compiler bei dem Befehl "ShowSystemAlarm" die Fehlermeldung ausgibt:
"Diese Systemfunktion ist auf dem aktuellen Bediengerät nicht verfügbar"
Woran liegt das und wie kann ich das Problem lösen?
Anmerkung: Ich verwende aktuell zur Darstellung der Bedienoberfläche ein Touch Panel der Marke Siemens IPC577C 15".
Vielen Dank schonmal!
Gruß
ich bin dabei im TiA Portal ein VB Skript zu entwerfen, dass einen Datentransfer von
aufgenommenen Kurvendiagrammen in ein Verzeichnis auf meinen Rechner exportieren soll.
Mein Problem ist, dass mein compiler bei dem Befehl "ShowSystemAlarm" die Fehlermeldung ausgibt:
"Diese Systemfunktion ist auf dem aktuellen Bediengerät nicht verfügbar"
Woran liegt das und wie kann ich das Problem lösen?
Anmerkung: Ich verwende aktuell zur Darstellung der Bedienoberfläche ein Touch Panel der Marke Siemens IPC577C 15".
Vielen Dank schonmal!
Gruß
Code:
Sub data_transfer_new()
'Tip:
'The script copied the archives stored on the PC
Dim filesystem
Dim Jahr
Dim Monat
Dim Tag
Dim Stunde
Dim Minute_
On Error Resume Next
Set filesystem = CreateObject("FileCtl.Filesystem")
If Err.Number<> 0 Then
ShowSystemAlarm "error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Jahr = SmartTags("Jahr")
Monat = SmartTags("Monat")
Tag = SmartTags("Tag")
Stunde = SmartTags("Stunde")
Minute_ = SmartTags("Minute")
filesystem.FileCopy "\Storage Card SD\Logs\Meldearchiv_CSV0.csv", "[URL="file://\\NASD91381\Backup\Meldearchiv_"&Jahr&"_"&Monat&"_"&Tag&"_"&Stunde&"_"&Minute_&".csv"]\\NASD91381\Backup\Meldearchiv_"&Jahr&"_"&Monat&"_"&Tag&"_"&Stunde&"_"&Minute_&".csv[/URL]"
filesystem.FileCopy "\Storage Card SD\Archiv_NAS_CSV0.csv", "[URL="file://\\NASD91381\Backup\Archiv_"&Jahr&"_"&Monat&"_"&Tag&"_"&Stunde&"_"&Minute_&".csv"]\\NASD91381\Backup\Archiv_"&Jahr&"_"&Monat&"_"&Tag&"_"&Stunde&"_"&Minute_&".csv[/URL]"
If Err.Number<> 0 Then
ShowSystemAlarm "error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Set filesystem=Nothing
ShowSystemAlarm "the archiv file is copied"
End Sub