Renombrar varios ficheros de una carpeta |
Responder |
Autor | ||
mdominguez
Habitual Unido: 25/Junio/2010 Localización: España Estado: Sin conexión Puntos: 112 |
Tema: Renombrar varios ficheros de una carpeta Enviado: 21/Mayo/2020 a las 00:03 |
|
Buenas tardes: Estoy creando una función que renombre los ficheros de una carpeta, con un criterio que le envío (número de registro).
hasta la línea StrArchivo = Dir(RutApltlL, 0) funciona, porque me devuelve el nombre del fichero, pero no consigo que me renombre el archivo. ¿Que código me falta o sobra? Gracias. Editado por mdominguez - 21/Mayo/2020 a las 00:07 |
||
mounir
Colaborador Unido: 09/Febrero/2009 Localización: Asturias-España Estado: Sin conexión Puntos: 6479 |
Enviado: 21/Mayo/2020 a las 00:28 | |
Un Saludo.
|
||
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 21/Mayo/2020 a las 00:46 | |
Hola
Me temo que estas "redundando" el código. Si recorres la colección Files, ¿porque preguntar por los ficheros? Te presento una alternativa. La única duda es la linea que genera el Wexped. ¿Que es Mid(strArchivo, ".")? Como he asumido que querías pasarle la extensión, lo he cambiado
Escrito al vuelo |
||
mdominguez
Habitual Unido: 25/Junio/2010 Localización: España Estado: Sin conexión Puntos: 112 |
Enviado: 21/Mayo/2020 a las 09:28 | |
Buenos días: Xavi, me he permitido adaptar la función corregida porque no me funcionaba.
efectivamente Mid(StrArchivo, ".") es un apaño que tengo para averiguar la extensión de un archivo. La función, tal como está, funciona, pero siempre hay un peeeero, y ese pero no es otro que en ocasiones el fichero origen tiene un carácter "raro" como por ejemplo 'veh├¡culo', y cuando llega ese fichero deja de hacer su trabajo la función. Tengo una función de Texto_raro pero no se como poner añadir el caracter ascii 195
Editado por mdominguez - 21/Mayo/2020 a las 09:40 |
||
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 21/Mayo/2020 a las 09:51 | |
Pregunta: ¿ese carácter extraño debe ser sustituido o bastaría con ser obviado?
veh├¡culo --> vehículo o vehculo Si puede ser obviado, yo utilizaría una función para dejar solo letras/numeros Function LimpiaTexto(strTexto As String) As String Dim l As Long Dim strTmp As String Dim strTextoLimpio As String strTextoLimpio = "" For l = 1 To Len(strTexto) strTmp = Mid(strTexto, l, 1) Select Case Asc(strTmp) Case 48 To 57, 65 To 90, 97 To 122 strTextoLimpio = strTextoLimpio & strTmp Case Else End Select Next LimpiaTexto = strTextoLimpio End Function Combinando ambas funciones obtendrías el cambio de acentos y raros con TextO_RarO y la limpieza de los MUY RARO con LimpiaTexto |
||
mdominguez
Habitual Unido: 25/Junio/2010 Localización: España Estado: Sin conexión Puntos: 112 |
Enviado: 26/Mayo/2020 a las 22:43 | |
Buenas noches
Xavi. He estado ausente unos días, muchas gracias. Ya está solucionado. Se puede cerrar el hilo. Saludos
|
||
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |