Solved: Moving all files from one folder to another

[satyen]

Hello.

I have a a macro that will be run. After it has actioned what it needs to I need to move the contents of a folder to another folder using VBA.

Can someone please help?

[dominicb]

Good evening satyen

No specifics here, so it'll have to be a general answer I'm afraid. The code below will move MyFile.xls from C:\ to C:\New Folder.


Sub test()
Name "C:\MyFile.xls" As "C:\New Folder\MyFile.xls"
End Sub

HTH

DominicB

[mdmackillop]

For all files in a folder

Sub MoveFiles()
Dim MyFile As String
MyFile = Dir("C:\AAAA\*.*")
Do Until MyFile = ""
Name "C:\AAAA\" & MyFile As "C:\AAA\" & MyFile
MyFile = Dir
Loop
End Sub

[satyen]

I will try this code thanks.!

[satyen]

Thanks works a marvel! How do I add a warning to say there are no files if no files exist

[mdmackillop]

Create a messagebox if MyFile = ""

[satyen]

Thanks. Works a treat!