Attribute VB_Name
=
"
ModuleDiskInfo
"
Option
Explicit
'Powered by barenx
Private
Const
DRIVE_CDROM
=
5
Private
Const
DRIVE_FIXED
=
3
Private
Const
DRIVE_RAMDISK
=
6
Private
Const
DRIVE_REMOTE
=
4
Private
Const
DRIVE_REMOVABLE
=
2

Private
Declare
Function GetLogicalDriveStrings()
Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As

该博客展示了如何使用VB获取所有逻辑磁盘信息,包括磁盘类型、大小等。通过调用kernel32库的函数,如GetLogicalDriveStrings、GetDriveType和GetDiskFreeSpaceEx,实现对磁盘的详细信息查询。示例代码中定义了DiskInfomation类型,并提供了GetDriveStrings、GetDiskSpace和GetDiskInfo等辅助函数。
最低0.47元/天 解锁文章
192

被折叠的 条评论
为什么被折叠?



