Newsgroup: it.comp.appl.access
Titolo: Icona Run Time

Salve
Come poter da installazione Run Time poter creare una icona sul Desktop con
relativo collegamento al programma installato ed icona personalizzata .
Grazie

 Rino

 ha scritto nel messaggio
news:F%5Wa.2929$an6.1...@news1.tin.it...

Ciao Rino
Se non lo trovi te lo posto così come mamma M$ l'ha fatto.
' File di esempio Windows Script Host
'
' ------------------------------------------------------------------------
'               Copyright (C) 1996-1998 Microsoft Corporation
'
' All'utente è concesso, a titolo gratuito, un diritto di utilizzare,
' modificare, riprodurre e distribuire i file applicativi di esempio (e/o
' ogni loro versione modificata) in ogni modalità ritenuta appropriata,
' a condizione che l'utente accetti che Microsoft non concede garanzie,
' obblighi o responsabilità per nessuno dei file applicativi di esempio.
' ------------------------------------------------------------------------
'
' Questo esempio dimostra come utilizzare l'oggetto WshShell
' per creare un collegamento sul desktop
L_Welcome_MsgBox_Message_Text   = "Questo script creerà un collegamento a
Blocco note sul desktop."
L_Welcome_MsgBox_Title_Text     = "Esempio di Windows Scripting Host"
Call Welcome()
'
****************************************************************************
****
' *
' * Metodi relativi ai collegamenti.
' *
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim MyShortcut, MyDesktop, DesktopPath
' Legge il percorso del desktop utilizzando l'oggetto WshSpecialFolders
DesktopPath = WSHShell.SpecialFolders("Desktop")
' Crea un oggetto di collegamento sul desktop
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Collegamento a
Blocco note.lnk")
' Imposta e salva le proprietà del collegamento
MyShortcut.TargetPath =
WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation =
WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
MyShortcut.Save
WScript.Echo "Un collegamento a Blocco note è ora presente sul desktop"
'
****************************************************************************
****
' *
' * Introduzione
' *
Sub Welcome()
    Dim intDoIt
    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub
-----------------------------------------------------
Ciao Giorgio

 MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("mia_Dir")
dovrebbe essere il percorso del collegamento ma non va.
suggerimenti  Giorgio?
Ciao Rino

 >
 Dopo aver corretto il codice ,riesce a creare il collegamento sul desktop
con relativa icona ma non riesce a creare il link con il programma
se non erro
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("mia_Dir")
dovrebbe essere il percorso del collegamento ma non va.
suggerimenti  Giorgio?
Ciao Rino
Ciao Rino
Il percorso del programma da eseguire deve essere messo in TargetPath non
nella directory di lavoro WorkingDirectory.
Ciao Giorgio