以文本方式查看主题 -  曙海教育集团论坛  (http://peixun0.cn/bbs/index.asp) --  VB语言  (http://peixun0.cn/bbs/list.asp?boardid=77) ----  VB中获取逻辑磁盘的信息  (http://peixun0.cn/bbs/dispbbs.asp?boardid=77&id=2591)

--  作者：wangxinxin --  发布时间：2010-12-14 12:15:38 --  VB中获取逻辑磁盘的信息         List1.AddItem "剩余字节数: " & Format(FreeBytes, "#,0") If SysFlags And FS_CASE_IS_PRESERVED Then List1.AddItem "文件名的大小写记录于文件系统"         End If         If SysFlags And FS_CASE_SENSITIVE Then             List1.AddItem "文件名要区分大小写"         End If         If SysFlags And FS_UNICODE_STORED_ ON_DISK Then             List1.AddItem "文件名保存为 Unicode 格式"         End If         If SysFlags And FS_PERSISTENT_ACLS Then             List1.AddItem "文件系统支持文件的访问       控制列表（ACL）安全机制"         End If         If SysFlags And FS_FILE_COMPRESSION Then       List1.AddItem "文件系统支持逐文件地进行文件压缩"         End If         If SysFlags And FS_VOL_IS_COMPRESSED Then             List1.AddItem "整个磁盘卷都是压缩的"         End If     End If End Sub Private Sub Form_Load()     Call Drive1_Change End Sub 　　运行后，选择驱动器列表框中的不同驱动器，列表框中就会显示出该驱动器的相应信息。以上程序在VB5.0、VB6.0及WINDOWS 98中运行通过。