Renombrar ficheros en el servidor


http://www.asptutor.com

Renombrar ficheros en el servidor

Colaboración enviada por gsus

Ejemplo de como copiar y/o renombrar un fichero en el servidor

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>renombrar un fichero con asp</title>
</head>

<body>
<% 
'------------------------------------------------------------------------------------
' by gsus internet art 
' http://www.cedecero.com/gsus
' codigo para su libre utilización
'------------------------------------------------------------------------------------
   
    'Previamente el fichero  Anterior.txt 
    'ha de existir en nuestra carpeta.
	
    'Declaracion de variables
    Dim FSO, Fich , NombreAnterior, NombreNuevo 
    'Inicialización
    NombreAnterior ="Anterior.txt"   
    NombreNuevo ="Nuevo.txt"   
    
  ' Instanciamos el objeto
   Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
   ' Asignamos el fichero a renombrar a la variable fich
   Set Fich = FSO.GetFile(Server.MapPath("\" & NombreAnterior)) 
   ' llamamos a la funcion copiar, 
   'y duplicamos el archivo pero con otro nombre
   Call Fich.Copy(Server.MapPath("\" & NombreNuevo)) 
    ' finalmente borramos el fichero original
   Call Fich.Delete() 
    
   Set Fich = Nothing 
   Set FSO = Nothing 


 %>
</body>
</html>