AutoIt_CopyToClipboard

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

; Nom	:	CopyToClipboard
; But	:	Copie dans le presse-papier le chemin des fichiers passés en paramêtres
; Date	:	20/04/2007
; Auteur:	Fabrice Vado
;
; 0.2	:	20/04/2007	TrayTip
; 0.1	:	01/12/2005	Traite plusieurs fichiers
;==============================================================================
 
Dim $iLoop, $sClipboard
 
if $CmdLine[0] > 0 Then
 
	; Ajoute chaque arguments séparés par CRLF
	For $iLoop = 1 To $CmdLine[0]
		$sClipboard = $sClipboard & $CmdLine[$iLoop] & @CRLF
	Next
	
	; Supprime le dernier CRLF
	$sClipboard = StringLeft( $sClipboard, StringLen($sClipboard) - 1 )

	; Copie dans le presse-papier
	ClipPut($sClipboard)
	
 TrayTip("FileName To Clipboard", "Dans le presse-papier : " & @CRLF & ClipGet(), 5, 1)
;	MsgBox(64, "FileName To Clipboard", "Dans le presse-papier : " & @CRLF & @CRLF & ClipGet(), 2)
  Sleep(2000)

EndIf