Renombrar Directorios
Publicado: 10 Jun 2010, 03:59
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