VBA İle Klasörden Dosya Kopyalama ve Dosyayı Yeniden Adlandırma

[badmad34]

Merhaba,

Ekteki dosyadan görüleceği üzere, VBA İle aşağıdaki kod yardımıyla bir klasörden başka bir klasöre dosya kopyalayabiliyorum:

For i = 2 To Workbooks("wp_wizard_v2.xls").Sheets("Tasks").Range("A65536").End(3).Row
        k = Workbooks("wp_wizard_v2.xls").Sheets("Tasks").Range("A" & i).Value
FileCopy "C:\Users\Thinkpad\Desktop\a\elma.pdf", "C:\Users\Thinkpad\Desktop\b\elma.pdf"
Next i

Fakat benim yapmak istediğim, kopyalanan dosyanın taşındığı klasöre bulunduğu satırı başına koyarak yeniden adlandırarak kopyalaması. Örneğin; masaüstünde "a" klasöründe bulunan "elma" dosyasını, yine masaüstünde bulunan "b" klasörüne "1. elma" şeklinde taşısın.

Dosyanın başına eklenen kısmı, bulunduğu satırdan alsın. Mesela veri 2. satırdaysa, "1. elma" olarak adlandırsın; 5. satırdaysa "4. elma" olarak adlandırsın. Bulunduğu satırın bir eksiği şeklinde adlandırsın istiyorum. Nasıl yapabilirim?