freien Speicher von Laufwer A ermitteln
18.01.2005 14:19:25
Laufwer
das Makro unten (von der Herber-CD) soll den freien Speicherplatz eines Laufwerks ermitteln.
Das klappt bei mir aber nicht. In der Datei dirliste.txt steht als Pfadangabe immer der Pfad
den ich unter Extras-Optionen-Allgemein als Standardarbeitsordner eingestellt habe (E:\Excel).
Es soll aber der freie Speicherplatz von LW A ermittelt werden.
Was muß ich ändern damit das geht?
Win 98 Office 2000
besten Dank
Alfons
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