Crear acceso directo con Macros
Hola... Necesito programar un macro que pueda crear carpetas de acceso directo dentro de una carpeta determinada. Se como hacer para crear carpetas normales pero no logro encontrar como crear un acceso directo a otra carpeta.
¿Puedes ayudarme?
¿Puedes ayudarme?
1 respuesta
Respuesta de tavopz
1
No estoy seguro de haber entendido el problema, pero si lo que necesitas es un Acceso Directo a una carpeta específica, pienso que puedes hacer algo como esto:
Sub CreateShortCut()
Dim oWSH As Object
Dim oShortcut As Object
Dim sPath As String
Set oWSH = CreateObject("WScript.Shell")
sPath = "C:\Temp" 'Path del sitio donde se ubicará el acceso directo
Set oShortcut = oWSH.CreateShortCut(sPath & "\" & "prueba.lnk") 'Nombre que tendrá el archivo
With oShortcut
.TargetPath = "C:\Datos" 'Path del destino del acceso directo
.Save
End With
Set oWSH = Nothing
End Sub
Sub CreateShortCut()
Dim oWSH As Object
Dim oShortcut As Object
Dim sPath As String
Set oWSH = CreateObject("WScript.Shell")
sPath = "C:\Temp" 'Path del sitio donde se ubicará el acceso directo
Set oShortcut = oWSH.CreateShortCut(sPath & "\" & "prueba.lnk") 'Nombre que tendrá el archivo
With oShortcut
.TargetPath = "C:\Datos" 'Path del destino del acceso directo
.Save
End With
Set oWSH = Nothing
End Sub
Muchísimas gracias!... me fue de mucha ayuda... era tal cual lo que necesitaba :)... me funciono tal cual como lo pusiste :)
Gracias por responder tan pronto :)...
Gracias por responder tan pronto :)...
