Move file to different folder
Don
thanks....this indeed works and creates the file in the
new directory....but....it retains the original file in
the original directory....something I want to avoid so
that it does not get processed again the next time the
project is run
Any further thoughts?
Regards
Michael Bond
-----Original Message-----
try
Sub movefile()
OldName = "C:\sourcefoldername\1065.xls"
NewName = "C:\destinationfoldername\1065.xls"
Name OldName As NewName
End Sub
"Michael Bond" wrote in
message
...
Hello all
I have created a project to open all files in a folder,
perform some work with the data in the file(s), set the
file save property as true and close the file.
I now want to move the file out of that folder into
another. I just cannot get my head round the code I need
to do that.
Sample of my code attached....can any one provide
the '????????? line which is moving the file out of the
folder into a different folder.
Much obliged for your attention
Regards
Michael Bond
Sub WorkOnFile()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("X:\******** *******\")
Set fc = f.Files
For Each f1 In fc
'(Various code here which opens file and carries
out some work then...)
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
'????????????????
Next
.
|