Copiar arquivo

[Buruca]

Bom dia Pessoal,

Primeiramente, quero lhes agradecer por me aceitarem no fórum!

Sou de Floripa, e estou tentando aprender um pouco sobre programação.

Tenho o seguinte código:

Sub test1()
Dim c As Object, x, i As Long, n As Long
Set c = CreateObject("Scripting.FileSystemObject")
oldpath = Range(["D2"]): newpath = Range(["D3"])
x = Range([c2], [c2].End(xlDown))
For i = 1 To UBound(x)
c.copyfile oldpath & x(i, 1), newpath & x(i, 1)
n = n + 1
Next: MsgBox n & " arquivos copiados com sucesso", vbInformation: End Sub

Consigo com isto, utilizando o Excel, copiar várias imagens de uma determinada pasta para outra pasta.

Porém, na planilha do Excel, tenho duas colunas: Uma com o nome das imagens (001.jpg, 002.jpg, 003.jpg, etc) e outra com o tamanho das imagens (1800x1200 ou 2700x1800 ou 3600x2400).Gostaria que o computador procurasse estas imagens em uma pasta e suas subpastas e as copiasse para uma das pastas (1800x1200 ou 2700x1800 ou 3600x2400), conforme o tamanho das imagens.

Será que alguém poderia me ajudar a resolver este problema?

Obrigado pela atenção

Editado Junho 14, 2012 por Buruca
Adicionar tag CODE