Hvordan få tak i bruker navn?

[Hayer]

Hei!

Har lyst til å lage et program som åpner mottate msn filer, men har problemer med å få tak i brukernavn når d gjelder

"C:\Documents and Settings\brukernacn\My Documents\My Received Files\filnavn.*.*"

 

Så hvordan får jeg tak i dette?

[tZar]

For VB.net så kan du kikke på My.Computer.FileSystem.SpecialDirectories objektet.

For vanlig VB, se: http://www.vbcity.com/forums/topic.asp?tid=102871

 

Det må jo være enklere å få hele mappa, i stedet for bare brukernavnet. Da slipper du å tenke på foskjell i forskjellige lands utgaver av Windows og hvilken stasjon mappen er lagret på

Endret 4. oktober 2006 av tZar

[deaktivert443556]

Og skal du bare ha en funksjon for å hente ut brukernavnet, da kan du bruke følgende

 

Private Declare Function GetUserName& Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long)
Public Function BrukerNavn() As String
Dim szBuffer As String * 100
Dim lBufferLen As Long
lBufferLen = 100
If CBool(GetUserName(szBuffer, lBufferLen)) Then
BrukerNavn = Left$(szBuffer, lBufferLen - 1)
Else
BrukerNavn = CStr(Empty)
End If
End Function