Macro para cambiar nombre a varios archivos
Publicado por Cristian (1 intervención) el 31/08/2011 05:22:10
Hola gente del foro, es la primera vez que participo en el mismo y lo voy hacer con una consulta. Tengo varios archivos en mp3 a los cuales les quiero cambiar el nombre de los mismos. Aquí adjunto una imagen para que puedan comprender realmente lo que quiero hacer.
[img]http://img42.imageshack.us/img42/3703/nombredearchivos.th.jpg[/img]
Paso a explicar en detalle: en la comlumna A tengo la ubicación de los archivos (la cuál no siempre es la misma) y los tengo cargados en filas intercaladas como se ve en la imagen. En la columna B tengo también la ubicación de los archivos pero en el formato de nombre en el que tiene que ser, osea; lo que está antes del guión va en minúsculas a exepción de la primer letra y lo que está después del guión va entre paréntesis y el guión se elimina.
Hace poco comencé a ver programación en la facultad y estamos aprendiendo a programar en Basic, sabiendo que éste es muy parecido a Visual Basic y que además las macros se programan en este lenguaje me ví en la posibilidad de poder hacer el trabajo engorroso de cambiar manualmente los nombres de los archivos de una forma más rápida y fácil, entonces les quería preguntar como hacer una macro que me devuelva como resultado lo que estoy necesitando.
Aquí les dejo el código en Basic como hice yo para cambiar el nombre de un archivo en particular:
input cadena$
longitud=len(cadena$)
pos=instr(cadena$,"-",1)
auxiliar2$=auxiliar2$+mid$(cadena$,pos+2,longitud)
auxiliar2$="("+auxiliar2$+")"
primeraletra$=left$(cadena$,1)
auxiliar$=mid$(cadena$,2,pos-2)
auxiliar$=lower$(auxiliar$)
final$=primeraletra$+auxiliar$+auxiliar2$
print final$
name "E:\Acercate Bandida - By Gato In The Mix.mp3" as "E:\"+final$+".mp3"
Aclaro que nunca hice una macro en Excel. Así que explíquenme de una forma detallada. Gracias a todos y espero me hayan entendido.
[img]http://img42.imageshack.us/img42/3703/nombredearchivos.th.jpg[/img]
Paso a explicar en detalle: en la comlumna A tengo la ubicación de los archivos (la cuál no siempre es la misma) y los tengo cargados en filas intercaladas como se ve en la imagen. En la columna B tengo también la ubicación de los archivos pero en el formato de nombre en el que tiene que ser, osea; lo que está antes del guión va en minúsculas a exepción de la primer letra y lo que está después del guión va entre paréntesis y el guión se elimina.
Hace poco comencé a ver programación en la facultad y estamos aprendiendo a programar en Basic, sabiendo que éste es muy parecido a Visual Basic y que además las macros se programan en este lenguaje me ví en la posibilidad de poder hacer el trabajo engorroso de cambiar manualmente los nombres de los archivos de una forma más rápida y fácil, entonces les quería preguntar como hacer una macro que me devuelva como resultado lo que estoy necesitando.
Aquí les dejo el código en Basic como hice yo para cambiar el nombre de un archivo en particular:
input cadena$
longitud=len(cadena$)
pos=instr(cadena$,"-",1)
auxiliar2$=auxiliar2$+mid$(cadena$,pos+2,longitud)
auxiliar2$="("+auxiliar2$+")"
primeraletra$=left$(cadena$,1)
auxiliar$=mid$(cadena$,2,pos-2)
auxiliar$=lower$(auxiliar$)
final$=primeraletra$+auxiliar$+auxiliar2$
print final$
name "E:\Acercate Bandida - By Gato In The Mix.mp3" as "E:\"+final$+".mp3"
Aclaro que nunca hice una macro en Excel. Así que explíquenme de una forma detallada. Gracias a todos y espero me hayan entendido.