Renombrar Directorios

[Pablo2m]

Hola, tengo que sacar cierta porcion de textos de los subdirectorios dentro de un directorio. Para ello escribi lo siguiente ya que no existe el DirRename :( ¿se les ocurre otra forma?

Código: Seleccionar todo

#Include <File.au3>
#Include <Array.au3>

$raiz= "D:\Downloads" ; Poner ruta sin \ al final
Dim $Sacar[3] =["[128]","[256]","[320]"]

$DirsEnDirs= _FileListToArray($raiz,"*",2) ;lista directorios

For $I=1 To UBound($DirsEnDirs)-1

	 $Carpeta_original= $DirsEnDirs [$I]
	 $Carpeta_modificada = $DirsEnDirs [$I]

	 For $J=1 to $bitrates [0]
	 $Carpeta_modificada= StringReplace	($Carpeta_modificada,$Sacar [$J],"", 1,2)
	 $Carpeta_modificada= StringReplace	($Carpeta_modificada,$Sacar [$J],"",-1,2)
	 Next

	 DirCopy ($raiz&"\"&$Carpeta_original,$raiz&"\"&$Carpeta_modificada)

	 If StringCompare ( $Carpeta_original,$Carpeta_modificada,2) <> 0  then
		 DirRemove ($raiz&"\"&$Carpeta_original,1)
	 EndIf

Next

[BasicOs]

DirMove(@MyDocumentsDir, "C:\Backups\MyDocs")
Salu22:)