macro for moving folders

[errtu]

I have two folders A & B.

I need a macro that will create a new folder C and move all contents from A & B to C.

edit. i forgot, every time it should create a different folder. so that everyday i'll get folder C, D, E, F (maybe name the folders based on date)

 

[pawest]

Alpha Frog,

After I started running the macro over and continuing to test it, I did start to run into some errors. I will copy and paste the code and include the errors in the code with ' marks.

Sub CopyFile1()

Dim FromPath As String, ToPath As String
Dim i As Long

If MsgBox("Are you sure you want to move all stale files?", vbYesNo) <> vbYes Then Exit Sub

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row

If Len(Dir((Cells(i, "C").Value & "\Stale Files"), vbDirectory)) = 0 Then
MkDir Cells(i, "C").Value & "\Stale Files"
End If

FromPath = Cells(i, "D").Value
ToPath = Cells(i, "C").Value & "\Stale Files\" & Cells(i, "B").Value
'FileCopy Source:=FromPath, Destination:=ToPath <<<Error "Permission Denied"
'CreateObject("Scripting.FileSystemObject").CopyFile FromPath, ToPath <<<Error"Permission Denied"
'Name FromPath As ToPath <<<worked but created a new file and didn't keep the old one


Next i

End Sub

If you have any advice to fix the errors, or make a copy of the initial file and name the second file. Please let me know, thanks for your help!

 

[pawest]

Maybe i need to use Rowsource? although, I know nothing about rowsource.

 

[pawest]

I realized, as an intern, that I don't have access to certain folders. Thanks for your help! It seems to work great.