AutoIt_CopyToSendTo

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

; Nom	:	CopyToSendTo
; But	:	Copie le fichier en paramêtre dans le répertoire SendTo de l'utilisateur
; Date	:	01/12/2005
;
; 0.1	:	01/12/2005	Affichage temporaire
;==============================================================================

Dim $sDirSendTo

$sDirSendTo = @UserProfileDir & "\SendTo"

If $CmdLine[0] > 0 Then
	DirCreate($sDirSendTo)
	FileCopy($CmdLine[1], $sDirSendTo)
EndIf

msgbox( 64, "Copy To SendTo", "Copie de " & @CRLF & @CRLF & $CmdLine[1]  & @CRLF  & @CRLF & " vers "  & @CRLF  & @CRLF & $sDirSendTo, 2 )