常量数据表

.版本 2.常量 GetDiskList, "<文本长度: 613>"

取磁盘信息代码

.版本 2.程序集 窗口程序集1.子程序 _取硬盘信息按钮_被单击硬盘信息编辑框.内容 ＝ 取硬盘列表 ().子程序 取硬盘列表, 文本型, 公开.局部变量 Script, 对象.局部变量 ret, 文本型Script.创建 (“MSScriptControl.ScriptControl”, )Script.写属性 (“Language”, “VBScript”)Script.数值方法 (“AddCode”, #GetDiskList)ret ＝ Script.通用方法 (“Eval”, “GetDiskList()”).取文本 ()返回 (ret)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接