[vb6] Creare collegamento a file

[gprox]

Ciao a tutti e buona pasqua , ora passiamo a cose serie cercando sulla rete ho trovato vari modi per fare un collegamento, ma il collegamento lo fà o su desktop o su start->programmi->menu avvio,..
Io avrei bisogno di fare un collegamento di un file video dentro una cartella in C:\ del tipo C:\mio collegamento\, qualche idea per farlo ?

[oregon]

Non ho capito ... quale codice hai trovato?

[gprox]

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.

[oregon]

Crealo sul Desktop e poi copia il file dove vuoi con la FileCopy ed elimina l'originale con la Kill.

[gprox]

Ci avevo pensato ma come faccio a copiare il file dal desktop ? cioè dovrei mettere copy C:\documenti and setting\.. e bla bla cioè dovrei sapere nome dell'account, non c'è una parola chiave tipo app.patch che mi porta direttamente sul desktop ?

[oregon]

Il Desktop lo puoi ricavare con

dt = Environ$("USERPROFILE") & "\Desktop"