a天堂国产 I 久久图片 I 91精品高清 I 亚洲人人玩人人添人人 I 婷婷伊人五月色噜噜精品一区 I 亚洲第一页夜 I 91日韩精品视频 I 无码人妻在线一区二区三区免费 I www.五月婷婷.com I 国产精品久久久久亚洲影视 I 91久久精品一二三 I 国产ts一区 I 91精品乱码久久蜜桃 I 成人免费观看高清 I 久久久久久国产精品免费无码 I 久久免费少妇高潮99精品 I 国产探花在线免费观看 I 亚洲精品少妇 I 亚洲综合成人亚洲 I 欧美区一区二区 I 手机福利视频 I 亚洲欧美综合另类自拍 I 久久精品视频免费播放 I 亚洲精品久久 I av免费在线免费观看 I 亚洲热综合 I 中文字幕无码专区人妻制服 I 午夜免费一区二区 I 在线亚洲精品国产一区麻豆 I 久久精品免费在线观看 I 全国最大成人网 I 亚洲欧美经典视频 I 手机av在线看 I 偷拍视频一区二区三区 I 吃奶摸下激烈视频学生软件

以文本方式查看主題

-  曙海教育集團論壇  (http://m.022-oo.cn/bbs/index.asp)
--  VB語言  (http://m.022-oo.cn/bbs/list.asp?boardid=77)
----  VB中獲取邏輯磁盤的信息  (http://m.022-oo.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中運行通過。