Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Freien Speicherplatz eines abzufragenden Laufwerks ermitteln.

Gruppe

Speichern

Problem

Der freie Speicherplatz eines abzufragenden Laufwerks ist zu ermitteln.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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