#RequireAdmin
#include <GUIConstants.au3>
#include <File.au3>

Global $Temp, $Files

Local $hGUI = GUICreate("Copy Test", 300, 200)

Local $source = GUICtrlCreateInput("Source path", 10, 20, 200, 20)
Local $sourceBtn = GUICtrlCreateButton("Browse", 220, 20, 50, 20)

Local $destination = GUICtrlCreateInput("Destination path", 10, 60, 200, 20)
Local $destinationBtn = GUICtrlCreateButton("Browse", 220, 60, 50, 20)

Local $startBtn = GUICtrlCreateButton("Start", 125, 100, 50, 20)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $sourceBtn
            FolderChoose($source)
        Case $destinationBtn
            FolderChoose($destination)
        Case $startBtn
            Start()        
    EndSwitch

WEnd

Func FolderChoose($output)

    $Temp = FileSelectFolder("Choose folder", "")

    GUICtrlSetData($output, $Temp)

EndFunc

Func Start()

    $Files = _FileListToArray(GUICtrlRead($source))
    _ArrayDisplay($Files)

    $path1 = GUICtrlRead($source)
    $path2 = GUICtrlRead($destination)

    For $i = 1 To $Files[0]
        FileCopy($path1 & "\" & $Files[$i], $path2, 1)
        MsgBox(0, $i, "File being copied: " & $Files[$i])
    Next

    ;~ DirCopy(GUICtrlRead($source), GUICtrlRead($destination), 1)
    ;~ If @error Then
    ;~     MsgBox(16, "Error", "Error: something went wrong")
    ;~ Else
    ;~     MsgBox(64, "Complete", "Folder was copied succesfully.", 0, $hGUI)
    ;~ EndIf

EndFunc