Function tran(Driver)
Select Case Driver
Case 0: tran="設(shè)備無法識(shí)別"
Case 1: tran="軟盤驅(qū)動(dòng)器"
Case 2: tran="硬盤驅(qū)動(dòng)器"
Case 3: tran="網(wǎng)絡(luò)硬盤驅(qū)動(dòng)器"
Case 4: tran="光盤驅(qū)動(dòng)器"
Case 5: tran="RAM虛擬磁盤"
End Select
End Function
set fso=CreateObject("Scripting.FileSystemObject") For each drv in fso.Drives
?? If drv.IsReady=TRUE Then
WSCRIPT.ECHO?? "盤符"&drv.DriveLetter
WSCRIPT.ECHO?? "型號(hào)"&tran(drv.DriveType)
WSCRIPT.ECHO?? "卷標(biāo)"&drv.VolumeName
WSCRIPT.ECHO?? "總計(jì)大小"&FormatNumber(drv.TotalSize / 1024, 0)&"kb"
WSCRIPT.ECHO?? "可用空間"&FormatNumber(drv.Availablespace / 1024, 0)&"kb"
WSCRIPT.ECHO?? "文件系統(tǒng)"&drv.FileSystem
WSCRIPT.ECHO?? "序列號(hào)"&drv.SerialNumber
WSCRIPT.ECHO?? "是否就緒"&drv.IsReady
WSCRIPT.ECHO?? "路徑"&drv.Path
?? End If
??
?? If drv.IsReady=False Then
WSCRIPT.ECHO?? "盤符"&vblrlf&drv.DriveLetter&vbcrlf&tran(drv.DriveType)&vbcrlf&"是否就緒"&drv.IsReady&vbcrlf&"路徑"&drv.Path
?? End if
???
Next
set fs=nothing

轉(zhuǎn)載于:https://blog.51cto.com/foxhack/32847

總結(jié)

以上是生活随笔為你收集整理的FSO 列磁盘信息的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。