Foro de elhacker.net

Hola y de antemano gracias.

Tengo el siguiente codigo para crear un archivo ".txt"

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("C:\Prueba1.txt", True)
tf.WriteLine "HOLA"
tf.Close
 

Pero el problema es que si vuelvo a correr el programa se vuelve a crear el archivo y lo que a mi me gustaria es que lo abra y siga escrbriendo en el. Alguien sabe como.

Gracias ;D

la forma de abrir el azrchivo no es la correcta
deber abrirlo en forma de apped.
es decir..abrir para actualizar la informacion.
claro, que con la FileSystemObject..no me manejo mucho
asi que no se que atributo hayt que darle al archivo para que no se reescriba
con apis.es relativamente facil..

Por q no usas open en vez de FileSystemObject?? a mi por lo menos me parece mas sencillo  :xD

o por que no usas la api
CreateFile ...  ?
ami me resulta mas facil..
lo unico que hay que declararla
pero si pones el archivo winnt .
ni eso..

:D

Para crear un archivo no es más fácil hacer esto??

Sub Crear_Archivo()
 
Open ("C:\Prueba.txt") For Append As #1,
   Print #1, "El texto que quieras"
   Close #1
 
End Sub
 

Se agregará lo que escribas al nuevo archivo, no se sustituirá como dices que te ocurre ahora ;)

Saludos.

Claro la clave como te decia yo antes es esto

la forma en que abres el archivo
con eso le indicamos al VB:
que lo abra para agregar informacion y no para reescribirlo ni suplantarlo.

Una buena idea es no usar FSO ya este no funciona en todos los sistemas, es mejor usar VB code o si queres velocidad API.

Un comentario, vi que en todos los ejemplos que tratan archivos usan #1, esto es mas facil pero si lo pueden evitar ej: dim iMyFile as integer, iMyfile =freefile, les va ha ahorrar muchos dolores de cabeza.

Y como puedo hacer la comparacion si el archivo ya existe. Ya que me gustaria hacer algo asi.

if "existe el archivo" then
   que esciba en el archivo
else
   que lo cree y escriba en el archivo
end if
 

De antemano gracias

Es bonito que te digan pero asi no vas a aprender mira te la pongo facil

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm

cuando termines de leer , seras un maestro para manejo de archivos en VB

Oye gracias esta buenisimo el Tutorial y de pasada vi muchos mas, ya encontre la solucion a mi problema, pongo el codigo y la explicacion para los que entren a leer el tema.

Dim mun As Integer
num = FreeFile
Open "C:\bb.txt" For Append As num
Print #num, "Hola"
Close
 

NOTA[/b][/color]

Si el archivo de texto no existe, lo genera y escribe en el, si ya existe comienza a introducir datos al final del mismo, y si el archivo ya existe pero esta vacio, solo escribe en el.
Con esto no hay necesidad de hacer la comaracion.
De nuevo muchas gracias.

ja,ja,ja!!  Red Mx por lo que veo estaban tratando de entender el codigo del la conexion del troyano  (tutorial) de xenon.y de apoco preguntaban todo lo que les dio problemas!! ja,ja,ja  a meter horas muchachos!!! que yo tambien las meti y le busque el porque a las cosas!! tambien me cague en to!! porque no funcionaban las sentencias y busque el porque? . y sigo aprendiendo!! y ya meti mis cositas y me compre un libro de iniciacion a visual basic etc,etc.

recordemos: tropezon no es caida!! a buscar info!!!  ya funcionara, solo es cuestion de tiempo e interes.   saludos        un aprendis.-