Macro crear acceso directo
Publicado por José (8 intervenciones) el 21/01/2019 16:52:47
Hola gente, tengo un problema y necesito una macro la cual pueda crear un acceso directo de una carpeta que tengo en la ruta (C:\Carpeta).
Intente con el código:
Pero la opción "CreateObjet" me marca error de compilación.
Si alguien tuviera alguna solución se los agradecería mucho.
Intente con el código:
1
2
3
4
5
6
7
8
Dim instanciaWsh
Dim RutaEscritorio
Dim AccesoDirecto
Set instanciaWsh = CreateObjet ("WScript.Shell")
RutaEscritorio = insrtanciaWsh.SpecialFolders("Desktop")
Set AccesoDirecto = insrtanciaWsh.CreateShortcut(RutaEscritorio & "\Carpeta.lnk")
AccesoDirecto.TargetPath = "C:\Carpeta"
AccesoDirecto.SavePero la opción "CreateObjet" me marca error de compilación.
Si alguien tuviera alguna solución se los agradecería mucho.
Valora esta pregunta
0
