#include <GUIConstantsEx.au3>
#include <FileConstants.au3>

Local $hGUI = GUICreate("Корзина файлов", 500, 500)

Local $idButton = GUICtrlCreateButton("Добавить файл в корзину", 150, 0, 150, 40)
GUICtrlCreateLabel("Файлы,находящиеся в корзине:", 10, 50, 500, 100)
Local $idMylist = GUICtrlCreateList("", 10, 80, 450, 100)
FindFile()

GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

Case $idButton
Local $sFileOpenDialog = FileOpenDialog("Выбрать файл", @ScriptDir & "\", "All (*.*)", $FD_FILEMUSTEXIST)
Local $indexname = 0
Local $fname = ""
for $i = StringLen($sFileOpenDialog) to 0 step -1
if StringMid($sFileOpenDialog,$i,1) <> "\" then
$indexname = $i
$fname &= StringMid($sFileOpenDialog,$i,1)
Else
ExitLoop
EndIf
Next
FileCopy($sFileOpenDialog,@ScriptDir&"\dir\"&StringReverse($fname))
msgbox(0,"title","Файл "&$sFileOpenDialog & " скопирован в "&@ScriptDir&"\dir\"&StringReverse($fname))
FindFile()
EndSwitch
WEnd

func FindFile()
$filedir = @ScriptDir&"\dir\"
Local $hSearch = FileFindFirstFile($filedir&"*.*")
While 1
$sFileName = FileFindNextFile($hSearch)
If @error Then ExitLoop
GUICtrlSetData($idMylist, $sFileName)
WEnd
EndFunc