so geht's:
Public Sub Zeit_aendern()
Dim myFSO As Object, MyFile As Object, strTime As String, datTime As Date
Set myFSO = CreateObject("Scripting.FileSystemObject")
For Each MyFile In myFSO.GetFolder("D:\Eigene Dateien\Testordner").Files 'hier Ordnername anpassen !!
strTime = Mid$(MyFile.Name, 8, 6)
datTime = CDate(Left$(strTime, 2) & ":" & Mid$(strTime, 3, 2) & ":" & Right$(strTime, 2)) - TimeSerial(1, 22, 0)
MyFile.Name = Left$(MyFile.Name, 7) & Format(datTime, "hhmmss") & Right$(MyFile.Name, 13)
Next
Set myFSO = Nothing
End Sub
Gru?
Nepumuk