常量数据表
1
2
|
.版本 2 .常量 GetDiskList, "<文本长度: 613>" |
取磁盘信息代码
1
2
3
4
5
6
7
8
9
10
11
12
|
.版本 2 .程序集 窗口程序集1 .子程序 _取硬盘信息按钮_被单击 硬盘信息编辑框.内容 = 取硬盘列表 () .子程序 取硬盘列表, 文本型, 公开 .局部变量 Script, 对象 .局部变量 ret, 文本型 Script.创建 (“MSScriptControl.ScriptControl”, ) Script.写属性 (“Language”, “VBScript”) Script.数值方法 (“AddCode”, #GetDiskList) ret = Script.通用方法 (“Eval”, “GetDiskList()”).取文本 () 返回 (ret) |
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接