Hallo Freunde von SC,
ich haben folgendes Makro zum Umbenennen:
Makro verbessern
ich haben folgendes Makro zum Umbenennen:
'Beginn von (Deklarationen)
' Aktives Ordnerfenster
Set FolderWindow = Workspace.ActiveWindow.FolderWindows.Active
' Gewählte Dateien hinzufügen
MultiRename.RemoveAll
MultiRename.Add(FolderWindow.SelectedItems)
' Token für Dateiname und Erweiterung
MultiRename.FileNameToken = "AB_[n]"
MultiRename.FileExtToken = "[e]"
' Dateien umbenennen
MultiRename.Rename
' Ordnerfenster aktualisieren...
' Aktives Ordnerfenster
Set FolderWindow = Workspace.ActiveWindow.FolderWindows.Active
' Gewählte Dateien hinzufügen
MultiRename.RemoveAll
MultiRename.Add(FolderWindow.SelectedItems)
' Token für Dateiname und Erweiterung
MultiRename.FileNameToken = "AB_[n]"
MultiRename.FileExtToken = "[e]"
' Dateien umbenennen
MultiRename.Rename
' Ordnerfenster aktualisieren...
Makro verbessern