Code:
Private Sub GetSteamUser()
SteamUserDirectory = SteamDirectory & "\SteamApps"
Dim SteamVerzeichnisse As String() = Directory.GetDirectories(SteamUserDirectory)
Dim SteamBenutzerNamen(Directory.GetDirectories(SteamUserDirectory).Count) As String
Dim SteamUsername As String
Dim SteamUserAnzahl As Short = 0
For Each SteamUsername In SteamVerzeichnisse
If SteamUsername = SteamUserDirectory & "\SourceMods" Or SteamUsername = SteamUserDirectory & "\common" Or SteamUsername = SteamUserDirectory & "\media" Then
Else
SteamBenutzerNamen(SteamUserAnzahl) = SteamUsername
SteamBenutzerNamen(SteamUserAnzahl) = SteamBenutzerNamen(SteamUserAnzahl).Replace(SteamUserDirectory & "\", "")
'In SteamBenutzerNamenString werden nun alle User mit Komma abgetrennt gespeichert.
SteamBenutzerNamenString &= SteamBenutzerNamen(SteamUserAnzahl) & " , "
SteamUserAnzahl += 1
End If
Next
End Sub
Beschreibung:
SteamUserAnzahl wird gebraucht um die Position des Steamusers im Array zu bestimmen (also 1,2,...).
Mit if wird abgefragt, ob der Ordner common, media oder SourceMods heißt, wenn ja, dann passiert nichts, anderfalls wird der Steamuser in dem Array
SteamBenutzerNamen an der Position
SteamUserAnzahl abgespeichert.