excel dışındaki dosyaların ismini değiştirme

[goklerhakimi]

Merhaba,

belirli bir klasörde excel dışında dosyalarım var (.avi dosyaları gibi) excel yardımıyla bunların isimlerini değiştirebilir miyim? ekteki dosyada, ilgili klasörde bulunan dosyaların mevcut halleri ve olmasını istediğim isimleri ile ufak bir örnek hazırladım. şimdiden yardımlarınız için teşekkürler.

 

[hamitcan]

Aşağıdaki kodu dener misiniz?
Not: Dosyaların "D:\deneme" klasörü içinde olduğunu varsaydım.

Sub dosyaisimlerinidegistir()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("D:\deneme").Files
Set bul = Columns(1).Find(dosya.Name, lookat:=xlWhole)
If bul Is Nothing Then
Else
FileCopy dosya, "D:\deneme\" & Cells(bul.Row, 2): dosya.Delete
End If
Next
End Sub

 

[goklerhakimi]

Sayın hamitcan, yazdığınız kod için teşekkürler. nedense bende çalışmadı. ama sizin yazdığınızdan öğrendiğim kısmıyla bir tane de ben yazdım, çalışıyor. teşekkürler.
Sub isim_degistir()
Dim bul, degistir, t
t = 2
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Deneme").Files
Set bul = Columns(1).Find(dosya.Name, lookat:=xlWhole)
Set degistir = Cells(t, 2)
Name bul As degistir
t = t + 1
Next
End Sub