波多在线播放_激情深爱五月_久久欧美精品_成人超碰_国产久_www.pixiv.moe

_{<span id="bbgus"></span>}

<sub id="bbgus"><ins id="bbgus"></ins></sub>

以文本方式查看主題

-  曙海教育集團(tuán)論壇  (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
--  發(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

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