habe im Archiv folgendes Problem gefunden:
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
Als ich es an meinem Rechner ausprobierte erhielt ich für die unterschieblichen Laufwerke immer wieder das selbe Ergebnis.
Hab ich da was verkehrt auf meinem Rechner?
Frage vom Schmausi