creare link in start/programmi

[sintax_error]

prima di tutto Auguri a tutti.
sto provando a fare un piccolo Installer personalizzato
usando la unrar.dll ,mi creo il mio bel archivio in formato .rar
e dal form creato mi scompatto il file rar e fin qui nessun problema.
Ora vorrei fare in modo che alla fine della scompattazione dell'Archivio mi crei un Link in Start/programmi linkato al file .exe contenuto nella Directory di installazione sapendo a priori il nome del File.
Ho cercato sul forum ma non ho trovato niente.
Qualcuno ha una dritta da darmi?
Ciao

[sintax_error]

Trovato questo codice per metere link sul Desktop

[code]
Declare Function fCreateShellLink Lib "STKIT432.DLL" _
(ByVal lpstrFolderName as String ,ByVal lpstrLinkName as String _
ByVal lpstrLinkPath as String ,ByVal lpstrLinkArgs as String ) As Long
Dim iLong As Long
iLong = fCreateShellLink("..\..\Desktop", "Link a _
Program", "C:\Path\Program.exe","")

[code]

e funziona ,ma non risco careare una cartella in Start/programmi.
Se metto dolo il Link va bene ma io ho bisogno di inserire il link in una Cartella del Tipo:Start/programmi/mio programma/LInk a .exe.

Ciao e auguri di buon anno a titti

[iguana13]

Credo che sia da fare così:

iLong = fCreateShellLinkC:\Documents and Settings\All Users\Menu Avvio\Programmi\MioProgramma", "Link a _ 
Program", "C:\Path\Program.exe","")

Questo codice funziona con WinXP.

[sintax_error]

n0n funziona
Funziona solo cosi
[code]

iLong = fCreateShellLink("..\..\Menu Avvio\Programmi", "Collegamento a Program", App.Path & "/Progetto1.exe", "")
[code]

ma mi mette solo il Link all'exe,mentre io ho bisogno di metterlo in una cartella.
Ho pensato che una soluzione sarebbe creare una Cartella con Makedir
ma ho fatto un sacco di prove e non mi funziona.
Ho provato anche a metterlo in una cartella gia' presente ma non funziona

Aiutatemi per favore

[sintax_error]

dim link as string
dim txtorpath as string 
dim txtdestpath as string 
link=text1.text
txtorpath=text2.text
txtdestpath=text3.text

Call MkDir("C:\Documents and Settings\All Users\Menu Avvio\Programmi\" & txtorpath)

iLong = fCreateShellLink("..\..\Menu Avvio\Programmi\& txtorpath", link, txtDestPath.Text & "/RegAnyDVD.exe", "")

non mi scrive nulla nella directory creata (((

se invece faccio cosi':

iLong = fCreateShellLink("..\..\Menu Avvio\Programmi", Link, txtDestPath.Text & "/mioexe.exe", "")

mi crea il Link correttamente ma non nella cartella come io voglio.

Help me

[fcorti]

Private Sub CreaLink(LNK As String, RigaDiComando As String, Icona As String, Optional Argomenti As String = "", Optional CartellaLavoro As String = "", Optional Descrizione As String = "", Optional StileFinestra As Integer = 1)
    'Crea un collegamento al file.
    Dim Shell As Object, Link As Object
    Set Shell = CreateObject("WScript.Shell")
    Set Link = Shell.CreateShortcut(LNK)
    With Link
        .Arguments = Argomenti
        .Description = Descrizione
        '.HotKey = "CTRL+ALT+SHIFT+X"
        .IconLocation = Icona   'NOTA: è possibile assegnare anche un'icona contenuta in un file EXE oppure DLL.
                                'in questo caso, è necessario specificare la posizione dell'icona all'interno del file:
                                'esempio: .IconLocation = "C:\Windows\System\Shell32.dll, 4"
        .TargetPath = RigaDiComando
        'Valori possibili per "StileFinestra:"
        '1 = Finestra normale.
        '3 = Ingrandita.
        '7 = Ridotta a icona.
        .WindowStyle = StileFinestra
        .WorkingDirectory = CartellaLavoro
        .Save
    End With
    
    Set Shell = Nothing
    Set Link = Nothing
    MsgBox "Collegamento creato correttamente.", vbInformation, Me.Caption
End Sub

Questa routine non ti garantisco che funzioni con XP, su 9x/ME la uso