07/06/2005, 12:36
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 3 meses Puntos: 535 | |
| Creo que es porque estás abiendo el archivo de texto con el parámetro 2 que es "forfriting" que lo que hace es ree3mplazar todo el contenido al agregar uno nuevo. Lo tendrías que abrrir con "forappending" para agregar contenido manteniendo el anterior. No recuerdo cuál número es, pero estoy casi seguro que es el 8 (probalo). O sea, tendrías que cambiar el número 2 por el número 8 en la siguiente línea:
Set writefile = fs.OpenTextFile(filename, 2, True)
__________________
...___... |