Publicidad

Resultados 1 al 2 de 2
  1. #1
    [IG] *Usuario de Honor* Avatar de wansoft
    Ingreso
    24 may, 05
    Ubicación
    Buenos Aires
    Mensajes
    83
    País
    Gracias
    10
    62 gracias en 17 Posts

    Post VB.NET - Crear accesos directos.

    El siguiente código crea accesos directos en el escritorio ( carpeta "LINKS), accesos directos al programa que se especifique. Puede modificarse la ubicacion si lo desean, si no tienen idea de cómo hacerlo, me postean.

    Imports
    IWshRuntimeLibrary
    Imports System.IO

    Public Sub MakeShortCut(NameSC As String, sTarget As String, params As String, folderX As String)

    Dim WshShell As WshShellClass = New WshShellClass

    Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut

    ' Carpeta donde se copiarán los accesos directos
    Dim ePath As String = Environment.GetFolderPath(Environment.SpecialFolde r.DesktopDirectory) & "\Links"

    If Not Directory.Exists(ePath) Then
    Directory.CreateDirectory(ePath)
    End If


    MyShortcut = CType(WshShell.CreateShortcut(ePath & "\" & NameSC & ".lnk"), IWshRuntimeLibrary.IWshShortcut)

    MyShortcut.TargetPath = sTarget 'Specify target app full path
    MyShortcut.WorkingDirectory = folderX
    MyShortcut.Arguments = params

    MyShortcut.Save()

    End Sub

    EJEMPLO DE USO
    MakeShortCut("01 - ConnectServer", "C:\MUserver\ConnectServer\CS.exe", "", "C:\MUserver\ConnectServer")
    MakeShortCut("02 - DataServer 01", "C:\MUserver\DataServer1\Dataserver.exe", "55960 1", "C:\MUserver\DataServer1")
    MakeShortCut("03 - DataServer 02", "C:\MUserver\DataServer2\Dataserver.exe", "55962 2", "C:\MUserver\DataServer2")



    NameSC = Nombre del acceso directo
    sTarget = programa que ejecuta el acceso directo
    params = parámetros del ejecutable
    folderX = Directorio de trabajo ( por lo general la misma carpeta del programa)

    Última edición por wansoft; 31/08/2014 a las 01:06 Razón: añadir informacion
    ' Buscalo en google ' No es una respuesta válida

  2.    Publicidad


  3. The Following User Says Thank You to wansoft For This Useful Post:


  4. #2
    [IG] Leecher Avatar de psyab
    Ingreso
    15 nov, 14
    Mensajes
    14
    País
    Gracias
    0
    0 gracias en 0 Posts

    Re: VB.NET - Crear accesos directos.

    Estube Revisandolo estas muy bueno sigue asi con tus enseñanazas Thanks


 

Etiquetas para este tema

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •