Siemens SIMOTION Function Manual page 123

Set objFso = CreateObject("Scripting.FileSystemObject")
basePath = "d:\modular_machine"
App.PrintToLog "remove dirs ...\cardfiles ..." _
If (objFso.FolderExists(basePath)) Then
End If
If not (objFso.FolderExists(basePath)) Then
End If
createPath = basePath & "\cardfiles"
App.PrintToLog "path: " & createPath
If not (objFso.FolderExists(createPath)) Then
End If
createPath = basePath & "\cfes"
App.PrintToLog "path: " & createPath
If not (objFso.FolderExists(createPath)) Then
End If
createPath = basePath & "\download"
App.PrintToLog "path: " & createPath
If not (objFso.FolderExists(createPath)) Then
End If
createPath = basePath & "\zip"
App.PrintToLog "path: " & createPath
If not (objFso.FolderExists(createPath)) Then
End If
createPath = basePath & "\export"
App.PrintToLog "path: " & createPath
If not (objFso.FolderExists(createPath)) Then
Basic Functions for Modular Machines
Function Manual, 04/2014
A.2 Creating the card images for the configuration server by means of SCOUT scripting
& "\download ...\zip ...\cfes"
App.PrintToLog "delete folder basePath"
call objFso.deleteFolder(basePath)
App.PrintToLog "create basePath ...\modMach"
Call objFso.createFolder(basePath)
App.PrintToLog "create folder ...\cardfiles"
Call objFso.createFolder(createPath)
App.PrintToLog "create folder ...\cfes"
Call objFso.createFolder(createPath)
App.PrintToLog "create folder ...\download"
Call objFso.createFolder(createPath)
App.PrintToLog "create folder ...\zip"
Call objFso.createFolder(createPath)
App.PrintToLog "create folder ...\export"
Call objFso.createFolder(createPath)
Appendix
123