Move file to different folder
 

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

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



.

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



.

Move file to different folder
 

I just re-tested using xp home and xl2002 and it MOVED the file as it
should.
I moved a file from c:\personal to c:\a
I assume that both directories do exist.

"Michael Bond" wrote in message
...
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



.

Move file to different folder
 

glad to help.

"Michael Bond" wrote in message
...
Don

erm...apologies and humble pie....I don't know what I did
wrong first time....

Thanks for your patience and the help.

Regards

Michael Bond
-----Original Message-----
I just re-tested using xp home and xl2002 and it MOVED
the file as it
should.
I moved a file from c:\personal to c:\a
I assume that both directories do exist.

"Michael Bond" wrote in
message
...
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



.



.