Otra pequeña herramienta para renombrar varios ficheros fácilmente.
Código fuente: https://github.com/jsbsan/renombrar




Saludos

Julio

Muy útil, sí señor.

Gacias, Julio.


Saludos

Muy bueno pero si le agregas la posibilidad de filtrar los archivos a cambiar su nombre, seria genial. Por ejemplo:
elijo un dir con 1000 archivos pero quiero aplicar cambios a los .pdf solamente; o cambios a los que tienen fechas > 01-01-2000; etc

Porque es una situación que se puede dar seguido.

Otra mejora sería aplicar números de serie a los archivos, que viene muy bien para renombrar carpetas con muchos ficheros de fotos.

Algo así: img_0001, img_0002, etc. Es decir, elemento prefijo o sufijo con números correlativos a partir del que decidamos.

Saludos

TercoIde:

filtrar los archivos a cambiar su nombre,

Yo para eso, uso el explorador de archivo y su buscador. En mi caso, es CAJA, y pulsando Ctrl+F, pongo el termino de la busqueda, aplico el  filtro y, copio y pego el resultado en mi programa:

---

Jguardon:

Otra mejora sería aplicar números de serie a los archivos, que viene muy bien para renombrar carpetas con muchos ficheros de fotos.

Pues si, me lo apunto para añadirlo.

Saludos

Julio

Yo para eso, uso el explorador de archivo y su buscador. En mi caso, es CAJA, y pulsando Ctrl+F, pongo el termino de la busqueda, aplico el  filtro y, copio y pego el resultado en mi programa:

podrias tener un explorador en el formulario tambien y un boton que rellene el listado de archivos a renombrar; asi evitar el copy/paste

TercoIde:

asi evitar el copy/paste

Todo lo contrario, el copy/paste le da mucha potencia al programa (de hecho es la vía que uso siempre), porque puedo seleccionar los ficheros como quiera (con filtro en CAJA, con las teclas CTRL seleccionar los que quiero, etc...)., sin tenerlo que programarlo yo
 

podrias tener un explorador en el formulario tambien 

Ya tengo un explorador de archivos en el sistema: CAJA, ¿para que voy a añadir más código al programa (con sus correspondientes complicaciones, limitaciones y bug..), para hacer algo que hace bien CAJA. Y cuando digo CAJA, también puedo usar otros exploradores: PCManFM, KRUSADER, DOLPHIN, etc...

¿para que reinventar la rueda?

Saludos

Julio

¿para que reinventar la rueda?

¡Porque está en nuestro ADN Linuxero, oiga!

Ya tengo un explorador de archivos en el sistema: CAJA, ¿para que voy a añadir más código al programa (con sus correspondientes complicaciones, limitaciones y bug..), para hacer algo que hace bien CAJA. Y cuando digo CAJA, también puedo usar otros exploradores: PCManFM, KRUSADER, DOLPHIN, etc... ¿para que reinventar la rueda?

Hola Julio, tal vez los comentarios de los compañeros no vayan en el sentido de cambiar la forma de trabajo del programa sino de agregar nuevas opciones.
Mira, por ejemplo, seria sencillo hacer un buscador de archivos con el comando find que es muy rápido, mucho mas que caja o cualquier gestor de archivos.
Por ejemplo esta función de búsqueda de archivos por tipos de extensión te devuelve inmediatamente una lista que podrías usar fácilmente en el programa.
Incluso se los usuarios podrían crear sus propias "Recetas" de búsqueda y qagregarlas al programa.

Código:

'' <b>RAD Extension.</b><br>
'' Return a files list nested in a directory using a find command

Static Public Function ScanFiles(sPath As String, ext As String[], Optional maxdepth As Integer) As String[]

  Dim out As New String[]
  Dim t As String
  Dim ex As String

  If maxdepth = Null Or maxdepth < 1 Then
    maxdepth = 1
  Endif

  If Exist(sPath) Then
    Select ext.Count
      Case 0
        Shell "find '" & sPath & "' -maxdepth " & CStr(maxdepth) & " -type f -printf '%p\n' 2>&1" To t
      Case 1
        Shell "find '" & sPath & "' -maxdepth " & CStr(maxdepth) & " -type f -name '*.'" & ext[0] & " -printf '%p\n' 2>&1" To t
      Case Else
        ex = "\\( -name \"*."
        ex &= ext.Join("\" -o -name \"*.")
        ex &= "\" \\)"
        Shell "find '" & sPath & "' -maxdepth " & CStr(maxdepth) & " -type f " & ex & " -printf '%p\n' 2>&1" To t
    End Select

    out = Split(t, "\n")

    If out.Count > 0 Then
      If out[out.Max] = "" Then
        out.Remove(out.Max, 1)
      Endif
    Endif

  Endif

  Return out

End

Gracias por compartir el programa.
Saludos.

Actualización del programa:v3.00

-> filtro: TercoIde, lo he incorporado como un combobox. Tincho , lo hago de otra manera, más flexible (seguramente será más lenta), pero podemos filtrar tanto por extensión como palabra contenida en el nombre del fichero.
-> Numerar fichero: Jguardon, añadido.

Descarga: https://github.com/jsbsan/renombrar