（XD::SYSTEM:Driveletters）获取系统的磁盘驱动器号

newer

1. (defun XD::SYSTEM:Driveletters ( / qry rslt srv wmi )
   
2.     (vl-catch-all-apply
   
3.        '(lambda ( )
   
4.             (setq wmi (vlax-create-object "wbemscripting.swbemlocator")
   
5.                   srv (vlax-invoke wmi 'connectserver)
   
6.                   qry (vlax-invoke srv 'execquery "Select DeviceID from Win32_LogicalDisk")
   
7.             )
   
8.             (vlax-for itm qry
   
9.                 (vlax-for prop (vlax-get itm 'properties_)
   
10.                     (if (eq "DeviceID" (vlax-get prop 'name))
    
11.                         (setq rslt (cons (vlax-get prop 'value) rslt))
    
12.                     )
    
13.                 )
    
14.             )
    
15.         )
    
16.     )
    
17.     (foreach obj (list qry srv wmi) (if obj (vlax-release-object obj)))
    
18.     (vl-sort rslt '<)
    
19. )
    

(defun XD::SYSTEM:Driveletters ( / qry rslt srv wmi )<br />     (vl-catch-all-apply<br />        '(lambda ( )<br />             (setq wmi (vlax-create-object "wbemscripting.swbemlocator")<br />                   srv (vlax-invoke wmi 'connectserver)<br />                   qry (vlax-invoke srv 'execquery "Select DeviceID from Win32_LogicalDisk")<br />             )<br />             (vlax-for itm qry<br />                 (vlax-for prop (vlax-get itm 'properties_)<br />                     (if (eq "DeviceID" (vlax-get prop 'name))<br />                         (setq rslt (cons (vlax-get prop 'value) rslt))<br />                     )<br />                 )<br />             )<br />         )<br />     )<br />     (foreach obj (list qry srv wmi) (if obj (vlax-release-object obj)))<br />     (vl-sort rslt '<)<br /> )<br />

命令: (XD::SYSTEM:DRIVELETTERS)
("C:" "D:" "F:" "O:" "P:")

yjch

正需要，支持，好好学习天天向上