AutoIt_TimeStampAppendFiles

TimeStamp : Append Multiples Files

Ce script AutoIt permet de lancer TimeStamp et d'importer d'un coup les fichiers sélectionnés

;==============================================================================
; Nom	  :	TS_AppendFiles
; But	  :	Open TimeStamp and add multiples files in a new project
; Date  :	22/01/2008
; Auteur:	Fabrice Vado
;
; 0.1	:	22/01/2008	Create
;==============================================================================

$ts_exe = "C:\Program Files\Time Stamp\Timestamp.exe"

; => Lance TS
Run($ts_exe)

; => Attend
winwaitactive("Time Stamp")

; => Nouveau Fichier
Send("^n")

$message = "Hold down Ctrl or Shift to choose multiple files."
$var = FileOpenDialog($message, "C:\Windows\", "TimeStamp (*.sa2)", 1 + 4 )
If @error Then
    MsgBox(4096,"","No File(s) chosen")
Else 
    $aFiles = StringSplit($var, "|")
    
    For $sFile In $aFiles
      AppendFiles($sFile)
   Next
EndIf



Func AppendFiles($filename)

 If FileExists($filename) Then
    ; => Append
   Send("^a")
    
    ; Attente
   winwaitactive("Ouvrir")
    
    ; Copie le fichier dans le presse-papier
   $clipboard_tmp = ClipPut($filename)

    ; Envoi Fichier
   send("^v{ENTER}")
 EndIf

EndFunc