Visual Basic - renombrar un fichero

Life is soft - evento anual de software empresarial
 
Vista:

renombrar un fichero

Publicado por luna (2 intervenciones) el 23/05/2007 08:58:51
buenas!!!

he creado un programa con visual basic que me copia el contenido de un fichero en otro, ahora quiero renombrar este nuevo fichero con el nombre del original, en la misma ubicacion, es posible? Alguien sabria como hacerlo?

saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:renombrar un fichero

Publicado por fernando (102 intervenciones) el 23/05/2007 11:51:46
Dim nombre As String
Dim nuevonombre As String

On Error Resume Next

nombre = "c:\viejo.txt"
nuevonombre = "c:\nuevo.txt"

Name nombre As nuevonombre 'renombrar archivo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:renombrar un fichero

Publicado por luna (2 intervenciones) el 23/05/2007 12:17:32
muchas gracias, y ahora como hago para eliminar el archivo viejo?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:renombrar un fichero

Publicado por fernando (102 intervenciones) el 23/05/2007 13:34:04
No hay dos archivos, es el mismo que cambia de nombre.
De todos modos, para borrar un archivo usar
kill [nombre_archivo]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:renombrar un fichero

Publicado por Legin (1 intervención) el 30/05/2007 16:48:47
Hola he tratado desde hace un buen tiempo, renombrar un archivo en la misma ubicacion pero al darle name nombre as nuevonombre me tira un error en tiempo de ejecucion: Error '5' en tiempo de ejecucion: Lamada a procedimiento o argumento no valido

La verdad ya no se que hacer porque la instruccion esta bien, aqui les dejo para que me ayuden por favor!!!!

Dim var As Integer
Dim nomact As String
Dim nomfut As String
Dim I As Integer
Dim fecha As String
Dim hora As String
d.Drive = "c:\"
Dir.Path = d.Drive & "\PRUEBA"
f.Pattern = "*.TXT"
f.Path = d.Drive & "\PRUEBA"
var = f.ListCount - 1

For I = 0 To var
nomact = f.Path & "\" & f.List(I)
fecha = Year(FileDateTime(f.Path & "\" & f.List(I))) & "-" & Month(FileDateTime(f.Path & "\" & f.List(I))) & "-" & Day(FileDateTime(f.Path & "\" & f.List(I)))
hora = Hour(FileDateTime(f.Path & "\" & f.List(I))) & ":" & Minute(FileDateTime(f.Path & "\" & f.List(I))) & ":" & Second(FileDateTime(f.Path & "\" & f.List(I)))
'On Error Resume Next
nomfut = Mid(f.List(I), 1, Len(f.List(I)) - 4)
nomfut = f.Path & "\" & nomfut & "_" & fecha & "_" & hora & ".txt"
Name nomact As nomfut 'ES AQUI DONDE ME TIRA EL ERROR!!!!
Next I
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar