AutoIt Français

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>

Local $repertoire_source = "C:\X"
Local $repertoire_destination = "C:\Y"
Local $file_list = _FileListToArray($repertoire_source, "*", 1) ; Selection des noms des fichiers uniquement
Local $nb_file = $file_list[0] ; Nombre de fichiers présent dans le repertoire
Local $size_array = 4          ; Nombre de fichiers que l'on souhaite selectionner au hasard
Local $index[$size_array][2]   ; Array2D contenant l'index random (1er colonne) et le nom du fichier (2nd colonne)

; On vérifie qu'il ya assez de fichiers présent dans le rerpertoire source par rapport au nombre de fichier à couper
If( $nb_file > $size_array) Then
    
    ; Récupération Random de $size_array fichiers au hasard présent dans le $repertoire_source
    For $i=0 to $size_array-1 Step 1
        $index[$i][0] = Random(1,$nb_file-1,1)
        $index[$i][1] = $file_list[$index[$i][0]]
        ; Si ce n'est pas le 1er tour de boucle, on vérifie que l'on a pas déja selectionne l'index
        If( $i>0 ) Then
            For $j=0 to $i-1 Step 1
                If( $index[$i][0] = $index[$j][0] ) Then
                    $i= $i-1
                    ExitLoop
                EndIf
            Next
        EndIf
    Next
    _ArrayDisplay($index)

    ; Decouper les $size_array fichiers dans le $repertoire_destination
    Local $mode_move = 9 ; 8  + 1 = create directory destination and overwrite existing files
    Local $string = ""
    For $i=0 to $size_array-1 Step 1
        FileMove($repertoire_source&"\"&$index[$i][1], $repertoire_destination&"\"&$index[$i][1], $mode_move)
        $string &= $index[$i][1]&@CRLF
    Next
    MsgBox(0, "Files move", $string)
Else
    MsgBox(0,"","Pas assez de fichier présent dans le repertoire")
EndIf