bak文件闪电战

(defun _movebak        (folder / dest dir files)
  (if (and (vl-file-directory-p folder)
           (setq dir (getvar 'dwgprefix))
           (setq files (vl-directory-files dir "*.bak" 1))
      )
    (foreach f files
      (vl-catch-all-apply 'vl-file-copy (list (strcat dir f) (strcat folder f)))
      (vl-catch-all-apply 'vl-file-delete (list (strcat dir f)))
    )
  )
  (princ)
)
(_movebak "C:\\myfolder\")

;;  del_files.lsp
;;  CAB 10/09/2006
;;  Version 2.0  12.16.2009  added file report & replace folder dialog
;;
;;  User selects top folder, allows subfolders, enters file types
;;  File types matching are then deleted.
;;
;;  
(defun c:del_files (/  CNT  CNTFAILED F   OutFile     FNAME
                    FNAMELST FOLDER   FTYPE    FTYPES   FULLPATH PATH
                    PLISTS   usesub      X        get_subs *error*
                   )
  ;;===============================================
  ;;         L o c a l   F u n c t i o n s         
  ;;===============================================
  ;; error function & Routine Exit
  ;|
  (defun *error* (msg)
    (if
      (not
        (member
          msg
          '("console break" "Function cancelled" "quit / exit abort" "")
        )
      )
       (princ (strcat "\nError: " msg))
    )   ; endif
    (if fso
      (vlax-release-object fso)
    )
    (gc)
    (princ)
  )
|;
  ;; Return all directories 
  (defun get_subs (folder / file)
    (mapcar '(lambda (x)
               (setq file (strcat folder "\" x))
               (cons file (apply 'append (get_subs file)))
             )
            (cddr (vl-directory-files folder nil -1))
    )
  )
(vl-load-com)
;; FolderBox (Patrick_35)
(defun FolderBox (message directory flag / folder sh)
  ;; Arguments:
  ;; message: the message displayed in th dialog box
  ;; directory: the directory to browse
  ;; flag values:
  ;; 0 = Default
  ;; 1 = Only file system folders can be selected. If this bit is set, the OK button is disabled if the user selects a folder that doesn't belong to the file system (such as the Control Panel folder).
  ;; 2 = The user is prohibited from browsing below the domain within a network (during a computer search).
  ;; 4 = Room for status text is provided under the text box.
  ;; 8 = Returns file system ancestors only.
  ;; 16 = Shows an edit box in the dialog box for the user to type the name of an item.
  ;; 32 = Validate the name typed in the edit box.
  ;; 512 = None "New folder" button
  ;; 4096 = Enables the user to browse the network branch of the shell's namespace for computer names.
  ;; 8192 = Enables the user to browse the network branch of the shell's namespace for printer names.
  ;; 16384 = Allows browsing for everything.
  (setq shell (vlax-create-object "Shell.Application"))
  (if (setq
    folder (vlax-invoke shell 'browseforfolder 0 message flag directory)
      )
    (setq folder (vlax-get-property (vlax-get-property folder 'self) 'path))
    (setq folder nil)
  )
  (vlax-release-object shell)
  folder
)
  ;;===========================================================
  ;;              M a i n   P r o g r a m                      
  ;;===========================================================
  (setq path "" ; use current path
        ftypes "" ; show all types
  )
  ;;Old method (setq fullpath (getfiled "Select a File in the top folder." path ftypes 4) )
  
  (setq fullpath (FolderBox "Select top folder for File Delete:"
                  ;; (vl-filename-directory(findfile "acad.exe")) 0))
                    "c:" 0))
      
  (if (and fullpath
           ;;Old method (setq path (vl-filename-directory fullpath)) ; extract path
           (setq path fullpath) ; new method
           ;;(setq fname (vl-filename-base fullpath)) ; extract name only
           ;;(setq ftype (vl-filename-extension fullpath)) ; extract file type
      )
    (progn
      (initget "Yes No")
      (setq usesub (getkword "\nSearch in Subdirectories? [Yes/No] "))
      (or usesub (setq usesub "No"))
      (initget "All bak bk1 bk2 sv$ ac$ log plt Ls Dc dS")
      (setq ftype (getkword "\nEnter File type [All bak bk1 bk2 sv$ ac$ log plt Ls Dc dS] [b]"))
      (or ftype (setq ftype "bak"))
      
      (cond
        ((member ftype '("Ls" "Dc")) ;  correct for missing _ character
         (setq ftype (list (strcat "_" ftype)))
         )
         ((= ftype "All")(setq ftype '("bak" "bk1" "bk2" "sv$" "ac$" "log" "plt" "_Ls" "_Dc" "dS")))
         (t (setq ftype (list ftype)))
        )
      (prompt "\n ***  Working - Please wait  ***\n")
      
      (if (= usesub "Yes")
        (setq plists (cons (list path) (get_subs path))) ; use all subfolders too
        (setq plists (list path)) ; only current path
      )
      (setq cnt 0
            cntfailed 0
      )
      (if (setq OutFile (open (strcat path "\\FileDelList.txt") "w"))
        (progn
          (write-line 
            (strcat (substr (rtos (getvar "CDATE") 2 4) 5 2) ; month
                "-" (substr (rtos (getvar "CDATE") 2 4) 7 2) ; day
                "-" (substr (rtos (getvar "CDATE") 2 4) 1 4) ; year "2007"
            ) OutFile)
          (write-line "=================================================" OutFile)
      (foreach pl plists
        (if (not (listp pl)) (setq pl (list pl)))
        (foreach pa pl
         (foreach ft ftype
          ;;  get A LIST OF matching FILE NAMES
          (setq fnamelst (vl-directory-files pa (strcat "*." ft) 1))
          (if fnamelst
            (foreach fn fnamelst
              (if (vl-file-delete (strcat pa "\" fn))
                (progn
                  (write-line (strcat pa "\" fn) OutFile)
                  (setq cnt (1+ cnt))
                )
                (setq cntfailed (1+ cntfailed))
              )
            )
          )
         )
        )
      )
      (write-line "=================================================" OutFile)
      (write-line (strcat (itoa cnt) " files were deleted.") OutFile)
      (write-line (strcat (itoa cntfailed) " files could NOT be deleted.") OutFile)
      (close OutFile) ; close the open file handle
      )
        )
      (if (not (zerop cnt))
        (prompt (strcat "\nReport File --> " path "\\FileDelList.txt \n"
                        (itoa cnt) " files were deleted.")))
      (if (not (zerop cntfailed))
           (prompt (strcat "\n" (itoa cntfailed) " files could NOT be deleted."))
      )
      (if (and (zerop cnt) (zerop cntfailed))
           (prompt (strcat "\n***  No matching files found  ***."))
      )
    )
    (prompt "\nUser Quit.")
  )
  (princ)
)