Gruppe
Datei
Problem
Der freie Speicherplatz eines abzufragenden Laufwerks ist zu ermitteln.
StandardModule: Modul1
Sub Festplatte()
Dim var As Variant
Dim sLW As String, sSpace As String, sFile As String
sLW = InputBox("Laufwerk:", , "c")
If sLW = "" Then Exit Sub
sLW = Left(sLW, 1)
sFile = sLW & ":\dirliste.txt"
var = Shell("command.com /c dir *.xls >" & sFile, vbHide)
Application.Wait Now + TimeSerial(0, 0, 1)
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sSpace
Loop
Close
sSpace = Trim(sSpace)
sSpace = Right(sSpace, Len(sSpace) - InStr(sSpace, " "))
sSpace = Trim(sSpace)
sSpace = Left(sSpace, InStr(sSpace, " ") - 1)
MsgBox "Freie MB auf Laufwerk " & sLW & ":" & vbLf & sSpace
Kill sFile
End Sub