[VB6] Collegamento su desktop e profilo utente

[snake88m]

ciao a tutti sto facendo un'applicazione che se l'utente preme un tasto posto su una form si deve creare automaticamente una coppia di un file posto nella cartella docuemtni sul desktop, solo che il problema è che la mia applicazione deve essere installata su dei computer che hanno più di un account e il percorso che devo seguire per creare una copia sul desktop è il seguente: "C:\Documents and Settings\NomeDell'Account\Desktop\miofile.doc", però il problema è che io non so quale sia il NomeDell'Account!!!! VVoVe:
Qualcuno sa ovviare a questo problema??

[alka]

Perchè non creare il collegamento in All Users?

[Boolean]

puoi usare una variabile d'ambiente:

Percorso = Environ$("USERPROFILE")

in Percorso troverai:

C:\Documents and Settings\[Nome dell'Account]

Boolean

[yyzyyz]

Originariamente inviato da snake88m
ciao a tutti sto facendo un'applicazione che se l'utente preme un tasto posto su una form si deve creare automaticamente una coppia di un file posto nella cartella docuemtni sul desktop, solo che il problema è che la mia applicazione deve essere installata su dei computer che hanno più di un account e il percorso che devo seguire per creare una copia sul desktop è il seguente: "C:\Documents and Settings\NomeDell'Account\Desktop\miofile.doc", però il problema è che io non so quale sia il NomeDell'Account!!!! VVoVe:
Qualcuno sa ovviare a questo problema??

potresti ricavartelo in questo modo:

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
Dim percorso As String
percorso = "C:\Documents and Settings\" & UserName
MsgBox (percorso)
End Sub

Function UserName() As String
    Dim buffer As String * 512, length As Long
    length = Len(buffer)
    If GetUserName(buffer, length) Then
       UserName = Left$(buffer, length - 1)
    End If
End Function

[xegallo]

http://forum.html.it/forum/showthrea...=%2Adesktop%2A

[snake88m]

ok grazie mille a tutti