RoutineName = „ZipFileWithPass“
If source_file = '' Then Return(0)
If target_file = '' Then Return(0)
If password = '' Then Return(0)
*ShellType = 'DOS'
OsType = 'NT'
OsDelim = '\'
NonOsDelim = '/'
OsCmd = '"zip " ':target_file:' ':source_file:' -r -j -e -P ':password
Call DSLogInfo(‚Komprimuji soubor ‚:source_file ,RoutineName)
Call DSExecute(OsType,OsCmd,OsOutput,OsStatus)
If OsStatus Then
Call DSLogWarn('The zip command (':OsCmd:') returned status':OsStatus:':':@FM:OsOutput, RoutineName)
End Else
Call DSLogInfo('Komprimovany soubor ':target_file:' s heslem ':password:' vytvoren',RoutineName)
End
Ans = OsStatus