| 以文本方式查看主題 - 曙海教育集團(tuán)論壇 (http://m.scarborough.cn/bbs/index.asp) -- VB語(yǔ)言 (http://m.scarborough.cn/bbs/list.asp?boardid=77) ---- VB中獲取邏輯磁盤(pán)的信息 (http://m.scarborough.cn/bbs/dispbbs.asp?boardid=77&id=2591) |
| -- 作者：wangxinxin -- 發(fā)布時(shí)間：2010-12-14 12:15:38 -- VB中獲取邏輯磁盤(pán)的信息 List1.AddItem "剩余字節(jié)數(shù): " & Format(FreeBytes, "#,0") If SysFlags And FS_CASE_IS_PRESERVED Then List1.AddItem "文件名的大小寫(xiě)記錄于文件系統(tǒng)" End If If SysFlags And FS_CASE_SENSITIVE Then List1.AddItem "文件名要區(qū)分大小寫(xiě)" 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)支持文件的訪問(wèn) 控制列表（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 "整個(gè)磁盤(pán)卷都是壓縮的" End If End If End Sub Private Sub Form_Load() Call Drive1_Change End Sub 運(yùn)行后，選擇驅(qū)動(dòng)器列表框中的不同驅(qū)動(dòng)器，列表框中就會(huì)顯示出該驅(qū)動(dòng)器的相應(yīng)信息。以上程序在VB5.0、VB6.0及WINDOWS 98中運(yùn)行通過(guò)。 |