Copy list of files to a certain folder..

[PATSYS]

Hi all,

I have a list of filenames (including file type extension) in sheet1, range A1:A30. Not all of them are xls file, some are pdf.

These files can be found under D:\Folder

Is there a way I can run a VBA code to locate each of these filenames under D:\Folder and save them under e.g. D:\MyFile\Docs ?

Thanks

 

[PATSYS]

Hi all,

Is this possible at all?

Thanks

 

[PATSYS]

*Bump*

 

[ravishankar]

Hi
Try these codes

Sub patsys()
Dim x As Long, a As Long
Dim b As String
x = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To x
b = Sheets("Sheet1").Cells(a, 1)
FileCopy "D:\Folder\" & b, "D:\MyFile\Docs\" & b
Next a
End Sub

Ravi

 

[PATSYS]

Hi
Try these codes

Sub patsys()
Dim x As Long, a As Long
Dim b As String
x = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To x
b = Sheets("Sheet1").Cells(a, 1)
FileCopy "D:\Folder\" & b, "D:\MyFile\Docs\" & b
Next a
End Sub

Ravi

Hi Ravishankar,

Thanks for your post. HOwever I am getting debug error, highlighting the line:

FileCopy "D:\Folder\" & b, "D:\MyFile\Docs\" & b

Would you know why?