Function tran(Driver)
Select Case Driver
Case 0: tran="設備無法識別"
Case 1: tran="軟盤驅動器"
Case 2: tran="硬盤驅動器"
Case 3: tran="網絡硬盤驅動器"
Case 4: tran="光盤驅動器"
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?? "型號"&tran(drv.DriveType)
WSCRIPT.ECHO?? "卷標"&drv.VolumeName
WSCRIPT.ECHO?? "總計大小"&FormatNumber(drv.TotalSize / 1024, 0)&"kb"
WSCRIPT.ECHO?? "可用空間"&FormatNumber(drv.Availablespace / 1024, 0)&"kb"
WSCRIPT.ECHO?? "文件系統"&drv.FileSystem
WSCRIPT.ECHO?? "序列號"&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

轉載于:https://blog.51cto.com/foxhack/32847

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。