[VB6] Creare una cartella sul desktop

[Brainjar]

Se non sai l'utente lo ricavi tramite la GetUserName

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


     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String
     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

Per gli altri sistemi Windows, crea una cartella manualmente, sul
desktop. vai nelle proprietà della cartella (click tasto destro del
mouse) e vedi qual'è il percorso. Quest'ultimo lo sostituisci a
C:\Documents and Settings\ .........

Ciao,