Ver Mensaje Individual
  #3 (permalink)  
Antiguo 25/10/2004, 04:12
Avatar de peloteitor
peloteitor
 
Fecha de Ingreso: noviembre-2003
Ubicación: Madrid
Mensajes: 849
Antigüedad: 20 años, 6 meses
Puntos: 1
puedes copiar archivos incluso si estan abiertos de esta manera:

Dim Copiado
Dim Archivo

Set Archivo = CreateObject("Scripting.FileSystemObject")

Copiado = Ruta & "\" & Nombre_archivo & ".txt"
Archivo.copyfile Copiado, "c:\BD\" & Nombre_archivo & ".txt"
__________________
El sexo sin amor es una experiencia vacía. Pero como experiencia vacía es una de las mejores.

Woody Allen