$Ruta = FileSelectFolder("Seleccione directorio donde se buscarán los archivos", @ComputerName)

If $Ruta = "" Then
    MsgBox(16, "Error", "Directorio no seleccionado correctamente")
    Exit
EndIf

$Extension = InputBox("Ingrese la extensión", " Ejemplo: 'exe'", "txt")

If $Extension = ""  Then
    MsgBox(16, "Error", "Extensión no escrita correctamente")
    Exit
EndIf

$Destino = FileSelectFolder("Seleccione directorio donde se copiarán los archivos que tengan la extensión seleccionada", @ComputerName)

If $Destino = "" Then
    MsgBox(16, "Error", "Directorio no seleccionado correctamente")
    Exit
EndIf

_Traslate($Ruta, $Extension, $Destino)

#cs ----------------------------------------------------------------------------
 AutoIt Version:            3.3.9.4 (beta)
 Author:                    DuNeD@i
 Fecha:                     25/03/2013
 Script Function:           Filtrado de Extensiones
 Proposito:                 Filtrar las archivos con cierta extensión de una carpeta y copiarlos a otra.
 ----------------------------------------------------------------------------
#ce

Func _Traslate($Ruta, $Extension, $Destino)
    Local $Ext = -1, $Archivo
    FileChangeDir($Ruta)
    $Ext = FileFindFirstFile("*." & $Extension)
    If $Ext = -1 Then
        MsgBox(0, "Error", "No existen fiheros o directorios coincidentes con el criterio anterior")
        Exit
    EndIf
    While 1
        $Archivo = FileFindNextFile($Ext)
        If $Archivo = "" Then ExitLoop
        FileCopy($Ruta & "\" & $Archivo, $Destino, 1)
        If @error Then ExitLoop
    WEnd
    FileClose($Ext)
    Sleep(1000)
    MsgBox (0,'Info',"Archivos copiados")
EndFunc