;; KixGenerated: 2010/09/13 08:05:58
break on
;call @ScriptDir +"\dirlist.udf"
;call @ScriptDir +"\copyfiles2.udf"
;call @ScriptDir +"\msg.udf"
;call @ScriptDir +"\copyfiles.udf"
$Recurse = 1 ; recursion is ON by default
; Get the source & dest args specified on the command-line
; get the command line as an array - elements 0 & 1 are the kix.exe and the script.kix items
$aCmdLine = GetCommandLine(1)
; scan the array looking for the source arg
$ = AScan($aCmdLine, '--s:', , , 1) ; get SOURCE arg
If $ > 1 ;
$Source = SubStr($aCmdLine[$], 5)
Else ; arg is required - die if not provided
'ERROR: Source was not specified!' @CRLF @CRLF
'Usage: myscript.kix --s:Source_path --d:destination_path' @CRLF
Quit 1
EndIf
; scan the array looking for the destination arg
$ = AScan($aCmdLine, '--d:', , , 1) ; get destination arg
If $ > 1 ;
$Dest = SubStr($aCmdLine[$], 5)
Else ; arg is required - die if not provided
'ERROR: Destination was not specified!' @CRLF @CRLF
'Usage: myscript.kix --s:Source_path --d:destination_path' @CRLF
Quit 1
EndIf
; scan the array looking for the recursion flag
$ = AScan($aCmdLine, '--r', , , 1) ; get recursion flag
If $ > 1 ;
$Recurse = 0
EndIf
If (GetFileAttr($Source) & 16) = 0 ; force recursion OFF for single-file copy
$Recurse = 0
EndIf
; debug messages
' Source: ' $Source ?
' Dest: ' $Dest ?
'Recurse: ' $Recurse ?
CopyFiles($Source, $Dest, 1, $Recurse)
Quit 0 ; must use QUIT with GetCommandLine!!