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

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida