asphelper.de - VBScript - Drives

Link: Wichtiger Hinweis in eigener Sache!


Zurück zur Referenz-Startseite


VBScript-Referenz - Drives





Einführung
Auflistung der verfügbaren Laufwerke



Syntax
FileSystemObject.Drives



1   
2
3
4
5
6
7
8
9
10
11
Dim fso, Drives, Drive
Set fso = CreateObject("Scripting.FileSystemObject")
Set Drives = fso.Drives
For Each Drive in Drives
    If Drive.DriveType = 2 then
        Response.Write("<br>" & Drive.DriveLetter & " - ")
        Response.Write(Drive.VolumeName)
    end if
Next
Set Drives = nothing
Set fso = nothing

In Zeile 5 wird ein Laufwerkstyp überprüft, die möglichen Numerischen Werte können Sie bei DriveType nachlesen.

top top
© Copyright By Klaus Keller, 2001-2008 - Alle Rechte vorbehalten.