FoxPro/Visual FoxPro - creacion de acceso directo

hola :tengo esta rutina para crear un acceso directo.

WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
wait wind strdesktop

oMyShortCut =WshShell.CreateShortcut(strDesktop+"ACCESO DIRECTO A LEGAJOS.lnk")
oMyShortCut.WindowStyle = 3
oMyShortCut.IconLocation = "e:\prueba\visto.ico"
oMyShortCut.TargetPath = "e:\prueba\legrepetidos.exe"
oMyShortCut.HotKey = "ALT+CTRL+F"
oMyShortCut.Save

en el wait wind que puse veo correctamente el path al escritorio (tenngo w2000)

el tema es que cuando ejecuto el programa no me crea el acceso directo.
necesitaria saber donde esta la falla (el ejecutable y el icono estan en el directorio prueba )

gracias

modifica esta linea

oMyShortCut =WshShell.CreateShortcut(strDesktop+"\"+"ACCESO DIRECTO A LEGAJOS.lnk")

Amigo Eduardo :
Hice la prueba con tu codigo y realmente no funcionaba pues el error estaba en la linea que comenta el colega Enrique.

A continuacion te muestro otra forma de crear un Acceso Directo...con la explicacion del caso.

***************************************************************************
Crear un acceso directo mediante API.
***************************************************************************
Función : CrearAccesoDirecto
Proposito : Crea un acceso directo
Parametros : 1.- Donde crear el acceso directo
2.- El texto que aparecera como rotulo del acceso
3.- El path y nombre del archivo al cual se hace el acceso directo
4.- Los argumentos para el archivo
Nota : Debe existir la carpeta donde se va a crear el acceso directo
Esta Función utiliza un DLL llamado "STKIT432.DLL" el cual puede ser bajado de:
ftp://ftp.vbi.org/runtimes/vb4.0/stkit432.zip
ftp://us.vbi.org/pub/runtimes/vb4.0/stkit432.zip
Regresa : 1 = Se creo el acceso directo con exito
0 = No se pudo crear el acceso directo
Ejemplo : a) Crea un acceso directo en el escritorio
CrearAccesoDirecto('....Escritorio', 'Bloc de notas', 'c:windows\notepad.exe', '')

b) Crea un acceso directo en "Programas" del "Menú Inicio" (Dos ejemplos de lo mismo)
CrearAccesoDirecto('....Menú InicioProgramas', 'Bloc de notas', 'c:windows\notepad.exe', '')
CrearAccesoDirecto('', 'Bloc de notas', 'c:windows\notepad.exe', '')

c) Crea un acceso directo al menu "Inicio" de "Programas"
CrearAccesoDirecto('Inicio', 'Bloc de notas', 'c:windows\notepad.exe', '')
***************************************************************************
***************************************************************************
FUNCTION CrearAccesoDirecto(c_Ruta,c_Rotulo,c_Archivo,c_Argumentos)
LOCAL n_Resultado

DECLARE INTEGER fCreateShellLink IN STKIT432.DLL ;
STRING lpstrFolderName, ;
STRING lpstrLinkName, ;
STRING lpstrLinkPath, ;
STRING lpstrLinkArgs

*--- ejecuta el comando para crear el acceso directo
n_Resultado = fCreateShellLink(c_Ruta,c_Rotulo,c_Archivo,c_Argumentos)

RETURN n_Resultado

Saludos,

GABRIEL
(Lima-Perú)