易语言获取计算机硬盘信息的代码

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

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