Move File to Different Directory

Matt · Apr 10th, 2002, 04:24 AM

Can anyone help me with the code to move a file from one directory to another i.e.

Moving C:testtest.xls to C:test.xls

Thanks in advance

Matt

Tom Schreiner · Apr 10th, 2002, 05:07 AM

Hi
Assuming the destination directory already exists.

Name "C:testtest.xls" As "C:test.xls"

Tom

Matt · Apr 10th, 2002, 05:41 AM

Thanks Tom, on the same subject, how would I move all files from one directory to another, have tried

Name "Ccurrent*.*" As "C:saved*.*"

with no success

Matt

Tom Schreiner · Apr 10th, 2002, 05:47 AM

Hi Matt
Which version of office are you using?
Tom

Matt · Apr 10th, 2002, 05:48 AM

Office 97

Tom Schreiner · Apr 10th, 2002, 05:58 AM

Hi Matt
I do not know how to work with files in Office 97.
Do a file search on your computer for a file called scrrun.dll. Should be in system folder. Microsoft Scripting Runtime
If you have it, I can help you.
If not then someone else will...
Tom

Matt · Apr 10th, 2002, 07:51 AM

Hi Tom

Yes I have that file

Tom Schreiner · Apr 10th, 2002, 08:02 AM

Try this

Sub MoveFiles()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'creates the destination directory if it does not exist
fso.MoveFolder "C:Current", "C:Saved"
End Sub
Tom

Matt · Apr 10th, 2002, 08:18 AM

Thanks Tom

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 10th, 2002, 04:24 AM	#1
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Can anyone help me with the code to move a file from one directory to another i.e. Moving C:testtest.xls to C:test.xls Thanks in advance Matt

Apr 10th, 2002, 05:07 AM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi Assuming the destination directory already exists. Name "C:testtest.xls" As "C:test.xls" Tom

Apr 10th, 2002, 05:41 AM	#3
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Thanks Tom, on the same subject, how would I move all files from one directory to another, have tried Name "Ccurrent." As "C:saved." with no success Matt

Apr 10th, 2002, 05:47 AM	#4
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi Matt Which version of office are you using? Tom

Apr 10th, 2002, 05:48 AM	#5
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Office 97

Apr 10th, 2002, 05:58 AM	#6
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi Matt I do not know how to work with files in Office 97. Do a file search on your computer for a file called scrrun.dll. Should be in system folder. Microsoft Scripting Runtime If you have it, I can help you. If not then someone else will... Tom

Apr 10th, 2002, 07:51 AM	#7
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Hi Tom Yes I have that file

Apr 10th, 2002, 08:02 AM	#8
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Try this Sub MoveFiles() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'creates the destination directory if it does not exist fso.MoveFolder "C:Current", "C:Saved" End Sub Tom

Apr 10th, 2002, 08:18 AM	#9
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Thanks Tom