|
| |
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
Topic : Finding Available Drives in the System
|
|
Author : Jignesh
|
Total Visits: 123
|
|
Published Date:
Tuesday, October 31, 2000
|
|
|
<%
Dim filesys, drv, drvcoll, drvlist, vol
Set filesys = CreateObject("Scripting.FileSystemObject")
Set drvcoll = filesys.Drives
For Each drv in drvcoll
drvlist = drvlist & drv.DriveLetter
If drv.IsReady Then
vol = drv.VolumeName
End If
drvlist = drvlist & vol & ", "
Next
Response.Write "Drives available on this system are " & drvlist
%> |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|