Microsoft® Visual Basic® Scripting Edition DriveType 屬性 |
語言參考 版本 3 |
返回一個(gè)描述指定驅(qū)動器的類型的值。
object.DriveTypeobject 應(yīng)為 Drive 對象的名稱。
以下代碼舉例說明如何使用 DriveType 屬性:Sub ShowDriveType(drvpath) Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(drvpath) Select Case d.DriveType Case 0: t = "未知" Case 1: t = "可移動" Case 2: t = "固定" Case 3: t = "網(wǎng)絡(luò)" Case 4: t = "CD-ROM" Case 5: t = "RAM 磁盤" End Select s = "驅(qū)動器 " & d.DriveLetter & ": - " & t MsgBox s End Sub