[FlatX007]

Код:

#include <File.au3>

Global $sOut = "C:\" ; Папка назначения
Global $szDrive, $szDir, $szFName, $szExt, $Path

$sFileOpenDialog = FileOpenDialog("Выберите файл", @ProgramFilesDir & "\", "Exe (*.exe)", 1 + 8 + 16)
If Not (@error) Then
    $aPath = _PathSplit($sFileOpenDialog, $szDrive, $szDir, $szFName, $szExt)
    If FileExists($sFileOpenDialog) And IsArray($aPath) Then FileCopy($sFileOpenDialog, $sOut & $aPath[3] & $aPath[4])
EndIf