Moving a file

  • Thread starter Thread starter Todd Huttenstine
  • Start date Start date
T

Todd Huttenstine

In cell A6 is a new value(Full file path) and in cell A7
is the old value(Full file path).
For instance: Cell A6 = P:\My Stats.xls
and Cell A7= C:\Config\My Stats.xls

What is the code to move the file from the old file path
to the new file path? In this case I will need My
Stats.xls to be moved from C:\Config to P:\.

This can be done by copying the file and deleting the file
in the old path or by just moving it.

It really does not matter I just need the file moved on
the above criteria.

Thank you

Todd Huttenstine
 
Hi Todd

I think this'll work (but not heavy-duty tested):

Sub test()
Name "C:\Temp\Book1.xls" As "D:\Data\Book1.xls"
End Sub

if not then here's the more traditional way; copy and delete:

Sub test2()
Dim FileFrom As String
Dim FileTo As String
FileFrom = "D:\Data\Book1.xls"
FileTo = "C:\Temp\Book1.xls"
FileCopy FileFrom, FileTo
DoEvents
If Dir(FileTo) <> "" Then Kill FileFrom
End Sub
 
Oh sorry, I cant make it static in the code because the
values in both of the cells will change.

Thanx
 
Oh thanx, I got it to work.
-----Original Message-----
Hi Todd

I think this'll work (but not heavy-duty tested):

Sub test()
Name "C:\Temp\Book1.xls" As "D:\Data\Book1.xls"
End Sub

if not then here's the more traditional way; copy and delete:

Sub test2()
Dim FileFrom As String
Dim FileTo As String
FileFrom = "D:\Data\Book1.xls"
FileTo = "C:\Temp\Book1.xls"
FileCopy FileFrom, FileTo
DoEvents
If Dir(FileTo) <> "" Then Kill FileFrom
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please.




.
Click to expand...
 
With no testing at all!

Sub test()
with activesheet
Name .range("a7").value As .range("a6").value
End Sub

if not then here's the more traditional way; copy and delete:

Sub test2()
Dim FileFrom As String
Dim FileTo As String
FileFrom = activesheet.range("a7").value
FileTo = activesheet.range("a6").value
FileCopy FileFrom, FileTo
DoEvents
If Dir(FileTo) <> "" Then Kill FileFrom
End Sub
 
Sub movefile()
OldName = "C:\personal\1065.xls"
NewName = "C:\a\1065.xls"
Name OldName As NewName
End Sub
 
Todd

Sure, deliberate twist. I -and many others- rarely post
ready-to-use-with-error-trapping-included code. If you have to read it, consider,
implement and adjust it yourself then you will also hopefully understand and remember it.
Perhaps I can build the whole thing for you, but that's not help. That's work.
 
Back
Top