如何在我的公司找到一幅画

pBe · 发表于 2022-7-6 10:14:13

我的想法（另一种方法）

 
(defun FindDwg (Drive Fle / CheckForSubFolders FilesAtFolder fso fldr
           rootfolder
           )
(vl-load-com)  
(defun CheckForSubFolders (itm)
   (FilesAtFolder itm)
   (vlax-for
      itmf (vlax-get-property itm 'Subfolders)
     (CheckForSubFolders itmf)
     )
   )
(defun FilesAtFolder (itm)
   (vlax-for
      files (vla-get-files itm)
     (if (wcmatch (vla-get-name files) Fle)
       (print (vla-get-path files))
       (princ)
       )
     )
   )
 (setq fso (vlax-create-object "Scripting.FileSystemObject"))
 (setq
   fldr       (vlax-invoke-method fso 'GetDrive Drive)
   rootfolder (vlax-get-property fldr 'RootFolder)
   )
 (FilesAtFolder rootfolder)
 (vlax-for
    sf (vlax-get-property rootfolder 'Subfolders)
   (CheckForSubFolders sf)
   )
 (princ)
 )