Beispiel aus der MSDNLib:
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & d.VolumeName & "<BR>"
s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0)
s = s & " Kbytes"
ShowFreeSpace = s
End Function
Response.write showFreeSpace(server.mappath("."))
Claudius
> -----Original Message-----
> From: Alexander Bohle [mailto:[EMAIL PROTECTED]]
> Sent: Dienstag, 20. November 2001 13:33
> To: ActiveServerPages German
> Subject: [aspgerman] Freien Speicherplatz ermitteln
>
>
> hallo Liste,
> ich versuche gerade den freien speicherplatz von dem
> aktuellen laufwerk(wo
> application-root ist)
> zu ermitteln.
>
> Dabei bekomme ich immer folgende Fehlermeldung:
>
>
> Laufzeitfehler in Microsoft VBScript- Fehler '800a0005'
>
> Ung�ltiger Prozeduraufruf oder ung�ltiges Argument
>
> /inc/file_handler.asp, line 57
>
>
> line 57 entspricht : 'set o_cur_drive = o_drive.item(sz_drive_name)'
>
> Hier die Funktion:
>
> <%
> function available_drivespace()
>
> set o_file_sys =
> server.createobject("Scripting.FilesystemObject")
> set o_drive = o_file_sys.drives
> sz_drive_name =
> mid(o_file_sys.getdrivename(server.mappath("/default.asp")),1,1)
> set o_cur_drive = o_drive.item(sz_drive_name)
> i_space = o_cur_drive.freespace
>
> set o_file_sys = nothing
> set o_drive = nothing
> set o_cur_drive = nothing
>
> available_drivespace = i_space
>
> end function
>
> i_free_space = available_drivespace()
> %>
>
> Als 'sz_drive_name' kommt bei mir 'C' zur�ck.
> Wenn ich nun 'C' einfach in 'set o_cur_drive =
> o_drive.item("C")' eintrage,
> funktioniert die ganze Sache tadellos.
>
> Weiss jemand vielleich warum das Probleme macht wenn ich den
> laufwerksbuchstaben in einer variablen speichere.
>
> Oder habe ich irgentwas �bersehen.
>
> Freue mich �ber jede Antwort.
>
>
> Alex
>
>
>
>
>
> | [aspgerman] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
>
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
