Peter,

Depending on what you actually want to do, try something like

Sub AAA()
Dim DestinationFolder As String
Dim SourceFileName As String
Dim DestinationFileName As String

DestinationFolder = "C:\Test" '<<< CHANGE
SourceFileName = "C:\Test1.txt" '<<< CHANGE
DestinationFileName = "C:\Test\Test2.txt" '<<< CHANGE

If Dir(DestinationFolder, vbDirectory + vbHidden) = vbNullString Then
' folder does not exist, create it
MkDir DestinationFolder
End If

'''''''''''''''''''''''''''''''
' If you want to COPY the file,
'''''''''''''''''''''''''''''''
FileCopy SourceFileName, DestinationFileName

'''''''''''''''''''''''''''''''
' If you want to MOVE the file.
'''''''''''''''''''''''''''''''
Name SourceFileName As DestinationFileName
End Sub

You'll probably want to add some error checking to ensure the file exists,
and the destination file does not exist, but the code above should get you
started.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email on the web site)

"Peter" wrote in message
oups.com...
Calling all Excel programming brains,

I am trying to move and rename a file but don't know where to start,
can anybody help?

Thanks,
Peter