Dosya Adlandırmak

[sicilyali]

Arkadaşlar, bu sitede ve birçok yerde aradım fakat bulamadım; konunun yeri umarım doğrudur. Benim sorunum; bir klasör içindeki dosya isimlerinin (.tiff dosyaları) exceldeki 2 sütun halinde eşleştirilmiş listedeki isimlerle değiştirilmesi konusunda yardımlarınızı rica ediyorum. Örneğin klasördeki 100a.tiff dosyasının isminin excel listemdeki karşılığı 102122.tiff olup, benim istediğim excel sütunundaki 102122.tiff ismi gerçekte olan dosya ismimle yerdeğiştirmesi.
Birçok toplu dosya adlandırma programına baktım ne yazıkki hiç biri dışardan import dosyası alıp isim değiştirmiyor.
Önerebileceğiniz bir program var mıdır? lütfen yardımcı olun ismi düzenlenecek 20.000'e yakın veri var elimde. İlginize şimdiden teşekkürler.
Saygılarımla.

[Arslanbey]

Örnek ekleyiniz lütfen .

[Bülent Öztürk]

A sütunu: Klasör yolu
B sütunu: Mevcut isim
C sütunu: Yeni isim
şeklinde yazıp, aşağıdaki kod ile dener misiniz?

Kod: [Seç]

Sub ExcelceDosyaAdlandir()
Rem Excelce.Net
On Error GoTo hata
For excelce = 2 To Range("A1:A65530").End(3).Row
    MecvutAd = Range("A" & excelce) & Application.PathSeparator & Range("B" & excelce)
    YeniAd Range("A" & excelce) & Application.PathSeparator & Range("C" & excelce)
    MecvutAd As YeniAd
Next excelce
MsgBox "İşlem Tamam."
Exit Sub
hata:
MsgBox Err.Description, vbCritical, "Hata oluştu:" & Err.Number
End Sub