核心代碼：
Function ShowDriveType(drvpath)
Dim fso, d, t
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvpath))
Select Case d.DriveType
Case 0 t = "Unknown"
Case 1 t = "Removable" '移動(dòng)硬盤(pán)
Case 2 t = "Fixed" '硬盤(pán)
Case 3 t = "Network" '網(wǎng)絡(luò)硬盤(pán)
Case 4 t = "CD-ROM"
Case 5 t = "RAM Disk" 'RAM
End Select
ShowDriveType = "Drive " d.DriveLetter ": - " t
End Function
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath)) 'd為F:
s = "Drive " UCase(drvPath) " - "
s = s d.VolumeName " "
s = s "Free Space: " FormatNumber(d.FreeSpace/1024, 0)
s = s " KBytes"
ShowFreeSpace = s
End Function
Dim message
message = ShowDriveType("F:\Programming\Applications")
MsgBox message
message = ShowFreeSpace("F:\Programming\Applications")
MsgBox message
標(biāo)簽：邢臺(tái) 鶴壁 西安 文山 四平 銅川 湖州
巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs判斷磁盤(pán)類(lèi)型和檢測(cè)硬盤(pán)剩余空間的實(shí)現(xiàn)代碼》，本文關(guān)鍵詞 vbs,判斷,磁盤(pán),類(lèi)型,和,檢測(cè),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
