Hello
Please amend to your needs:
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fso.MoveFile "C:\test.xls", "C:\Temp\Test.xls"
If Err < 0 Then MsgBox "No such file exists", vbExclamation, "not found"
Set fso = Nothing

HTH
Cordially
Pascal
"Chris" a écrit dans le message de news:
...
does anyone have the code needed to move a file to another folder, or a
way
of doing this through save as and then delete. The folder will be picked
via
a variable.