
17/04/2003, 11:25
|
| | Fecha de Ingreso: julio-2002 Ubicación: Stgo
Mensajes: 164
Antigüedad: 22 años, 9 meses Puntos: 0 | |
ya encontre la solucion!..
no existe una instruccion como copy *.txt to c:
pero hay algo que lo suple...
me genera una funcion que le mando por paramtro el archivo que deseo copiar y manejo en mi funcion desde donde saco el archivo y donde lo copio :) aqui se las dejo.. suerte
function copiar_archivos_informe(nombre_archivo)
Dim FSObject, Fichero , NombreAnterior, NombreNuevo
'Inicialización
NombreAnterior =nombre_archivo
NombreNuevo =nombre_archivo
' Instanciamos el objeto
Set Fichero = Server.CreateObject("Scripting.FileSystemObject")
' Asignamos el fichero a renombrar a la variable fich
Set Fichero = Fichero.GetFile(Server.MapPath("..\..\ctl\" & NombreAnterior))
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fichero.Copy(Server.MapPath("..\" & NombreNuevo))
' finalmente borramos el fichero original
Set Fichero = Nothing
Set FSObject = Nothing
end function
%>
archivo = "blabla.txt"
copiar_archivos_informe(archivo) |