Ich habe ein Makro das mir von meiner Festplatte den freien Speicher in TB ausliest und in TextBox3 hinein schreibt.
Freier Speicher 1,864 TB
Frage: Wie bringe ich den Vba Code dazu das er mir die letzte Stellen weglässt.
Sollte dann so aussehen Freier Speicher 1,86 TB
'Aus Laufwerk E: Freien_Speicher Platz in TextBox3 schreiben
Function Freier_Speicher(sDrive As String)
Dim FSO As Object, LW As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.DriveExists(sDrive) Then
Set LW = FSO.drives(sDrive & ":")
Freier_Speicher = Round(LW.availablespace / 1024 / 1024 / 1024, 1)
Exit Function
End If
Freier_Speicher = ""
Set FSO = Nothing
End Function