Dateititel Attribut auf Dateiname ändern

#NoTrayIcon
#include <File.au3>
#include <Array.au3>
$folder = "C:\Ordner"  
Global $arrExtensions = [".docx",".xlsx"]  

$odocument = ObjCreate("DSOFile.OleDocumentProperties")  
$allFiles = ListFilesRecurse($folder,$arrExtensions)

SplashTextOn("","Dateien werden bearbeitet ... Bitte warten","350","50","-1","-1",35,"","","")  

for $i = 0 to UBound($allFiles) -1
	$odocument.open($allFiles[$i])
	Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = ""  
	Local $aPathSplit = _PathSplit($allFiles[$i], $sDrive, $sDir, $sFilename, $sExtension)
	$odocument.SummaryProperties.title = $aPathSplit[3]
	$odocument.Save()
	$odocument.Close()
Next
SplashOff()
msgbox(0,"","Fertig",2)  

 Func ListFilesRecurse($sSourceFolder,$filter)
     Local $sFile
	 Local $foundFiles
     ; Force a trailing \
     If StringRight($sSourceFolder, 1) <> "\" Then $sSourceFolder &= "\"  
     ; Create an array to hold the folders to be searched
     Local $aFolderList[10] = [1, $sSourceFolder]
     ; Search within listed folders until all have been searched
     While $aFolderList > 0
         ; Get path of folder to search
         Local $sSearchPath = $aFolderList[$aFolderList[0]]
         ; Remove folder from list
         $aFolderList -= 1
         ; Start the search
         Local $hSearch = FileFindFirstFile($sSearchPath & "*.*")  
         ; If failure then return
         If $hSearch = -1 Then Return
         ; Now run through the contents of the folder
         While 1
             ; Get next match
             $sFile = FileFindNextFile($hSearch)
             ; If no more files then close search handle and return
             If @error Then ExitLoop
             ; If a folder then add to array to be searched
             If @extended Then

                 ; #######################################
                 ; Increase folder count
                 $aFolderList += 1
                 ; Double array size if too small (fewer ReDim needed)
                 If UBound($aFolderList) <= $aFolderList Then ReDim $aFolderList[UBound($aFolderList) * 2]
                 ; Add folder
                 $aFolderList[$aFolderList[0]] = $sSearchPath & $sFile & "\"  
                 ; #######################################
             Else
                 ; If a file ...
				 Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = ""  
				 Local $aPathSplit = _PathSplit($sSearchPath & $sFile, $sDrive, $sDir, $sFilename, $sExtension)

				 if _ArraySearch($filter,$aPathSplit[4]) <> -1 then
					_ArrayAdd($foundFiles, $sSearchPath & $sFile)
				 endif
             EndIf
         WEnd
         ; Close search handle
         FileClose($hSearch)

     WEnd
	Return $foundFiles
 EndFunc