返回一個描述指定驅動器的類型的值。
object.DriveType
object 應為 Drive 對象的名稱。
以下代碼舉例說明如何使用 DriveType 屬性:
Function ShowDriveType(drvpath) Dim fso, d, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(drvpath) Select Case d.DriveType Case 0: t = "
未知"
Case 1: t = "
可移動"
Case 2: t = "
固定"
Case 3: t = "
網絡"
Case 4: t = "CD-ROM"
Case 5: t = "RAM
磁盤"
End Select
ShowDriveType = "
驅動器" & d.DriveLetter & ": - " & t
End Function
新聞熱點
疑難解答