Cambiar de nombre de Archivo

04/09/2003 - 18:59 por osalazarg | Informe spam
Buenos dias, tengo un pequeño problema como puedo ir Cambiando de nombre
de un archivo, el nombre de este archivo va cambiando dependiendo de la
fecha del Archivo por medio de una macro. Ejemplo:

Tengo el archivo llamado BCON1_20030904_196.DAT y tengo que renombrarlo
diario como BCON1.TXT

Alguien me podria ayudar por favor.

Les agradesco por adelantado su ayuda.

Gracias.






Mensaje enviado desde http://grupos.buscadoc.org

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
06/09/2003 - 11:24 | Informe spam
Hola, O. Salazar G. !

... como puedo ir cambiando de nombre ... un archivo ... va cambiando dependiendo de la fecha [...]
... Ejemplo: ... el archivo llamado BCON1_20030904_196.DAT ... renombrarlo diario como BCON1.TXT



==> El siguiente codigo "toma" la fecha del sistema para buscar el archivo "*_196.DAT" y lo "renombra"
OJO: BORRA el ".txt" [si existe] y el archivo ".dat" lo "reemplazara" <> Modifica la "Ruta" por la "real" (o agrega OTRA si son distintas) :)) <=Sub Renombrar_Archivo()
Dim Ruta As String, Bueno As String, Malo As String
Ruta = "C:\Mis documentos\"
Bueno = "BCon1"
Malo = Bueno & "_" & Format(Date, "yyyymmdd") & "_196"
If Dir(Ruta & Malo & ".dat") <> "" Then
If Dir(Ruta & Bueno & ".txt") <> "" Then Kill Ruta & Bueno & ".txt"
Name Ruta & Malo & ".dat" As Ruta & Bueno & ".txt"
End If
End Sub
_______
Saludos,
Héctor.
MS-MVP
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida