vbs判断磁盘类型和检测硬盘剩余空间的实现代码（vb获取文件夹大小）一看就会

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

这篇文章介绍了两段VBA代码，用于展示文件系统驱动器类型和可用空间。第一段代码定义了`ShowDriveType`函数，用于根据指定路径返回驱动器的类型（如移动硬盘、固定磁盘、网络硬盘等）。第二段代码定义了`ShowFreeSpace`函数，用于根据指定路径返回驱动器的可用空间信息。文章还展示了如何调用这两个函数，并在消息框中显示结果。整体内容突出展示了如何通过脚本操作文件系统，适用于磁盘管理或故障排查场景。

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