Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/04/2003, 11:25
Canicasjr
 
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)
__________________
Saludos
Alejandro Antonio :-D
from ChiLE :pensando:
[email protected]
icq:14648436
[email protected]