Tout mettre dans le même dossier.au3

;AutoIt: Les variables sont précédées d'un $
;Les commentaires sont définis par ;
;La variable @error est utilisée par toutes les fonctions pour stocker des codes d'erreurs
;Les tableaux se déclarent ainsi: Dim $variable[#index]
;"!=" s'écrit "<>"
;On connecte les chaînes de caractères avec le symbole &. "chaîne " & "de " & "caractère."
;@CRLF == retour à la ligne


#include <File.au3>
#include <Array.au3>
Dim $list[1]

Func GetFiles($dir)
    Local $list = _FileListToArray($dir)
    If @error = 1 Then
        MsgBox(0, "", "No Folders Found."&$dir)
        Exit
    EndIf
    If @error = 4 Then
        MsgBox(0, "", "No Files Found."&$dir)
        Exit
    EndIf

    For $i=1 To $list[0]
        If DirGetSize($dir&"\"&$list[$i]) <> -1 Then
            If DirGetSize($dir&"\"&$list[$i]) = 0 Then
                ConsoleWrite("+>"&$dir&"\"&$list[$i]&"\"&@CRLF)
            Else
                If $list[$i] = "Menus, HUD, and Text" Or $list[$i] = "Miscellaneous" Then
                    ConsoleWriteError("  "&$dir&"\"&$list[$i]&"\"&@CRLF)
                Else
                    ConsoleWrite("+>"&$dir&"\"&$list[$i]&"\"&@CRLF)
                    GetFiles($dir&"\"&$list[$i])
                EndIf
            EndIf
        Else
            If $list[$i] <> "Authors.txt" And $list[$i] <> @ScriptName Then
                If Not FileExists(@ScriptDir&"\Tout dans le même dossier") Then
                    DirCreate(@ScriptDir&"\Tout dans le même dossier")
                Else
                    FileCopy($dir&"\"&$list[$i], @ScriptDir&"\Tout dans le même dossier\"&$list[$i])
                EndIf
                ConsoleWrite("  "&$dir&"\"&$list[$i]&@CRLF)
            EndIf
        EndIf
    Next
EndFunc

GetFiles(@ScriptDir)