dos_copy question

I'm trying to make Doslib's dos_copy copy a bunch of directories from one
place to another. I tried just using the * wildcard, but it doesn't copy
folders. is there another way?

TIA

 

Hi The Read JD

Try this function:

Code:

;
; -- VxCopyFolders
; Copies the specified folder(s).
; Copyright:
;   ©2002 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Typ]:
;   Src = Source folder(s) to copy "C:\\Temp\\*" [STR]
;   Tar = Target directory "C:\\Scrap" [STR]
; Return [Typ]:
;   > T   VxCopyFolders succeed
;     nil Error on copy folder(s)
; Notes:
;   - Requires ScrRun.dll.
;   - Target folder must exist
;   - Existing folders or files are to be overwritten.
;
(defun VxCopyFolders (Src Tar / ErrObj FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
ErrObj (vl-catch-all-apply
'vlax-invoke-method
(list FilSys 'CopyFolder Src Tar :vlax-true)
)
RetVal (not (vl-catch-all-error-p ErrObj))
)
(vlax-release-object FilSys)
RetVal
)

Cheers

 

Oops...
Target directory requires a backslash at the end:

Code:

;   Tar = Target directory "C:\\Scrap\\" [STR]

Cheers

 

Thanks!

 

Welcome...¦-)

Cheers