在AUTOCAD下实现RoboCopy

marting

1. ;;  RoboCopy usage in AutoCAD
   
2. ;;  Copyright© 2017 Ron Perez
   
3. ;;  Copies files and or folders depending on operating switches used
   
4. (defun rjp-robocopy (src_path dest_path filemask switches / _qs rc wss)
   
5.   (defun _qs (string) (strcat "\"" (vl-string-right-trim "\\" string) "\" "))
   
6.   (or (= 'str (type switches)) (setq switches ""))
   
7.   (or (= 'str (type filemask)) (setq filemask "*.*"))
   
8.   (and
   
9.     (vl-file-directory-p src_path)
   
10.     (findfile (setq rc (strcat (getenv "windir") "\\System32\\robocopy.exe ")))
    
11.     (setq wss (vlax-get-or-create-object "WScript.Shell"))
    
12.     (vlax-invoke-method wss 'run (strcat rc (_qs src_path) (_qs dest_path) filemask " " switches) 0)
    
13.     (vlax-release-object wss)
    
14.   )
    
15. )
    
16. ;; Usage - Copies all .exe & .ini files from C:\Windows to c:\rjp-robocopy\test
    
17. ;; (rjp-robocopy (getenv "windir") "c:\\rjp-robocopy\\test" "*.exe *.ini" "/MIR")
    
18. 
    
19. 
    
20. ;|
    
21. -------------------------------------------------------------------------------
    
22.    ROBOCOPY     ::     Robust File Copy for Windows
    
23. -------------------------------------------------------------------------------
    
24. 
    
25. 
    
26. 
    
27. 
    
28.   Started : Thursday, October 26, 2017 12:08:50
    
29.               Usage :: ROBOCOPY source destination [file [file]...] [options]
    
30. 
    
31. 
    
32. 
    
33. 
    
34.              source :: Source Directory (drive:\path or \\server\share\path).
    
35.         destination :: Destination Dir  (drive:\path or \\server\share\path).
    
36.                file :: File(s) to copy  (names/wildcards: default is "*.*").
    
37. 
    
38. 
    
39. 
    
40. 
    
41. ::
    
42. :: Copy options :
    
43. ::
    
44.                  /S :: copy Subdirectories, but not empty ones.
    
45.                  /E :: copy subdirectories, including Empty ones.
    
46.              /LEV:n :: only copy the top n LEVels of the source directory tree.
    
47. 
    
48. 
    
49. 
    
50. 
    
51.                  /Z :: copy files in restartable mode.
    
52.                  /B :: copy files in Backup mode.
    
53.                 /ZB :: use restartable mode; if access denied use Backup mode.
    
54.                  /J :: copy using unbuffered I/O (recommended for large files).
    
55.             /EFSRAW :: copy all encrypted files in EFS RAW mode.
    
56. 
    
57. 
    
58. 
    
59. 
    
60.   /COPY:copyflag :: what to COPY for files (default is /COPY:DAT).
    
61.                        (copyflags : D=Data, A=Attributes, T=Timestamps).
    
62.                        (S=Security=NTFS ACLs, O=Owner info, U=aUditing info).
    
63. 
    
64. 
    
65. 
    
66. 
    
67. 
    
68. 
    
69. 
    
70. 
    
71.                /SEC :: copy files with SECurity (equivalent to /COPY:DATS).
    
72.            /COPYALL :: COPY ALL file info (equivalent to /COPY:DATSOU).
    
73.             /NOCOPY :: COPY NO file info (useful with /PURGE).
    
74.             /SECFIX :: FIX file SECurity on all files, even skipped files.
    
75.             /TIMFIX :: FIX file TIMes on all files, even skipped files.
    
76. 
    
77. 
    
78. 
    
79. 
    
80.              /PURGE :: delete dest files/dirs that no longer exist in source.
    
81.                /MIR :: MIRror a directory tree (equivalent to /E plus /PURGE).
    
82. 
    
83. 
    
84. 
    
85. 
    
86.                /MOV :: MOVe files (delete from source after copying).
    
87.               /MOVE :: MOVE files AND dirs (delete from source after copying).
    
88. 
    
89. 
    
90. 
    
91. 
    
92.      /A+:[RASHCNET] :: add the given Attributes to copied files.
    
93.      /A-:[RASHCNET] :: remove the given Attributes from copied files.
    
94. 
    
95. 
    
96. 
    
97. 
    
98.             /CREATE :: CREATE directory tree and zero-length files only.
    
99.                /FAT :: create destination files using 8.3 FAT file names only.
    
100.                /256 :: turn off very long path (> 256 characters) support.
     
101. 
     
102. 
     
103. 
     
104. 
     
105.              /MON:n :: MONitor source; run again when more than n changes seen.
     
106.              /MOT:m :: MOnitor source; run again in m minutes Time, if changed.
     
107. 
     
108. 
     
109. 
     
110. 
     
111.       /RH:hhmm-hhmm :: Run Hours - times when new copies may be started.
     
112.                 /PF :: check run hours on a Per File (not per pass) basis.
     
113. 
     
114. 
     
115. 
     
116. 
     
117.              /IPG:n :: Inter-Packet Gap (ms), to free bandwidth on slow lines.
     
118. 
     
119. 
     
120. 
     
121. 
     
122.                 /SL :: copy symbolic links versus the target.
     
123. 
     
124. 
     
125. 
     
126. 
     
127.             /MT[:n] :: Do multi-threaded copies with n threads (default.
     
128.                        n must be at least 1 and not greater than 128.
     
129.                        This option is incompatible with the /IPG and /EFSRAW options.
     
130.                        Redirect output using /LOG option for better performance.
     
131. 
     
132. 
     
133. 
     
134. 
     
135. /DCOPY:copyflag :: what to COPY for directories (default is /DCOPY:DA).
     
136.                        (copyflags : D=Data, A=Attributes, T=Timestamps).
     
137. 
     
138. 
     
139. 
     
140. 
     
141.            /NODCOPY :: COPY NO directory info (by default /DCOPY:DA is done).
     
142. 
     
143. 
     
144. 
     
145. 
     
146.          /NOOFFLOAD :: copy files without using the Windows Copy Offload mechanism.
     
147. 
     
148. 
     
149. 
     
150. 
     
151. ::
     
152. :: File Selection Options :
     
153. ::
     
154.                  /A :: copy only files with the Archive attribute set.
     
155.                  /M :: copy only files with the Archive attribute and reset it.
     
156.     /IA:[RASHCNETO] :: Include only files with any of the given Attributes set.
     
157.     /XA:[RASHCNETO] :: eXclude files with any of the given Attributes set.
     
158. 
     
159. 
     
160. 
     
161. 
     
162. /XF file [file]... :: eXclude Files matching given names/paths/wildcards.
     
163. /XD dirs [dirs]... :: eXclude Directories matching given names/paths.
     
164. 
     
165. 
     
166. 
     
167. 
     
168.                 /XC :: eXclude Changed files.
     
169.                 /XN :: eXclude Newer files.
     
170.                 /XO :: eXclude Older files.
     
171.                 /XX :: eXclude eXtra files and directories.
     
172.                 /XL :: eXclude Lonely files and directories.
     
173.                 /IS :: Include Same files.
     
174.                 /IT :: Include Tweaked files.
     
175. 
     
176. 
     
177. 
     
178. 
     
179.              /MAX:n :: MAXimum file size - exclude files bigger than n bytes.
     
180.              /MIN:n :: MINimum file size - exclude files smaller than n bytes.
     
181. 
     
182. 
     
183. 
     
184. 
     
185.           /MAXAGE:n :: MAXimum file AGE - exclude files older than n days/date.
     
186.           /MINAGE:n :: MINimum file AGE - exclude files newer than n days/date.
     
187.           /MAXLAD:n :: MAXimum Last Access Date - exclude files unused since n.
     
188.           /MINLAD:n :: MINimum Last Access Date - exclude files used since n.
     
189.                        (If n < 1900 then n = n days, else n = YYYYMMDD date).
     
190. 
     
191. 
     
192. 
     
193. 
     
194.                 /XJ :: eXclude Junction points. (normally included by default).
     
195. 
     
196. 
     
197. 
     
198. 
     
199.                /FFT :: assume FAT File Times (2-second granularity).
     
200.                /DST :: compensate for one-hour DST time differences.
     
201. 
     
202. 
     
203. 
     
204. 
     
205.                /XJD :: eXclude Junction points for Directories.
     
206.                /XJF :: eXclude Junction points for Files.
     

;;  RoboCopy usage in AutoCAD<br /> ;;  Copyright&#169; 2017 Ron Perez<br /> ;;  Copies files and or folders depending on operating switches used<br /> (defun rjp-robocopy (src_path dest_path filemask switches / _qs rc wss)<br />   (defun _qs (string) (strcat "\"" (vl-string-right-trim "\\" string) "\" "))<br />   (or (= 'str (type switches)) (setq switches ""))<br />   (or (= 'str (type filemask)) (setq filemask "*.*"))<br />   (and<br />     (vl-file-directory-p src_path)<br />     (findfile (setq rc (strcat (getenv "windir") "\\System32\\robocopy.exe ")))<br />     (setq wss (vlax-get-or-create-object "WScript.Shell"))<br />     (vlax-invoke-method wss 'run (strcat rc (_qs src_path) (_qs dest_path) filemask " " switches) 0)<br />     (vlax-release-object wss)<br />   )<br /> )<br /> ;; Usage - Copies all .exe & .ini files from C:\Windows to c:\rjp-robocopy\test<br /> ;; (rjp-robocopy (getenv "windir") "c:\\rjp-robocopy\\test" "*.exe *.ini" "/MIR")<br /> <br /> <br /> ;|<br /> -------------------------------------------------------------------------------<br />    ROBOCOPY     ::     Robust File Copy for Windows<br /> -------------------------------------------------------------------------------<br /> <br /> <br /> <br /> <br />   Started : Thursday, October 26, 2017 12:08:50<br />               Usage :: ROBOCOPY source destination [file [file]...] [options]<br /> <br /> <br /> <br /> <br />              source :: Source Directory (drive:\path or \\server\share\path).<br />         destination :: Destination Dir  (drive:\path or \\server\share\path).<br />                file :: File(s) to copy  (names/wildcards: default is "*.*").<br /> <br /> <br /> <br /> <br /> ::<br /> :: Copy options :<br /> ::<br />                  /S :: copy Subdirectories, but not empty ones.<br />                  /E :: copy subdirectories, including Empty ones.<br />              /LEV:n :: only copy the top n LEVels of the source directory tree.<br /> <br /> <br /> <br /> <br />                  /Z :: copy files in restartable mode.<br />                  /B :: copy files in Backup mode.<br />                 /ZB :: use restartable mode; if access denied use Backup mode.<br />                  /J :: copy using unbuffered I/O (recommended for large files).<br />             /EFSRAW :: copy all encrypted files in EFS RAW mode.<br /> <br /> <br /> <br /> <br />   /COPY:copyflag<strike> :: what to COPY for files (default is /COPY:DAT).<br />                        (copyflags : D=Data, A=Attributes, T=Timestamps).<br />                        (S=Security=NTFS ACLs, O=Owner info, U=aUditing info).<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br />                /SEC :: copy files with SECurity (equivalent to /COPY:DATS).<br />            /COPYALL :: COPY ALL file info (equivalent to /COPY:DATSOU).<br />             /NOCOPY :: COPY NO file info (useful with /PURGE).<br />             /SECFIX :: FIX file SECurity on all files, even skipped files.<br />             /TIMFIX :: FIX file TIMes on all files, even skipped files.<br /> <br /> <br /> <br /> <br />              /PURGE :: delete dest files/dirs that no longer exist in source.<br />                /MIR :: MIRror a directory tree (equivalent to /E plus /PURGE).<br /> <br /> <br /> <br /> <br />                /MOV :: MOVe files (delete from source after copying).<br />               /MOVE :: MOVE files AND dirs (delete from source after copying).<br /> <br /> <br /> <br /> <br />      /A+:[RASHCNET] :: add the given Attributes to copied files.<br />      /A-:[RASHCNET] :: remove the given Attributes from copied files.<br /> <br /> <br /> <br /> <br />             /CREATE :: CREATE directory tree and zero-length files only.<br />                /FAT :: create destination files using 8.3 FAT file names only.<br />                /256 :: turn off very long path (> 256 characters) support.<br /> <br /> <br /> <br /> <br />              /MON:n :: MONitor source; run again when more than n changes seen.<br />              /MOT:m :: MOnitor source; run again in m minutes Time, if changed.<br /> <br /> <br /> <br /> <br />       /RH:hhmm-hhmm :: Run Hours - times when new copies may be started.<br />                 /PF :: check run hours on a Per File (not per pass) basis.<br /> <br /> <br /> <br /> <br />              /IPG:n :: Inter-Packet Gap (ms), to free bandwidth on slow lines.<br /> <br /> <br /> <br /> <br />                 /SL :: copy symbolic links versus the target.<br /> <br /> <br /> <br /> <br />             /MT[:n] :: Do multi-threaded copies with n threads (default.<br />                        n must be at least 1 and not greater than 128.<br />                        This option is incompatible with the /IPG and /EFSRAW options.<br />                        Redirect output using /LOG option for better performance.<br /> <br /> <br /> <br /> <br /> /DCOPY:copyflag<strike> :: what to COPY for directories (default is /DCOPY:DA).<br />                        (copyflags : D=Data, A=Attributes, T=Timestamps).<br /> <br /> <br /> <br /> <br />            /NODCOPY :: COPY NO directory info (by default /DCOPY:DA is done).<br /> <br /> <br /> <br /> <br />          /NOOFFLOAD :: copy files without using the Windows Copy Offload mechanism.<br /> <br /> <br /> <br /> <br /> ::<br /> :: File Selection Options :<br /> ::<br />                  /A :: copy only files with the Archive attribute set.<br />                  /M :: copy only files with the Archive attribute and reset it.<br />     /IA:[RASHCNETO] :: Include only files with any of the given Attributes set.<br />     /XA:[RASHCNETO] :: eXclude files with any of the given Attributes set.<br /> <br /> <br /> <br /> <br /> /XF file [file]... :: eXclude Files matching given names/paths/wildcards.<br /> /XD dirs [dirs]... :: eXclude Directories matching given names/paths.<br /> <br /> <br /> <br /> <br />                 /XC :: eXclude Changed files.<br />                 /XN :: eXclude Newer files.<br />                 /XO :: eXclude Older files.<br />                 /XX :: eXclude eXtra files and directories.<br />                 /XL :: eXclude Lonely files and directories.<br />                 /IS :: Include Same files.<br />                 /IT :: Include Tweaked files.<br /> <br /> <br /> <br /> <br />              /MAX:n :: MAXimum file size - exclude files bigger than n bytes.<br />              /MIN:n :: MINimum file size - exclude files smaller than n bytes.<br /> <br /> <br /> <br /> <br />           /MAXAGE:n :: MAXimum file AGE - exclude files older than n days/date.<br />           /MINAGE:n :: MINimum file AGE - exclude files newer than n days/date.<br />           /MAXLAD:n :: MAXimum Last Access Date - exclude files unused since n.<br />           /MINLAD:n :: MINimum Last Access Date - exclude files used since n.<br />                        (If n < 1900 then n = n days, else n = YYYYMMDD date).<br /> <br /> <br /> <br /> <br />                 /XJ :: eXclude Junction points. (normally included by default).<br /> <br /> <br /> <br /> <br />                /FFT :: assume FAT File Times (2-second granularity).<br />                /DST :: compensate for one-hour DST time differences.<br /> <br /> <br /> <br /> <br />                /XJD :: eXclude Junction points for Directories.<br />                /XJF :: eXclude Junction points for Files.<br />