FoxPro/Visual FoxPro - creacion de acceso directo

   
Vista:

creacion de acceso directo

Publicado por EDUARDO (139 intervenciones) el 03/09/2007 15:49:10
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:creacion de acceso directo

Publicado por enrique (1041 intervenciones) el 03/09/2007 16:52:47
modifica esta linea

oMyShortCut =WshShell.CreateShortcut(strDesktop+"\"+"ACCESO DIRECTO A LEGAJOS.lnk")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:creacion de acceso directo

Publicado por Gabriel (406 intervenciones) el 03/09/2007 17:23:24
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ú)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar