Klasör içindeki dosya isimlerinin değişmesi

[levo26]

Merhaba;

D:\prp\Bengü klasörümde bulunan;

Bengü (2011) - 01.Aşkım (By Volga Tamöz).mp3 olarak bulanan dosya isimlerindeki aşağıdaki şekilde değiştirmek istiyorum. Başta bulunan Bengü (2011) - kaldırmak istiyorum.

Orjinali: Bengü (2011) - 01.Aşkım (By Volga Tamöz).mp3

olması gereken: 01.Aşkım (By Volga Tamöz).mp3

 

[Ömer]

Merhaba,

Linki inceleyiniz.

Dosya adlandırmak

.

 

[levo26]

Sn. Ömer Bey,

Linki inceledim. Linkte a sütununa mevcut dosya isimleri, b sütununa olması gerekenleri yazarak şeklinde bir örnek mevcut. Kodlar çalışmam için uygun değil. Diğer yandan daha araştırarak aşağıda bulduğum kod üzerinde oynayarak yapmaya çalıştım....

Const isim = "_"
Sub Yeni_Ad_degistir()
ChDrive "D"
ChDir ("D:\prp\Bengü")
Dosya = Dir("*.xls")
While Dosya <> ""
On Error GoTo hata
If InStr(1, Dosya, isim) >= 1 Then GoTo son
Name "D:\prp\Bengü" & Dosya As "D:\Prp\Bengü\" & isim & Dosya
son:
Dosya = Dir

Wend
hata:
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodda sadece yol adını değiştirerek (kırmızı ile yazılan yer) dener misiniz?

Sub Dizin_Dosya_Adi_Degistir()
 
    On Error Resume Next
 
    Dim dosya, _
        Yol     As String, _
        EskiAd  As String, _
        YeniAd  As String
 
    Yol = "[B][COLOR=red]C:\ZZZZ[/COLOR][/B]"
 
    Yol = Yol & Application.PathSeparator
    dosya = Dir(Yol & "*.[COLOR=black]mp3[/COLOR]")
 
    While dosya <> ""
 
        EskiAd = dosya
        dosya = Dir
        YeniAd = Split(EskiAd, " - ")(1)
        Name Yol & EskiAd As Yol & YeniAd
 
    Wend
 
End Sub

 

[Necdet]

Çözüme ulaşıldı mı ulaşılmadı mı bir geri bildirim alamadım.

Neden ki?

 

[levo26]

Çözüme ulaşıldı mı ulaşılmadı mı bir geri bildirim alamadım.

Neden ki?

Hocam izin dönemi, anca test edebildim. Çok teşekkür ederim. Sağolun.