VB语言-回复帖子[曙海教育集团论坛]项目外包开发咨询

曙海教育集团论坛 → 开发语言培训专区 → VB语言 → 回复帖子

回复帖子

用户名：

*您没有注册？

密码：

*忘记论坛密码？标题采用“回复：XXX....”

主题标题：

*不得超过 200 个汉字

当前心情

将放在帖子的前面

部分图片由QQ授权提供

发帖表情

内容

高级设置：

签名：不显示显示匿名回帖通知：不通知邮件通知短信通知邮件和短信通知

主题新回顾(发布时间：2010-12-14 12:15:38)
-- 作者：wangxinxin -- 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中运行通过。

主题新回顾(发布时间：2010-12-14 12:15:38)

--  作者：wangxinxin
--  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中运行通过。
　　