Compilar un Acceso Directo

[uen]

Buenas a todos.

Antes de nada, quería agradecer vuestro tiempo ayudandome con mi problema y pediros perdon si ya se ha tratado este tema en otro hilo (aunque no creo).

Vereis, os cuento mi problema.

Tengo un archivo de EXCEL alojado un en un servidor (Ej.: \\servidor\achivos\archivo.xls). A este archivo accederán unas cuantas personas desde sus PCs pudiendo modificarlo (esa es la razón por la cual está en el servidor, para que esté actualizado en cada momento).

Cada una de estas han de tener en su escritorio, un acceso directo a este archivo.
Imaginaros por un momento, que estas personas no saben crear un acceso directo y necesitan que les envies tu el propio acceso directo (*.lnk).

¿Como lo hariais?

Ya que si quereis enviarlo por correo adjuntando el archivo .lnk, te envía el archivo de excel y no el acceso directo. Si quieres comprimir el acceso directo, te comprime el archivo de excel, no el acceso directo...

La verdad es que no sé que hacer... lo mas sencillo sería enviarles un correo explicandoles como se crea un acceso directo, pero no me permiten hacerlo, tengo que ser yo el que se lo envie.

La única solución que se me ocurre es crear un instalador que lo único que instale sea el acceso directo en el escritorio, ¿es posible?¿conoceis alguno?

Muchisimas gracias!!

[David]

Para copiar un acceso directo puedes hacerlo desde la línea de comandos, aunque para adjuntar al email ya es un poco más complicado, tendrías que modificar el Registro para que no reconozca los *.lnk como accesos directos.

Si no mal lo recuerdo el WinRAR te permite crear un Auto-Extraíble que crea Accesos Directos.

[uen]

Muchas gracias por tu contestación David,

Estoy buscando información de como editar el registro para poder enviar el archivo .lnk

El tema del winrar no sé si me serviría de algo... porque habría que comprimir el archivo de excel y ponerle la opción esa de que cree el acceso directo, pero no me sirve de nada, porque el excel no lo quiero enviar, ya que quiero que esté en el servidor.

De nuevo muchas gracias por tu ayuda!

[David]

Eliminando el valor "IsShortcut" de la clave:

Código:

HKEY_CLASSES_ROOT\lnkfile

Podrás abrir los *.lnk

[uen]

Muchas gracias David el Grande.

He eliminado el valor en el regedit.

He intentado adjuntarlo al Outlook pero me sigue adjuntando el Excel, no el .lnk
Y con el Winrar lo mismo, intento comprimir el .lnk y me comprime el excel.

[David]

Debes reiniciar el Explorador para que el cambio tenga efecto.

[mrocf]

Hola! uen
Confieso que leer lo siguiente me sorprende:

Iniciado por uen

... Imaginaros por un momento, que estas personas no saben crear un acceso directo ...

Desde mi punto de vista, redactar un instructivo para personas con "cero" formación en el tema, no tiene que llevarte más de 4 líneas!!!.

Advierte el tiempo que has aplicado a resolver el tema de enviar por correo un acceso directo, siendo que nada te garantiza que -ese mismo usuario que lo reciba- sepa a posteriori utilizarlo.

¿Se entiende la idea?

Saludos, Cacho.

[uen]

Iniciado por mrocf

Hola! uen
Confieso que leer lo siguiente me sorprende:


Desde mi punto de vista, redactar un instructivo para personas con "cero" formación en el tema, no tiene que llevarte más de 4 líneas!!!.

Advierte el tiempo que has aplicado a resolver el tema de enviar por correo un acceso directo, siendo que nada te garantiza que -ese mismo usuario que lo reciba- sepa a posteriori utilizarlo.

¿Se entiende la idea?

Saludos, Cacho.

jaja, si eso mismo pienso yo... pero diselo a mi jefe :)

[mrocf]

Crea un nuevo archivo excel que contenga -solamente- un botón que ejecute la siguiente macro:

Código:

Sub CreaAccesoDirecto()
Dim WS As Object
Dim AD As Object
Dim MiLnk As String
'Nombre que tendrá el acceso
MiLnk = "Acceso de Prueba"
Set WS = CreateObject("WScript.Shell")
With WS
  Set AD = .CreateShortCut(.SpecialFolders("Desktop") & "\" & MiLnk & ".lnk")
End With
With AD
'Path del destino del acceso directo
  .TargetPath = "\\servidor\achivos\archivo.xls"
  .Save
End With
Set AD = Nothing: Set WS = Nothing
MsgBox "Acceso Directo '" & MiLnk & "' creado."
End Sub

Esta macro creará un acceso directo en el escritorio llamado "Acceso de prueba". El destino del acceso es el indicado en la propia macro.

Quizás sea más sencillo que envíes este archivo vía mail.

Saludos, Cacho.

[David]

Interesante la solución de mrocf.

Aunque para facilitar aún más el trabajo, se podría poner directamente en un .vbs que al entrar en él ya cree el acceso directo.

[uen]

Muchisimas gracias a todos por vuestra ayuda!! de verdad!

[mrocf]

Ja ja ja !!!

Espero que a tu Jefe... le agrade la idea !!!

Hasta la próxima, Cacho.