klasör ve alt klasör isim değiştirme

[ekmekevi]

merhaba arkadaşlar bir sipariş çalışmam var bu çalışmada bir temsilci klasörü onun içinde bir bayi klasörü onun içindede excel dosyası var
temsilci klasörü sabit kalacak ve içindeki firma klasörünün isminı değiştirmek istiyorum excel vba ile yardımcı olurmusunuz excel dosyasını değiştiriyorum fakat klasörü
beceremedim

 

[ÖmerFaruk]

Sub RenameFolder()
Dim OldFolderName As String, NewFolderName As String
    OldFolderName = "C:\EskiKlasör"
    NewFolderName = "C:\YeniKlasör"
    Name OldFolderName As NewFolderName
End Sub

 

[ekmekevi]

teşekkür ederim nextlevel çok hızlı oldu

 

[ÖmerFaruk]

Başka bir örnek uygulama

Sub RenameAllFolders()
Dim Folder As Range
Dim FolderPath As String
    'Klasör yolunu A1 den alıyor
    FolderPath = Range("A1").Value
    On Error Resume Next
    'AA:A100 aralığında eski alt klasör adları
    'B2:B100 aralığında yeni alt klasör adları
    For Each Folder In Range("A2:A100")
        Name FolderPath & "\" & Folder.Text As FolderPath & "\" & Folder.Offset(0, 1).Text
    Next Folder
End Sub