Ciao Ragazzi!
Utilizzo VBa Access 2010 e vorrei realizzare un codice che al pigiare del bottone crei una cartella in 'c:Programmi' ed un collegamento della stessa sul Desktop.

Sono riuscito a creare:

Private Sub CreacartellaDB_Click()
'Creazione new cartella

On Error GoTo CreacartellaDB_Err
Dim col As String


If dir("C:\Program Files\CartDB_Indicatori", vbDirectory) <> "" Then

MsgBox "La cartella 'CartDB_Indicatori' " & vbCrLf & "è già presente nel percorso 'C:\Program Files\CartDB_Indicatori'"

Else
MkDir "C:\Program Files\CartDB_Indicatori"
MsgBox "E' stata creata la cartella 'CartDB_Indicatori' " & vbCrLf & "percorso 'C:\Program Files\CartDB_Indicatori'"

col = System.Environment.GetFolderPath(Environment.Speci alFolder.Desktop)
sPath = "C:\Program Files\CartDB_Indicatori" 'cartella di salvataggio
oShell = CreateObject("WScript.Shell")
oShellLink = oShell.CreateShortcut(coll & "CartDB_Indicatori.lnk") 'percorso e nome link

oShellLink.TargetPath = "C:\Program Files\CartDB_Indicatori" 'percorso del file originale
oShellLink.WorkingDirectory = sPath
oShellLink.Save

End If
CreacartellaDB_Exit:
Exit Sub

CreacartellaDB_Err:
MsgBox Error$
Resume CreacartellaDB_Exit
End Sub

La parte della creazione della cartella funziona bene ma non riesco a sistemare la parte di codice per la creazione del link.
Per favore mi potreste aiutare?
Grazie !