Quick References
      ADO
      ASP
      CSS2
      HTML
      JavaScript
      Jet SQL
      VBScript
      WML
      WMLScript
      WSH
      XHTML
      XML DOM
      XSLT

Features
      Knowledge Base
      Tutorials

Partners
     ZVON.ORG
     XML
     Planet Source Code
     VisualBuilder
     Web Design
     Your HTML Source
     XML/XSLT Forums
     ASPAlliance
     Scripts
     
     Programmers Heaven
     Tek-Tips Forums
     Developer Fusion
     Code Project











OBJECT:  Drives Collection

Implemented in version 3.0
 
The Drives collection is the collection of all the disk drives available on the system. This collection is obtained through the Drives property of the FileSystemObject object.

The following code gets the Drives collection, creates a list of available drives and displays the results in the browser.

Code:
<%
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
%>


Output:
"Drives available on this system are A, C, D, E, "

PROPERTIES

Count Property
Returns an integer that tells us how many Drive objects there are in the collection (the number of local and remote drives available).

Syntax: object.Count

Item Property
The Item property allows us to retreive the value of an item in the collection designated by the specified key argument and also to set that value by using itemvalue.

Syntax: object.Item(key) [ = itemvalue]
 


 


Copyright 1999-2005 by Infinite Software Solutions, Inc. All rights reserved.
Trademark Information