AutoIt_CopyBackup

;==============================================================================

; Nom	:	CopyBackup
; But	:	Copie le fichier passé en paramêtre sous le nom
;			<fichier><_aaaammjj_hhmm>.<ext>
; Date	:	15/01/2008
; Auteur:	Fabrice Vado
;
; 0.1	:	23/12/2005	Création
; 0.2	:	15/01/2008	Fin du code
;==============================================================================


Dim $iLoop, $sClipboard

if $CmdLine[0] > 0 Then

	$NomFichier = $CmdLine[1]

	$datehour = "_" & @year & @mon & @mday & "_" & @hour & @min
	$NomFichierDest = FileGetName($NomFichier) & $datehour & "." & FileGetExtension($NomFichier)
	msgbox (0, "", $NomFichierDest)
	
	FileCopy ( $NomFichier, $NomFichierDest )
	
endif

Func FileGetName($pFileName)
; Retourne le nom du fchier sans l'extension

	$sTemp = $pFileName
	
	$ipos = StringInStr($pFileName, ".")
	
	If $ipos > 0 Then
		$sTemp  = StringLeft($pFileName, $ipos - 1)
	EndIf
	
	Return $sTemp

EndFunc

Func FileGetExtension($pFileName)
; Retourne l'extension du fchier

	$sTemp = $pFileName
	
	$ipos = StringInStr($pFileName, ".")
	
	If $ipos > 0 Then
		$sTemp  = StringMid($pFileName, $ipos + 1)
	EndIf
	
	Return $sTemp

EndFunc