Jump to content

drive detect


bird42
 Share

Recommended Posts

From G. Born's press

; Drive type constants
Const Global Unknown = 0
Const Global Removable = 1      ; Removable medium
Const Global Fixed = 2          ; Fixed medium (hard disk)
Const Global Remote = 3             ;Network drive
Const Global CDROM = 4          ; CD-ROM
Const Global RAMDisk = 5                ; RAM disk

Dim $fso, $oDrive, $Drive

$fso = ObjGet("Scripting.FileSystemObject")
$oDrive = $fso.Drives

For $Drive In $oDrive
     Switch $Drive.DriveType

          Case Unknown
                    .....

          Case Fixed
                    .....
     EndSwitch
Next

;... by G. Born
Edited by Authenticity
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...