Suche eine Batch,Tool oder Programm zum umbenennen von Dateien

@ECHO OFF &SETLOCAL
cd /d "%userprofile%\Desktop\Scanner"  
:loop
rem 10 Sekunden warten
ping -n 10 localhost >nul
rem wenn  01.12.2013.0001.pdf nicht vorhanden, zurück
if not exist "%date%.0001.pdf" goto:loop  
rem ansonsten umbenennen, sec100 entfernen
set "MyTime=%time:~0,8%"  
rem vorm umbenennen ":" in "." umwandeln  
ren "%date%.0001.pdf" "%date%.%MyTime::=.%.pdf"  
rem und von vorn
goto:loop

'Pfad der zu überwachen ist  
Const strPath = "C:\temp\source"  
'Überwachungs-Interval in Sekunden  
Const intInterval = "5"  
'------------------------------  
strDrive = Split(strPath,"\")(0)  
strFolder = Replace(Split(strPath,":")(1),"\","\\") & "\\"  

Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Set objShell = CreateObject("Wscript.Shell")  
Set objWMIService = GetObject( "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2" )  

strQuery = "Select * From __InstanceOperationEvent" _  
    & " Within " & intInterval _  
    & " Where Targetinstance Isa 'CIM_DataFile'" _  
    & " And TargetInstance.Drive='" & strDrive & "'"_  
    & " And TargetInstance.Path='" & strFolder & "'"  

Set colEvents = objWMIService.ExecNotificationQuery (strQuery) 

Do 
    Set objEvent = colEvents.NextEvent()
    Set objTargetInst = objEvent.TargetInstance
    
    Select Case objEvent.Path_.Class 
        Case "__InstanceCreationEvent"   
            filename = objTargetInst.Name 
            If LCase(Right(filename,7)) = "001.pdf" Then  
				datum = Replace(Replace(Now(),":",".")," ",".")  
				newFileName = datum & ".pdf"  
				Set f = fso.GetFile(filename)
				f.Name = newFileName
			End If 
    End Select 

Loop

<#
    Monitors folder for new files and renames specific files
#>
# Variables -------------------------
# local folder path to monitor
    $localFolderPath = "C:\Temp\source"   
# interval to check for changes
    $intMonitorInterval = 2
# file pattern in folder to monitor
    $strFilePattern = "%001.pdf"  
# -----------------------------------

# get seperate drive and path for wql query specific formatting
$strDrive = $localFolderPath.Split("\")  
$localFolderPath.TrimEnd("\")  
$strPath = $localFolderPath.Split(":")[1].Replace("\","\\")+"\\"  

# action fired when event occurs
$eventaction = {
    #object which fired the event
    $obj = $Event.SourceEventArgs.NewEvent.TargetInstance
    
    #create reference to a wmi-Object to get access to a function which converts wmi-datetime-strings to .net DateTime-Object
    $objWMI = (gwmi -Class "Win32_Process")  
    $fileModifiedDate = $objWMI.ConvertToDateTime($obj.LastModified)
    #new filename
    $newName = "$(get-date $fileModifiedDate -Format 'dd.MM.yyyy HH.mm.ss').pdf"  
    #rename the file
    Rename-Item -Path $obj.Name -NewName $newName
    #write some info to the console
    write-host "Neue Datei im Ordner: '"$obj.Name"' wurde umbenannt in '"$newname"'"  
}

# WQL Query which monitors a folder every x seconds for a new file appearing with a specific filename
$query = "Select * From __InstanceCreationEvent WITHIN $intMonitorInterval`  
          where TargetInstance ISA 'CIM_DataFile'`  
          and TargetInstance.Drive = '$strDrive'`  
          and TargetInstance.Path = '$strPath'`  
          and TargetInstance.Name like '$strFilePattern'"  

#actually register Event-Subscriber
Register-WmiEvent -query $query -SourceIdentifier "Monitor Folder Watcher" -action $eventaction  

# to end monitoring the event, call
# Unregister-Event -SourceIdentifier "Monitor Folder Watcher"