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