API Getusername et string -_-Résolu

Question

Bonjour j'vous montre mon problème qui est incompréhensible pour ma part -_-

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim username_len As Long
Dim username As String
Dim music_path As String
username = Space(255)
username_len = Len(username)
GetUserName username, username_len
music_path = "C:\Documents And Settings" & username & "\Mes Documents\Ma Musique"

Le problème c'est que la variable music_path ne contient que "C:\Documents And Settings\le_nom_d'utilisateur"

Quoi que je rajoute après ça ne marche pas -____-"

cs_casy · Accepted Answer

La chaine de caractère retournée par GetUserName est de type NullTerminated (elle est terminée par un caractère Null)

Tu dois donc prendre tous les caractères avant le caractère Null.
La longueur que retourne GetUserName, est justement la longueur de la chaine, caractère Null compris, donc : 

GetUserName username, username_len
username = Left$(username,username_len-1)
music_path = "C:\Documents And Settings" & username & "\Mes Documents\Ma Musique"

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

KokoJacK · Answer

Merci ^^ C'est un peu con les api des fois ^^

cs_casy · Answer

C'est VB qui est mal foutu.

Les chaines de caractères sont toujours terminées par un caractère Null qui indique justement la fin de la chaine. La plupart des langages gèrent cela correctement. Si tu travaille en C, tu te pose même pas la question, tu es habitué à ce type de chaine.

VB fonctionne pareil en interne mais pas au niveau de l'utilisateur (développeur). Ce qui fait que si tu laisse traine un caractère Null dans une chaine, cela sera considéré comme la fin de la chaine en interne dans les fonctions de VB
Toutes les chaines venant du système via les API sont normalement systématiquement terninées par un caractère Null

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

KokoJacK · Answer

Ok ! Merci de l'info :)

PCPT · Answer

salut,
attention : "Mes Documents" n'existe pas forcément....
autre OS que XP, version non FR, chemin perso, etc....

il y a d'autres moyens pour avoir le VRAI chemin !
++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

API Getusername et string -_-

5 réponses

Votre réponse