我要评论核心代码：
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" '移动硬盘
case 2 t = "fixed" '硬盘
case 3 t = "network" '网络硬盘
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
发表评论