文章摘要
这篇文章详细介绍了两个VBA函数及其用途。第一个函数`ShowDriveType(drvpath)`用于获取指定硬盘驱动器的类型，并通过`Scripting.FileSystemObject`获取驱动器信息，根据`d.DriveType`返回不同的类型，如未知、移动硬盘、固定硬盘、网络硬盘、CD-ROM和RAM硬盘。第二个函数`ShowFreeSpace(drvPath)`则用于获取指定驱动器的可用空间信息，并通过`Scripting.FileSystemObject`获取驱动器名称和可用空间，并以指定格式显示结果。文章还展示了如何使用这两个函数在消息框中显示驱动类型和可用空间的具体信息。
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 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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
