Wollte in einer Userform die Daten eines Laufwerkes auslesen.
Es klappt auch, leider nur der freie Speicher., leider nicht SerialNumber und totalsize.
Seit Tagen mache ich daran herum und bekomme es nicht gebacken.
Wenn mir jemand helfen könnte, wäre ich sehr dankbar!
Sub prüfen()
Dim fs As Object
Dim DrvPath
Dim d, s, f, g
Dim testdrive As String
Dim Lw As String
Lw = UserForm1.ComboBox2.Value & ":"
testdrive = Lw
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.DriveExists(testdrive) Then
DrvPath = Lw
Set d = fs.GetDrive(fs.GetDriveName(DrvPath))
'Set f = fs.GetDrive(fs.GetDriveName(totalsize)) ' geht nicht
'Set g = fs.GetDrive(fs.GetDriveLetter(SerialNumber)) 'geht nicht
s = FormatNumber(d.FreeSpace / 1024 / 1024 / 1024, 2)
UserForm1.TextBox24.Value = s & " GB"
UserForm1.TextBox35.Value = f
UserForm1.TextBox36.Value = g
Else
UserForm1.Label31.Visible = True
End If
End Sub