CISA FotoGallery

Statistiche

Tot. visite contenuti : 923070
Home Articoli tecnici General WSH-ShortCut(Crea un Link sul DeskTop)

WSH-ShortCut(Crea un Link sul DeskTop)

Questo Demo mostra come Creare un Link Sul DeskTop con tecnica WSH.

Il Demo è stato suggerito da Giorgio Rancati nel Post

Newsgroups: it.comp.appl.access
Subject: link su desktop
Date: Fri, 11 Mar 2005 14:52:10 +0100

Per INFO di dettaglio vedere il Link MS:

http://msdn.microsoft.com/it-it/library/xsy6k3ys%28v=vs.85%29.aspx

CODICE

Sub CreaLink()
    Dim WshShell, strDesktop, oShellLink, oUrlLink
    
    Set WshShell = CreateObject("WScript.Shell")
    
    strDesktop = WshShell.SpecialFolders("Desktop")
    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Collegamento a Notepad.lnk")
    oShellLink.TargetPath = "Notepad.exe"
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = "Ctrl+Alt+e"
    oShellLink.IconLocation = "notepad.exe, 0"
    oShellLink.Description = "Prova Collegamento a Notepad"
    oShellLink.WorkingDirectory = strDesktop
    oShellLink.Save
    
    Set WshShell = Nothing
    Set strDesktop = Nothing
    Set oShellLink = Nothing
End Sub