Move file and create folder

Hi All,

I am kinda new on VBA and I am trying to create a Macro to help me on a project.
I have a 2 collumn Excel file with x rows

A1.value = Filename.ext
B1.value = Full_Folder_Path

On my hard drive, all files (at least most) are under the same root folder C:\S\

I would like the VBA mcro to read the excel file and make the following actions:


Read A1
Move A1 file from root folder S to Path on B2

Loop
Read B2
... Till Ax

Sub copyfiles()
Dim x As Long, a As Long
x = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To x
FileCopy "C:\S\" & Cells(a, 1).Value, Cells(a, 2).Value
Next a
End Sub

For some reason this is not working.

Any ideas would be much appreciated.

Thanks !

Quote:

---

For some reason this is not working

---

what happens error?
wrong result?
nothing?

as you want to move the file, you should use name rather than filecopy
try like

Code:

---

Name "C:\S\" & Cells(a, 1).Value As Cells(a, 2).Value & "\" & Cells(a, 1).Value

---