建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
vbs如何判斷磁盤類型和檢測(cè)硬盤剩余空間-創(chuàng)新互聯(lián)
這篇文章主要為大家展示了“vbs如何判斷磁盤類型和檢測(cè)硬盤剩余空間”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“vbs如何判斷磁盤類型和檢測(cè)硬盤剩余空間”這篇文章吧。
核心代碼：
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)硬盤
Case 2 t = "Fixed" '硬盤
Case 3 t = "Network" '網(wǎng)絡(luò)硬盤
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以上是“vbs如何判斷磁盤類型和檢測(cè)硬盤剩余空間”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！
文章標(biāo)題：vbs如何判斷磁盤類型和檢測(cè)硬盤剩余空間-創(chuàng)新互聯(lián)
轉(zhuǎn)載源于：http://fisionsoft.com.cn/article/pchsd.html
