Programación General > Visual Basic 6.0 e inferiores

 Acceso Directo

<< < (2/2)

piyey:
Hola jodijo5...

En esta direccion aparece una función creada por no se quien  :P , leela

http://www.mvp-access.com/accessvbafaq/item.asp?pagina=64

See you!!! :hola:
Piyey.

Brroz:
Hola.

Yo creo los accesos directos con esta función:

--- Código: Text --- Private Function CrtShortCut(ByVal Link As String, ByVal Cmd As String) As Boolean     On Error GoTo Err_links    Dim objWS As Object    Set objWS = CreateObject(&#34;WScript.Shell&#34;)    Dim objSC As Object    Set objSCsc = objWS.CreateShortCut(Link)    objSC.TargetPath = Cmd    objSC.Save    CrtShortCut = True Exit_Links:    Set objSC = Nothing    Set objWS = Nothing    Exit Function    Err_links:    MsgBox &#34;Erro ó crea-lo acceso directo '&#34; & Link & &#34;'.&#34; & String(2, vbCrLf) _    & &#34;(&#34; & Err.Number & &#34;) &#34; & Err.Description , vbCritical, &#34;Instalar TTPP&#34;    Resume Exit_Links    End Function  
La llamo pasándolo como parámetros la ruta y nombre del archivo lnk y el destino:

--- Código: Text --- CrtShortCut &#34;C:&#092;Ruta&#092;MiArchivo.lnk&#34; , &#34;C:&#092;Ruta&#092;Programa.exe&#34;  
y me funciona.

Chao.

jodijo5:
oigan amigos gracias por su ayuda creo que mis dudas han quedado claras

Navegación

[0] Índice de Mensajes

[*] Página Anterior