So ich mag nicht mehr, das wurde mir zuviel, ich belass es so Hauptsache es macht das wichtigste
[autoit]#RequireAdmin
#include <Array.au3>
#include <file.au3>
$dir = @ScriptDir ; Skriptverzeichnis
[/autoit][autoit][/autoit][autoit]$array = _FileListToArray($dir)
[/autoit][autoit][/autoit][autoit]; ===============================================================================
; Um die Daten in einem Listview anzuzeigen
;
;_ArrayDisplay($array, "")
;===============================================================================
For $i = 1 To UBound($array)-1
[/autoit][autoit][/autoit][autoit]FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringRegExpReplace(StringLower($array[$i]), '\h+|-|\+', '_'), '\+|\-|_+', '_'), 1)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringRegExpReplace(StringUpper($array[$i]), '\h+|-|\+', '_'), '\+|\-|_+', '_'), 1)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringRegExpReplace(StringLower($array[$i]), '\A_', ''), '\A_', ''), 1)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringRegExpReplace(StringUpper($array[$i]), '\A_', ''), '\A_', ''), 1)
FileSetAttrib( $array[$i], "-R-A-S-H-N-O-T")
Next