Move a file using VL?

Hi all,

Is there any VL-??? function (or any other function excluding SHELL function) to move a file from one directory to another?

Thanks for any information,

MNRaghu

 

Hi RaghuMN

This should do what you want:

Code:

;
; -- VxMoveFiles
; Moves the specified file(s).
; Copyright:
;   ©2002 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Typ]:
;   Src = Source file(s) to move "C:\\Temp\\AllScrap.*" [STR]
;   Tar = Target directory/file "C:\\Scrap" [STR]
; Return [Typ]:
;   > T   VxMoveFiles succeed
;     Nil Error on move file(s)
; Notes:
;   - Requires ScrRun.dll (WinNT/Win9x/WinME only)
;   - If target file(s) exist, they be overwritten
;
(defun VxMoveFiles (Src Tar / FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
RetVal (cond
((vl-catch-all-error-p
(vl-catch-all-apply
'vlax-invoke-method
(list FilSys 'CopyFile Src Tar :vlax-true)
)
)
)
((vl-catch-all-error-p
(vl-catch-all-apply
'vlax-invoke-method
(list FilSys 'DeleteFile Src :vlax-true)
)
)
)
)
)
(vlax-release-object FilSys)
(not RetVal)
)

Cheers

 

Repost my answer because I can't see it in the NNTP reader...

Hi RaghuMN

This should do what you want:

Code:

;
; -- VxMoveFiles
; Moves the specified file(s).
; Copyright:
;   ©2002 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Typ]:
;   Src = Source file(s) to move "C:\\Temp\\AllScrap.*" [STR]
;   Tar = Target directory/file "C:\\Scrap" [STR]
; Return [Typ]:
;   > T   VxMoveFiles succeed
;     Nil Error on move file(s)
; Notes:
;   - Requires ScrRun.dll (WinNT/Win9x/WinME only)
;   - If target file(s) exist, they be overwritten
;
(defun VxMoveFiles (Src Tar / FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
RetVal (cond
((vl-catch-all-error-p
(vl-catch-all-apply
'vlax-invoke-method
(list FilSys 'CopyFile Src Tar :vlax-true)
)
)
)
((vl-catch-all-error-p
(vl-catch-all-apply
'vlax-invoke-method
(list FilSys 'DeleteFile Src :vlax-true)
)
)
)
)
)
(vlax-release-object FilSys)
(not RetVal)
)

Cheers

 

Not VL, But...

(foreach n movelist ;specific filename list.
(dos_exewait (strcat "cmd /c move path" n "Destination path") 3)
)
;---;Move all list to same name..
;---;
(dos_exewait (strcat "cmd /c move Path\\*.EXT Destination path\\") 3)



Bill

 

Yes, I just tried and this works:

(vl-file-rename oldpath newpath)

Just provide the full pathnames.

 

Juerg, BillZ and Daniel,

Thanks for the replies.

All the suggestions work.

My observations:
(vl-file rename .....) does not rename if the target file already exists. If needs to be overwritten, the old file needs to be deleted. In spite of this, this is the shortest solution.

Juerg's code also takes care of replacing the target file if exists.

I felt that using (dos_..) is a bit slower than the other 2 methods.

Thanks again all the 3 gentlemen,

MNRaghu

 

little add : there is a MoveFile method with FileSystemObject

(setq obj_wsh (vlax-create-object "Scripting.FileSystemObject"))
(vlax-invoke-method obj_wsh 'MoveFile source destination )

as written in WSH Help :

source
Required. The path to the file or files to be moved. The source argument
string can contain wildcard characters in the last path component only.
destination
Required. The path where the file or files are to be moved. The destination
argument can't contain wildcard characters.

If destination is an existing file, an error occurs.


thus, it's less effective than Jürg's method or vl-file-rename

Bruno Toniutti

 

Hi Bruno

That's the point why I'm don't use the move method...;-)

Cheers

 

Welcome...¦-)

Cheers