Private 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 x As Long
Dim from, nome As String

from = "C:\Documents and Settings\Administrator\Documenti\Downloads\video.a vi"
nome = "FILM"

x = fCreateShellLink("C:\Collegamenti\", nome, from, "")


Questo è il codice modificato come servirebbe a me ma così non lo crea il collegamento se mentre sostituisco il primo valore di ingresso, cioè dove crea il collegamento con "..\..\Desktop", il collegamento viene creato.