他趴在我两腿中间吸我视频_久久综合色之久久综合_久久久久无码精品国产_欧美丰满大乳高跟鞋_国产精品伦一区二区三级视频_综合色就爱涩涩涩综合婷婷_国产人妻人伦精品熟女_人人妻人人澡人人爽久久AV_欧洲美女与动zooz_国产免费午夜A无码V视频

以文本方式查看主題

-  曙海教育集團(tuán)論壇  (http://www.mikehunterok.com/bbs/index.asp)
--  VB語言  (http://www.mikehunterok.com/bbs/list.asp?boardid=77)
----  VB中獲取邏輯磁盤的信息  (http://www.mikehunterok.com/bbs/dispbbs.asp?boardid=77&id=2591)
--  作者：wangxinxin
--  發(fā)布時間：2010-12-14 12:15:38
--  VB中獲取邏輯磁盤的信息

        List1.AddItem "剩余字節(jié)數(shù): "
& Format(FreeBytes, "#,0")
If SysFlags And FS_CASE_IS_PRESERVED Then
List1.AddItem "文件名的大小寫記錄于文件系統(tǒng)"
        End If
        If SysFlags And FS_CASE_SENSITIVE Then
            List1.AddItem "文件名要區(qū)分大小寫"
        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 "文件系統(tǒng)支持文件的訪問
      控制列表（ACL）安全機(jī)制"
        End If
        If SysFlags And FS_FILE_COMPRESSION Then
      List1.AddItem "文件系統(tǒng)支持逐文件地進(jìn)行文件壓縮"
        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

　　運行后，選擇驅(qū)動器列表框中的不同驅(qū)動器，列表框中就會顯示出該驅(qū)動器的相應(yīng)信息。以上程序在VB5.0、VB6.0及WINDOWS 98中運行通過。