|
Hola,
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
Saludos, Tavopz
|
