A.2.4
Creating the compressed configuration files
The following script "makezip" compresses the configuration files present in the download
directory and stores them in the zip directory, see also Creating the compressed configuration
files (Page 114).
' makezip
Dim WshShell, oExec', script
Set WshShell = CreateObject("WScript.Shell")
basePath = "d:\modular_machine"
App.LogActive = True
App.PrintToLog "make_zip 1"
App.LogActive = false
sourcePath = basePath & "\download\1"
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 = basePath & "\download\2"
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 3"
App.LogActive = false
Basic Functions for Modular Machines
Function Manual, 04/2014
A.2 Creating the card images for the configuration server by means of SCOUT scripting
& " /m""MAKE_ZIP""" _
& " /s""" & sourcePath & """" _
& " /d""" & destinationPath & """" _
& " /i""DE000001""")
APP.time 1
& " /m""MAKE_ZIP""" _
& " /s""" & sourcePath & """" _
& " /d""" & destinationPath & """" _
& " /i""DE000002""")
APP.Time 1
Appendix
125