vbs判斷磁盤類型和檢測硬盤剩余空間的實(shí)現(xiàn)代碼
更新時(shí)間：2016年10月11日 22:44:29 投稿：mdxy-dxy
這篇文章主要介紹了vbs判斷磁盤類型和檢測硬盤剩余空間的實(shí)現(xiàn)代碼,需要的朋友可以參考下
核心代碼：
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
相關(guān)文章
這篇文章主要介紹了對一個(gè)vbs腳本病毒的病毒原理分析的相關(guān)資料,非常不錯(cuò)，具有參考借鑒價(jià)值，需要的朋友可以參考下2016-09-09
VBS教程：方法-GetAbsolutePathName 方法
VBS教程：方法-GetAbsolutePathName 方法...2006-11-11
VBS教程：屬性-ShareName 屬性...2006-11-11
用vbscript得到注冊表中是否存在某個(gè)值...2007-04-04
VBS實(shí)現(xiàn)GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具
VBS寫的GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具,轉(zhuǎn)換工具下載:GB2Ue.vbs (3.34 kb)2010-06-06
VBS教程：函數(shù)-DateAdd 函數(shù)...2006-11-11
VBScript:Join 函數(shù)一個(gè)不太常用，卻很有用的函數(shù)
VBScript:Join 函數(shù)一個(gè)不太常用，卻很有用的函數(shù)...2007-05-05
MSScriptControl.ScriptControl組件屬性、方法、事件介紹
這篇文章主要介紹了MSScriptControl.ScriptControl組件屬性、方法、事件介紹,需要的朋友可以參考下2014-08-08
VBS教程：函數(shù)-Date 函數(shù)...2006-11-11
VBS實(shí)現(xiàn)工作表按指定表頭自動(dòng)分表
下面的VBS腳本就是實(shí)現(xiàn)的工作表按指定表頭（由用戶選擇）自動(dòng)分表功能。需要的朋友只要將要操作的工作表拖放到腳本文件上即可輕松實(shí)現(xiàn)工作表分表2013-01-01