Erzeugen Der Komprimierten Konfigurationsdateien - Siemens SIMOTION Funktionsbeschreibung

Anhang
A.2.4

Erzeugen der komprimierten Konfigurationsdateien

Das nachfolgende Skript "makezip" komprimiert die im Verzeichnis download
vorhandenen Konfigurationsdateien und speichert sie im Verzeichnis zip (siehe
auch Kapitel 5.6.4).
' makezip
Dim WshShell, oExec', script
Set WshShell = CreateObject("WScript.Shell")
basePath
App.LogActive = True
App.PrintToLog "make_zip 1"
App.LogActive = false
sourcePath
destinationPath = basePath & "\zip"
Set oExec = WshShell.Exec _
("C:\Program Files\siemens\step7\s7bin\u7mkcnfx " _
' needed !!! for waiting end execute zip
Do While oExec.Status = 0
Loop
App.LogActive = True
App.PrintToLog "make_zip 2"
App.LogActive = false
sourcePath
destinationPath = basePath & "\zip"
Set oExec = WshShell.Exec _
("C:\Program Files\siemens\step7\s7bin\u7mkcnfx " _
A-118
= "d:\modular_machine"
= basePath & "\download\1"
& " /m""MAKE_ZIP""" _
& " /s""" & sourcePath & """" _
& " /d""" & destinationPath
& " /i""DE000001""")
APP.time 1
= basePath & "\download\2"
& " /m""MAKE_ZIP""" _
& " /s""" & sourcePath & """" _
& " /d""" & destinationPath
& " /i""DE000002""")
SIMOTION Basisfunktionen für modulare Maschinen, 05/2009
& """" _
& """" _
© Siemens AG 2009 All Rights Reserved