DriveType 属性

[code]Function ShowDriveType(drvpath)    Dim fso, d, t    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(drvpath)    Select Case [b]d.DriveType[/b]        Case 0: t = "[/code]未知[code]"[/code][code]        Case 1: t = "[/code]可移动[code]"[/code][code]        Case 2: t = "[/code]固定[code]"[/code][code]        Case 3: t = "[/code]网络[code]"[/code][code]        Case 4: t = "CD-ROM"[/code][code]        Case 5: t = "RAM [/code]磁盘[code]"[/code][code]    End Select[/code][code]    ShowDriveType = "[/code]驱动器[code] " & d.DriveLetter & ": - " & t[/code][code]End Function[/code]