Funktion mit freiem HD-Platz als Rückgabewert

Computer: Software & Programmierung Office Software
1

Hallo VBA-Profis,

wie müßte eine Funktion aussehen, der ich einen Laufwerks-Pfad übergeben kann und die mir die dortige Kapazität bzw. freien Speicherplatz zurückgibt?

Vielen Dank für Eure Hilfe
-R o b.

2

wie müßte eine Funktion aussehen, der ich einen Laufwerks-Pfad
übergeben kann und die mir die dortige Kapazität bzw. freien
Speicherplatz zurückgibt?

Hi Rob,
ungetestet aus dem Inet gefischt:

Sub Testen()
Dim FS As Object
Set FS = CreateObject(„Scripting.FileSystemObject“)
MsgBox FS.GetDrive(„C:“).FreeSpace
End Sub

Gruß
Reinhard

3

Klappt, danke. Zwei Fragen noch…
Salu Reinhard,

ungetestet aus dem Inet gefischt:

Sub Testen()
Dim FS As Object
Set FS = CreateObject(„Scripting.FileSystemObject“)
MsgBox FS.GetDrive(„C:“).FreeSpace
End Sub

Supi! Vielen Dank. Als Funktion mache ich daraus:

Function FreeSpaceC() As Double
Dim FS As Object
 Set FS = CreateObject("Scripting.FileSystemObject")
 FreeSpaceC FS.GetDrive("C:").FreeSpace
End Function

Klappt das auch mit Pfadangaben auf limitierte Ordner? (ich komme erst übermorgen zum vollständigen Test mit Netzwerklaufwerken)

Hast Du auch die Methode für die Gesamtkapazität eines Ordners/Laufwerks?

Vielen Dank vom :o)
-R o b.

4

Hi Rob,

Function FreeSpaceC() As Double
Dim FS As Object
Set FS = CreateObject(„Scripting.FileSystemObject“)
FreeSpaceC FS.GetDrive(„C:“).FreeSpace
End Function

Klappt das auch mit Pfadangaben auf limitierte Ordner? (ich
komme erst übermorgen zum vollständigen Test mit
Netzwerklaufwerken)

Ich habe kein Netzwerk und weiß nicht was limitierte Ordner sind, sind das die wo du keine Leserechte hast?

Hast Du auch die Methode für die Gesamtkapazität eines
Ordners/Laufwerks?

Anscheinend geht das mit .Size

http://groups.google.de/group/microsoft.public.de.ge…

Gruß
Reinhard

Vielen Dank vom :o)
-R o b.