Autoit.ES

Tema a resolver :
Tengo una carpeta en mi PC, con diferentes accesos directos a archivos que estan en diferntes ubicaciones de mis discos duros.
Lo que quiero hacer es tener algun programa o nose si existe alguna forma de hacerlo es:
Con algun sencillo paso o aplicacion, copiar todos esos archivos a otra carpeta.
No copiar los accesos ! sino copiar los archivos a los que se refiere el acceso directo.

Mis suposiciones :
Los archivos windows shortcuts o accesos directos tienen la extensión .lnk . El script debería poder interpretar el destino del .lnk . O sea a qué archivo apunta o redirecciona.

Podría consistir en un proceso de copia donde el script escanea la carpeta a copiar en busca de archivos normales y de dichos accesos directos, pero en lugar de copiar el .lnk , copiar el archivo o carpeta al que apunta.

Este último paso de copia de carpeta destino prefijada por un acceso directo tiene la complicación adicional de que dicha carpeta puede contener otros accesos directos.
¿ Es capaz AutoIt de hacer un trabajo así y cómo ?. Bajo windows xp pro.

Su Utilidad :
En mi caso construyo carpetas sobre asuntos o expedientes que contienen subcarpetas y archivos, así como accesos directos a otras carpetas y archivos.
Dichos accesos directos pueden apuntar al mismo disco duro, a otro, a una unidad en red.....
Lo que necesito es crear una carpeta recopilatoria en un llavero usb, cd, dvd, o unidad de disco externa.

#include <File.au3>
#include <Array.au3>

; Opciones AutoIt
Opt("WinTitleMatchMode", 4)
Opt("TrayIconHide", 0)

ExecuteFolderLinks(@DesktopCommonDir & "\")

ExecuteFolderLinks(@DesktopDir & "\")


Func ExecuteFolderLinks($_Folder)

$FileList = _FileListToArray($_Folder, "*.lnk")

If @error Then
MsgBox(0, "Error", "Se ha producido un error en la funcion _FileListToArray." & @CRLF & "Linea " & @ScriptLineNumber)
Return -1
EndIf

For $A = 1 To $FileList[0]
; ShellExecute($_Folder & $FileList[$A])
; o bien con la función:
if extensión del fichero es lnk then
; Read in the path of a shortcut
$detalles = FileGetShortcut(@DesktopDir & "\Shortcut Test.lnk")
; si queremos mover FileMove(@TempDir & "\*.txt", @TempDir & "\TxtFiles\", 9)
FileCopy( $detalles[0], "C:\nuevaruta\"& $detalles[0], 8)
else
FileCopy("C:\Temp\*.txt", "C:\Temp\TxtFiles\", 8)
endif
Next

EndFunc ;==>ExecuteFolderLinks

FUNC FileCopyespecial(origen,destino, sobreescribe)


if no es un link (ver funcion que nombré antes) THEN FileCopy(origen,destino,sobreescribe)
if  es un link THEN  filecopy(FileGetShortcut(origen) ,destino+nombre FileGetShortcut(origen), sobreescribe)
ENDFUNC

FOR .. REVISO TODO EL ARRAY
FileCopyEspecial
NEXT.

1. Resumiendo: En 3 puntos:
   Punto 1: crear la función copiaESPECIALconlnk,
   punto 2: crear la lista de ficheros recursivamente. En una variable Array preferiblemente
   punto 3 pasar la lista de por un bucle FOR/NEXT.