|
Hallo Dave,
im Wesentlichen kannst du das so machen. Die Algorithmen für die Umbennung der Dateien kannst du bestimmt selbst herstellen.
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.folderexists(dein neuer Ordner) = False Then g = FSO.createfolder(dein neuer Ordner)
Set fldr = FSO.getfolder("c:\protokolle"))
For Each Datei In fldr.Files
Anweisungen für den neuen Namen (neuerName) in Abhängigkeit des alten (Datei.Name)
c = FSO.copyfile(datei, "c:\protokolle\" & neuerName, True)
next
Sieh in die VBA-Hilfe für die Bedeutung der Befehle. Es kann sein, dass noch Änderungen erforderlich sind.
Gruß
Holger
|