Laufwerksinfo variabel
17.12.2007 11:08:24
Patrick
wie kann ich die folgenden Code variabel machen also das man nicht im Code den Laufwerksbuchstaben angibt sondern in eine excel Zelle
'Laufwerksinfo----------
Dim fs
Dim lw
Dim LaufWerk As String
Dim free As Currency
Dim total As Currency
Set fs = CreateObject("Scripting.filesystemobject")
LaufWerk = [G22]
Set lw = fs.drives("C:") 'hier soll eine variable rein( funktioniert aber nicht wenn ich zB. _
Laufwerk reinschreibe!
With lw
free = .freespace / 1024 ^ 3
total = .totalsize / 1024 ^ 3
[C2] = "Freier Speicher: " & free & " GB"
[B2] = "Gesamter Speicher: " & total & " GB"
End With
Jemand ne idee vllt?
Verzweifel hier dran^^