|
|
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:
[b]Sub CreateShortCut()
Dim oWSH As Object
Dim oShortcut As Object
Dim sPath As String
Set oWSH = CreateObject("WScript.Shell")
sPath = "C:\Temp"[/b] 'Path del sitio donde se ubicará el acceso directo
[b] Set oShortcut = oWSH.CreateShortCut(sPath & "\" & "prueba.lnk")[/b] 'Nombre que tendrá el archivo
[b] With oShortcut
.TargetPath = "C:\Datos" [/b]'Path del destino del acceso directo
[b] .Save
End With
Set oWSH = Nothing
End Sub[/b]
Saludos, Tavopz
|