
20/05/2003, 20:01
|
| | Fecha de Ingreso: marzo-2002
Mensajes: 449
Antigüedad: 23 años Puntos: 0 | |
sub probando()
dim x as integer
x=freefile
open app.path & "\elarchivo" for output as x
print x,"escribir algo"
close x
end sub
eso te sirve como ves para crear un sencillo archivo de acceso secuencial en modo de escritura. |