Réponse acceptée !
Salut
euhh.. lol?
ta reponse est dans ta question :
Dim Chemin_Bureau as string
Chemin_Bureau = (Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))
si tu veux le nom de lutilisateur :
Dim buffer as string
Dim i as long
for i = 26 to len(Chemin_Bureau)
if mid(chemin_bureau,i,1) <> "\" and mid(chemin_bureau,i,1)<>"/"
buffer = buffer & mid(chemin_bureau,i,1)
else
goto suite
end if
next
suite:
voila ^^
Si l'informatique été de l'alcool il y aurait des genies partout