以文本方式查看主题

-  曙海教育集团论坛  (http://sun4.cn/bbs/index.asp)
--  VB语言  (http://sun4.cn/bbs/list.asp?boardid=77)
----  VB中获取逻辑磁盘的信息  (http://sun4.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中运行通过。