............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Renombrar Archivos

Ver el tema anterior Ver el tema siguiente Ir abajo

Renombrar Archivos

Mensaje por GalileoGali el Dom Feb 24, 2008 11:54 pm

¿Cómo dar un nuevo nombre a un archivo mediante código?
Código:
Sub ReNombrarArchivo()
Dim stNombreorigen As String, stNombrefinal As String
    stNombreorigen = ThisWorkbook.Path & "\11.txt"
    stNombrefinal = ThisWorkbook.Path & "\22.txt"
    Name stNombreorigen As stNombrefinal
End Sub

¿Cambiar de Ubicación un archivo?
Código:
Sub ReubicarArchivo()
Dim stNombreorigen As String, stNombrefinal As String
    stNombreorigen = ThisWorkbook.Path & "\11.txt"
    stNombrefinal = "C:\Documents and Settings\GLGLILY\Mis documentos" & "\11.txt"
    Name stNombreorigen As stNombrefinal
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.