[vb6] Creare collegamento a cartella

[giano118]

ciao,
vorrei creare un collegamento ad una cartella sul desktop.

il tutto deve essere fatto al primo avvio dell'applicazione, dove già avvengono alcune configurazioni.

ho pensato di utilizzare FileSystemObject ma non mi sembra ci sia la possibilita di creare anche un collegamento.

accetto quindi consigli che portino trovare una soluzione.

come sempre...grazie!

[LMondi]

Tempo fa mi è capitato di copiare da un sito questa funzione
che si occupa di salvare in una cartella sul Desktop. Potrebbe servirti la funzione:

'Recuperi il percorso del Desktop con la SHGetFolderPath e
'lo imposti alla InitDir della CommonDialog:

Private Declare Function SHGetFolderPath Lib "shfolder.dll" Alias _
"SHGetFolderPathA" (ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwReserved As Long, _
ByVal lpszPath As String) As Long
_____________________________________________________________________
Private Sub Command1_Click()
    
    Const CSIDL_COMMON_DESKTOPDIRECTORY = &H10
    Const S_OK = &H0
    Dim Cartella As String
    Dim Risultato As Long
    
        Cartella = Space(50)
        Risultato = SHGetFolderPath(Me.hWnd, CSIDL_COMMON_DESKTOPDIRECTORY, 0&, 1&, Cartella)
    If (Risultato = S_OK) Then
        CommonDialog1.InitDir = Cartella
        CommonDialog1.Flags = &H4
        CommonDialog1.ShowSave
    End If

End Sub

Spero che in qualche modo possa servirti, Ciao.

[giano118]

allora la mia situaziole è questa...

in Form_Load() ho questo codice:

  If Not fso.FolderExists("restituzione_file") Then
               fso.CreateFolder ("restituzione_file")
        End If

null'altro fà che creare una cartella 'restituzione_file' se non esiste...
e fin qui non ho problemi.

ora vorrei aggiungere altro codice a quello già esistente e poter creare un collegamento sul desktop alla cartella appena creata creata.

con FileSystemObject non mi sembra si possa fare una cosa del genere, vorrei un aiuto grazie.

[Sypher]

prova a guardare quest'articolo!