Visual Basic Forum

Cypher_0 · Newbie Anmeldedatum: 12.08.2008 Beiträge: 12

Hallo Community,

es handelt sich um folgenden Code:
Visual Basic: [code]Private Sub Command1_Click()
Me.AutoRedraw = True
Dim fso As New FileSystemObject
Dim s As Long
Dim oDrive
Set oDrive = fso.GetDrive("C")
s = oDrive.AvailableSpace
s = s / 1024
Me.Print Format$(oDrive.AvailableSpace / 1024 / 1024, "0,00") & " MB verfügbar auf " & oDrive.DriveLetter & ":"
Me.Print oDrive.DriveLetter & ": ist insgesamt " & Format$(oDrive.TotalSize / 1024 / 1024, "0,00") & " MB groß."

End Sub
[/code]

Die Größenangaben hauen zwar soweit hin, aber wie schaffe ich jetzt, dass noch die ersten zwei Stellen nach dem Komma angezeigt werden? Hab schon diverse Format$ - Einstellungen probiert.

Ok hat sich erledigt. Format$(oDrive.AvailableSize, "#.##") brachte die Lösung. Aber inwiefern macht der Punkt (statt Komma) den Unterschied?

nicok · Poster Anmeldedatum: 15.05.2008 Beiträge: 161

"Die Größenangaben hauen zwar soweit hin, aber wie schaffe ich jetzt, dass noch die ersten zwei Stellen nach dem Komma angezeigt werden? "

Is zwar bisschen spät aber müsste so gehn:

Msgbox Left(DeinString, Instr(DeinString, ",") + 2)

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Das Komma ist für die Tausendertrennung und der Punkt stellt das Komma dar.
Ist im englischen so.

Btw. müßte die tausendertrennung plus Komma so funktionieren.

"#,0.00"

Die Nullen damit wenigstens etwas angezeigt wird.

Cypher_0 · Newbie Anmeldedatum: 12.08.2008 Beiträge: 12

Ok, vielen Dank für die Antworten. Smile