[编程交流] 计算文件数量i

(if (setq f (vl-directory-files "C:\\Users\\Tharwat\\Desktop\\New Folder" nil 1))
 (length f)
 )

(vl-load-com)
(defun c:FOO (/ *error* oShell oFolder path i)
 (defun *error* (msg)
   (if oShell
     (vlax-release-object oShell)
   )
   (cond ((not msg))                                                   ; Normal exit
         ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
         ((princ (strcat "\n** Error: " msg " ** ")))                  ; Fatal error, display it
   )
   (princ)
 )
 (if
   (and
     (setq oShell (vla-getinterfaceobject
                    (vlax-get-acad-object)
                    "Shell.Application"
                  )
     )
     (setq oFolder (vlax-invoke
                     oShell
                     'BrowseForFolder
                     (vla-get-hwnd acApp)
                     "Select folder to search:"
                     0
                     (+ 1 64 256)
                   )
     )
     (setq path (vlax-get-property
                  (vlax-get-property oFolder 'Self)
                  'Path
                )
     )
   )
    (progn
      (prompt (strcat "\nSelected folder: "" path "" "))
      (prompt
        (strcat
          "\n"
          (itoa (setq i (length (vl-directory-files path "*.*" 1))))
          (if (= 1 i)
            " file "
            " files "
          )
          "found."
        )
      )
    )
 )
 (*error* nil)
)

 (if (setq f (vl-directory-files (getvar 'dwgprefix) nil 1))
 (length f)
 )

(if
 (and (setq
        f (vl-directory-files
            (getvar 'dwgprefix)
            nil
            1
          )
      )
      (setq l (vl-remove-if '(lambda (ex) (wcmatch ex "*.dwl,*.dwl2")) f))
 )
  (length l)
)