mycad 发表于 2016-7-1 13:52:53

请高手帮忙把2行VLISP转化为vb代码

请教高手把下面2行lisp的程序转化为vb的代码，谢谢！


(setq fsys (vlax-create-object "Scripting.FileSystemObject"))

(vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber")

ivde 发表于 2016-7-1 14:19:58

Tools > References ->select 'Microsoft Scripting Runtime'
Dim fs, a
Dim b As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.GetDrive("C")
b = a.SerialNumber

mycad 发表于 2016-7-1 17:23:23

先谢谢ivde，我试试看

mycad 发表于 2016-7-2 17:33:29

可以，谢谢ivde，谢谢各位大师！！！！！！
页: [1]
查看完整版本: 请高手帮忙把2行VLISP转化为vb代码