China DOS Union

As the title says.

In similar programs, the disk type is obtained by traversing all drives:

For Each disk In disks
……
Next

My question is:
How can I directly get the disk type?
If current drive type<>1 （if ... then statement） [This is what I'm asking about]
display "The current drive X:\ is not a removable drive; please run this program from a removable drive"
exit the program
end the judgment （End If）

Function ShowDriveType(objdrive)

   Dim fso, d, t, s

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set d = fso.GetDrive(objdrive)

   Select Case d.DriveType

      Case 0: t = "Unknown"

      Case 1: t = "Removable"

      Case 2: t = "Fixed"

      Case 3: t = "Network"

      Case 4: t = "CD-ROM"

      Case 5: t = "RAM Disk"

   End Select

   s = "Drive: " & d.DriveLetter & "(" & d.VolumeName & ");  Type: " & t

   Wscript.Echo s

End Function



Set fso = CreateObject("Scripting.FileSystemObject")

Set objdrives=fso.Drives

For Each objdrive In objdrives

ShowDriveType(objdrive)

Next 

As for your question:

Dim drvName, drv

Set fso = CreateObject("Scripting.FileSystemObject")

drvName = left(Wscript.ScriptFullName, 1)

Set drv = fso.GetDrive(drvName)



If drv.DriveType <> 1 Then

msgbox "The current drive " & Ucase(drvName) & ":\ is not a removable drive; please run this program from a removable drive", 16, "Warning"

Wscript.Quit

End If



msgbox "Below are some commands based on the removable disk " & Ucase(drvName) & ":\ .", 64, "Done"

[ Last edited by qinchun36 on 2009-9-1 at 23:29