Toplu dosya adı değiştirme

[zetoda]

Örneğin C:/belgelerim/Ahmet klasörünün altında

alfa_1
alfa_2
.
.
.
alfa_100

adında dosyalar var. Xp'nin özelliğini kullanıp hepsini birden değiştirmek istersem örneğin alfa yerine beta yapıcam

beta (1)
beta (2) şeklinde değiştiriyor beta kelimesi ile "(" işareti arasında boşluk var böyle oluncada çalışmaları servera link olarak verince %20 olarak gözüküyor boşluklar kısacası çalışmıyor.

Toplu haldeboşluk olmaksızın alfa_1 den 100e kadar olan dosyaların ismini nasıl beta_1, beta_2 gibi yapabilirim.


Teşekkürler kolay gelsin.

Aradım ama bulamadım yada yanlış şekilde arama yaptım

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub addegistir()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\belgelerim\ahmet\").Files
ad = Replace(dosya.Name, "alfa", "beta")
Name "C:\belgelerim\ahmet\" & dosya.Name As "C:\belgelerim\ahmet\" & ad
Next
End Sub