Discussione:
Creare un icona sul desktop
(troppo vecchio per rispondere)
radicale.002
2010-07-28 00:40:34 UTC
Permalink
Forse chiedo troppo al VBA ?

Ho bisogno di creare una applicazione di installazione
che risiede sul server centrale.

L' utente vi accede e la apre.

"Lei" crea una serie di directory sul C: locale, ci scarica
dentro i files (e fin qui ... Pure pure) ma poi dovrebbe
riuscire a creare una icona sul desktop che faccia un
collegamento alla applicazione appena scaricata in modo
che le volte successive l' utente cliccando su questa icona
accede al prg, che e' locale.

A mano e' semplice, ma col VBA si potra' fare ?
(Il fatto e' che gli utenti stanno sparsi per tutta Italia ...)

E se poi un domani ho bisogno di cambiare il path dell' icona
lo potro' fare ? (ma questo non e' indispensabile).

Grazie.
Fair87
2010-07-28 09:30:46 UTC
Permalink
Post by radicale.002
Forse chiedo troppo al VBA ?
Ho bisogno di creare una applicazione di installazione
che risiede sul server centrale.
L' utente vi accede e la apre.
"Lei" crea una serie di directory sul C: locale, ci scarica
dentro i files (e fin qui ... Pure pure) ma poi dovrebbe
riuscire a creare una icona sul desktop che faccia un
collegamento alla applicazione appena scaricata in modo
che le volte successive l' utente cliccando su questa icona
accede al prg, che e' locale.
A mano e' semplice, ma col VBA si potra' fare ?
(Il fatto e' che gli utenti stanno sparsi per tutta Italia ...)
E se poi un domani ho bisogno di cambiare il path dell' icona
lo potro' fare ? (ma questo non e' indispensabile).
Grazie.
Ma usare un tool apposta per il deploy? Il classico exe che fa tutto da solo?
Ce ne sono a tonnellate anche free......a volte non è necessario reinventare
la ruota no?!?!!? :)

--
radicale 004
2010-07-28 11:23:55 UTC
Permalink
Post by Fair87
Ma usare un tool apposta per il deploy? Il classico exe che fa tutto da solo?
Ce ne sono a tonnellate anche free......a volte non è necessario reinventare
la ruota no?!?!!? :)
Tu c' hai ragione ...

Il fatto e' che da un lato sono NEGATO a scaricare
programmi da internet : non trovo mai niente e quando
trovo non mi funziona mai un caxo. Pure sfiga, eh ...

Dall' altro, non mi fido tanto dei programmi cosi',
perche' poi se hanno un malfunzionamento qualsiasi
(e per la legge di Murpy l' avranno) chi ce le mette
le mani in un eseguibile fatto poi chissa' da chi
e per quali tipi di macchine ecc ecc ?
Fair87
2010-07-28 13:17:03 UTC
Permalink
Post by radicale 004
Ma usare un tool apposta per il deploy? Il classico exe che fa tutto da s=
olo?
Ce ne sono a tonnellate anche free......a volte non =E8 necessario reinve=
ntare
la ruota no?!?!!? :)
Tu c' hai ragione ...
Il fatto e' che da un lato sono NEGATO a scaricare
programmi da internet : non trovo mai niente e quando
trovo non mi funziona mai un caxo. Pure sfiga, eh ...
Dall' altro, non mi fido tanto dei programmi cosi',
perche' poi se hanno un malfunzionamento qualsiasi
(e per la legge di Murpy l' avranno) chi ce le mette
le mani in un eseguibile fatto poi chissa' da chi
e per quali tipi di macchine ecc ecc ?
Mah...io a dire il vero utilizzo da tempo, e senza noia alcuna, tool tipo
Tarma installer e altri...altrimenti c'è sempre il pacchetto developer (nn so
come si chiami ora) di office.....

--
pablitomf
2010-07-29 08:51:11 UTC
Permalink
Post by radicale 004
Post by Fair87
Ma usare un tool apposta per il deploy? Il classico exe che fa tutto da solo?
Ce ne sono a tonnellate anche free......a volte non è necessario reinventare
la ruota no?!?!!? :)
Tu c' hai ragione ...
Il fatto e' che da un lato sono NEGATO a scaricare
programmi da internet : non trovo mai niente e quando
trovo non mi funziona mai un caxo. Pure sfiga, eh ...
Dall' altro, non mi fido tanto dei programmi cosi',
perche' poi se hanno un malfunzionamento qualsiasi
(e per la legge di Murpy l' avranno) chi ce le mette
le mani in un eseguibile fatto poi chissa' da chi
e per quali tipi di macchine ecc ecc ?
INNO SETUP.
radicale 004
2010-07-30 15:10:40 UTC
Permalink
Post by pablitomf
INNO SETUP.
E che vol di ?
Karl Donaubauer
2010-07-30 15:22:30 UTC
Permalink
Post by radicale 004
Post by pablitomf
INNO SETUP.
E che vol di ?
Programmi di setup alternativi
www.donkarl.com/it?FAQ1.34
--
Ciao
Karl
*********
Access FAQ: www.donkarl.com/it
radicale.002
2010-07-31 11:09:34 UTC
Permalink
Post by radicale 004
Post by pablitomf
INNO SETUP.
E che vol di ?
 Programmi di setup alternativi
 www.donkarl.com/it?FAQ1.34
Argh ... Io pensavo fosse una battuta in una
specie di linguaggio in codice !

Sai Pablitomf le risate che si fara' alle mie spalle adesso ?
Sob ... :D

Karl Donaubauer
2010-07-28 10:10:24 UTC
Permalink
Post by radicale.002
...
"Lei" crea una serie di directory sul C: locale, ci scarica
dentro i files (e fin qui ... Pure pure) ma poi dovrebbe
riuscire a creare una icona sul desktop che faccia un
collegamento alla applicazione appena scaricata in modo
che le volte successive l' utente cliccando su questa icona
accede al prg, che e' locale.
A mano e' semplice, ma col VBA si potra' fare ?
(Il fatto e' che gli utenti stanno sparsi per tutta Italia ...)
...
Cerchi la definizione e la funzione d'esempio per
"MsoCreateShortcut" sul sito di michka:
http://www.trigeminal.com/code/UsefulOfficeExports.bas
Post by radicale.002
E se poi un domani ho bisogno di cambiare il path dell' icona
lo potro' fare ? (ma questo non e' indispensabile).
?
--
Ciao
Karl
*********
Access FAQ: www.donkarl.com/it
radicale 004
2010-07-28 11:26:49 UTC
Permalink
Post by Karl Donaubauer
Cerchi la definizione e la funzione d'esempio per
"MsoCreateShortcut" sul sito di >michka:http://www.trigeminal.com/code/UsefulOfficeExports.bas
Mo' ce guardo, grazie !
Post by Karl Donaubauer
?
No, niente ... Volevo dire :
le icone sul desktop hanno il path scritto dentro, hai
presente no ?

Mi chiedevo se era possibile cambiarglielo con il
VBA senza toccare l' iconcina. Tutto qui. Ma non
ha importanza.
Riccardo Baldinotti
2010-07-28 12:08:35 UTC
Permalink
Post by Karl Donaubauer
Cerchi la definizione e la funzione d'esempio per
"MsoCreateShortcut" sul sito di michka:http://www.trigeminal.com/code/UsefulOfficeExports.bas
Chiedo scusa se m'intrufolo.
Mi sono fiondato a cercare l'esempio, l'ho messo in un modulo, ma mi
esce un errore di run-time 53: Impossibile trovare il file "mso9.dll".
Uso A2007 con Vista. Devo modificare qualche riferimento?
E già che ci sono, vorrei chiarire l'uso di:
(stFile As String, stShortcut As String)
si tratta, rispettivamente, del nome del file .lnk e della stringa
"Destinazione" nel menu Proprietà, o non ho capito nulla?
Grazie in anticipo.
Riccardo Baldinotti
radicale 004
2010-07-28 12:47:45 UTC
Permalink
Post by Riccardo Baldinotti
Devo modificare qualche riferimento?
Si, sicuro.
Ma vallo a capire quale ...
Geppo
2010-07-28 14:58:31 UTC
Permalink
Post by Riccardo Baldinotti
Post by Karl Donaubauer
Cerchi la definizione e la funzione d'esempio per
"MsoCreateShortcut" sul sito di
michka:http://www.trigeminal.com/code/UsefulOfficeExports.bas
Chiedo scusa se m'intrufolo.
Mi sono fiondato a cercare l'esempio, l'ho messo in un modulo, ma mi
esce un errore di run-time 53: Impossibile trovare il file "mso9.dll".
Uso A2007 con Vista. Devo modificare qualche riferimento?
(stFile As String, stShortcut As String)
si tratta, rispettivamente, del nome del file .lnk e della stringa
"Destinazione" nel menu Proprietà, o non ho capito nulla?
Grazie in anticipo.
Non ho la risposta all'errore che hai riscontrato, però ho questa sub che
può tornarti utile:

NON E' ROBA MIA, NON RICORDO DA DOVE L'HO ATTINTO:


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
Post by Riccardo Baldinotti
Riccardo Baldinotti
--
Ciao
Geppo
Riccardo Baldinotti
2010-07-29 08:12:27 UTC
Permalink
Post by Geppo
Non ho la risposta all'errore che hai riscontrato, però ho questa sub che
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
Post by Riccardo Baldinotti
Riccardo Baldinotti
--
Ciao
Geppo- Nascondi testo citato
- Mostra testo citato -
E funziona!
Tra l'altro, leggendola mi ricordo d'aver visto la sub un paio di anni
fa, ma è come tutte le cose di cui dico: "interessante, se mi
servirà..." e poi me ne dimentico.
Comunque la fonte è
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=149
in cui il Mitico ci delizia.
E risponde anche alla domanda di radicale 004, se sia possibile
modificare l'icona o altro.
Credo che possa interessare anche:
5.83 Impostare da VBA l'icona ed il titolo dell'applicazione e l'icona
delle maschere e report
sul Sito Comune.
Grazie mille.
Riccardo Baldinotti
Loading...