Folgendes Makro soll mir den Verbrauchten Speicher aus Festplatte E:\ auslesen und in einer Textbox 2(nicht in MsgBox) in der Userform1 anzeigen.
Geht das Überhaupt?
Sub Freiser_Speicher()
Dim FSO As Object, LW As Object
Set FSO = CreateObject("Scripting.filesystemobject")
Set LW = FSO.drives("E:")
MsgBox "Freier Speicherplatz auf " & LW.driveletter & Chr(13) & _
Round(LW.availablespace / 1024 / 1024 / 1024, 1) & " TB"
End Sub
Public Sub Test()
MsgBox Free_Space("E:") & " TB"
End Sub