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

mycad

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


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

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

ivde

Tools > References ->select 'Microsoft Scripting Runtime'

2. 
   
3. Dim fs, a
   
4. Dim b As Long
   
5. Set fs = CreateObject("Scripting.FileSystemObject")
   
6. Set a = fs.GetDrive("C")
   
7. b = a.SerialNumber

<br /> Dim fs, a<br /> Dim b As Long<br /> Set fs = CreateObject("Scripting.FileSystemObject")<br /> Set a = fs.GetDrive("C")<br /> b = a.SerialNumber

mycad

先谢谢ivde，我试试看

mycad

可以，谢谢ivde，谢谢各位大师！！！！！！