Web Robot View of http://authors.aspalliance.com/brettb/ASP.NET.DrivesCollection.aspx

% 'Script to display a list of drives attached to this machine and also to check if a disk drive is ready Dim FileSystemObject Dim Drives Dim DiskDrive Dim DriveLetter Dim DriveType FileSystemObject = Server.CreateObject( Scripting.FileSystemObject ) Drives = FileSystemObject.Drives For Each DiskDrive in Drives DriveLetter = DiskDrive.DriveLetter DriveType = DiskDrive.DriveType Select Case DriveType Case 0 DriveType = Unknown type of drive Case 1 DriveType = Removable drive Case 2 DriveType = Fixed drive Case 3 DriveType = Network drive Case 4 DriveType = CD-ROM drive Case 5 DriveType = RAM Disk End Select Response.Write( Drive DriveLetter is a DriveType ) 'If the drive is ready, display a blue piece of text. 'If the drive is not ready, display a red piece of text. If DiskDrive.IsReady then Response.Write( FONT COLOR=#0000FF This drive is ready for use /FONT ) Else Response.Write( FONT COLOR=#FF0000 This drive is not ready for use /FONT ) End If Response.Write( BR ) Next Drives = nothing FileSystemObject = nothing %

% @Page Language= VB Debug= true % % @Import Namespace= System % % @Import Namespace= System.IO % % @Import Namespace= System.Management % script language= VB runat= server Sub Page_Load(obj as object, e as eventargs) 'Initialise variables Dim sSystemDrives as String() Dim intNumberOfDrives as Integer Dim sDrive 'Retrieve a list of drives attached to the system sSystemDrives = Directory.GetLogicalDrives() 'Iterate through the list of drives For Each sDrive In sSystemDrives 'Drive names are in the format such as A:\, so remove the 'backslash from the drive name sDrive = Replace(sDrive, \ , ) 'Display the drive type (drive type is returned by the 'GetDriveType function Response.Write( Drive sDrive is a _ GetDriveType(sDrive) br ) Next End Sub 'This function uses Windows Management Instrumentation (WMI) 'to return the type of the specified drive 'DriveLetter = Disk drive letter, in a format such as A: 'Returns a string containing the type of drive Function GetDriveType(DriveLetter As String) As String Dim sDriveType As String Dim sDriveDescription as String On Error Resume Next Dim disk As New ManagementObject( win32_logicaldisk.deviceid= _ DriveLetter ) disk.Get() sDriveType = disk( DriveType ).ToString() 'Determine the drive type Select Case sDriveType Case 0 sDriveDescription = Unknown Case 1 sDriveDescription = No Root Directory Case 2 sDriveDescription = Removable Disk Case 3 sDriveDescription = Local Disk Case 4 sDriveDescription = Network Drive Case 5 sDriveDescription = Compact Disc Case 6 sDriveDescription = RAM Disk Case Else sDriveDescription = Unknown End Select disk = nothing GetDriveType = sDriveDescription End Function /script

authentication mode= Windows /authentication identity impersonate= true /identity

% @Page Language= VB Debug= true % % @Import Namespace= System % % @Import Namespace= System.IO % % @Import Namespace= System.Management % script language= VB runat= server Sub Page_Load(obj as object, e as eventargs) On Error Resume Next 'This script uses Windows Management Instrumentation (WMI) 'to return a list of properties for the a specified drive 'attached to the server. Dim sDriveLetter As String Dim DiskProperties As PropertyDataCollection Dim DiskProperty 'Drive letter for which to show drive properties sDriveLetter = C: Dim disk As New ManagementObject( win32_logicaldisk.deviceid= _ sDriveLetter ) disk.Get() Response.write( H2 Properties of Drive sDriveLetter /H2 ) 'Retrieve the disk's properties DiskProperties = disk.Properties 'Iterate through the disk's properties For Each DiskProperty In DiskProperties 'Check whether the particular property is defined for this drive If IsDBNull(DiskProperty.Value.ToString()) Then Response.Write( FONT COLOR= blue DiskProperty.Name _ /FONT = lt;not defined gt; BR ) Else Response.Write( FONT COLOR= blue DiskProperty.Name _ /FONT = FONT COLOR= red _ DiskProperty.Value.ToString() /FONT BR ) End If Next disk = nothing End Sub /script

Author details Brett Burridge spent two years working in the University of Essex Computing Service, before moving to The Internet Applications Group in the Autumn of 1999, where he developed e-Business applications for a range of corporate clients and dot-com start ups. Brett is presently employed as an Internet developer and technical writer through his own company, Winnersh Triangle Web Solutions Limited . The company produces a number of innovative products, including the popular ASP Documentation Tool and the recently released Index Server Companion and ASP.NET Documentation Tool . The company is also available for web application development at reasonable rates, primarily using Microsoft technologies (ASP, Visual Basic, SQL Server) but also using open source technologies such as PHP, MySQL and Perl. Specialist services include development of search solutions using Microsoft's Index Server and Site Server 3.0 Search. As well as the ASPAlliance, Brett has written articles for Ariadne.ac.uk and ASPToday .

Join IT Banner Exchange.com