Hola Como estan foreros y moderadores saben tengo una duda bueno no es una duda no e hacerlo la creacion de archivos en vb saben que la ayuda plantea esto para la creacion de dichos archivos:
Sub CreateAfile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\archivoprueba.txt", True)
a.WriteLine("Esto es una prueba.")
a.Close
End Sub
hay me crea un directorio en c pero es un archivo .txt y me crea eso de
"esto es una prueba", lo que yo quiero hacer es que me cree un archivo
pero que este tenga un tamaño definido por mi es decir que soporte unas
1000 variable si lo haro por .txt el me puede alojar indefinidas variable
y no lo quiero asi sera que ud me pueden ayudar con ese problema???
gracias de antemano por su colaboracion conmigo
a mi m gusta mas codear de otra manera un poco mas facil, al fn y al cabo son menos lineas ;)
Private Sub Command1_Click()
Timer1.Enabled = True ' enciende el timer
End Sub
Private Sub Timer1_Timer()
Open text1.text For Append As #1
If FileLen(Text1.Text) < Val(Text2.Text) Then 'en el text2 pones el tamaño en bytes
Print #1, "." 'aqui escribe Tan solo un punto
Close #1
Else
Timer1.Enabled = False 'cuando el tamaño ha llegado el valor no s vuelve a repetir
End If
End Sub
Te lo e puesto con comentarios para q te aclares mejor
ok pero mira esto, si yo que en una variable hay en este caso es txt me valla creando una variable hay por ejemplo 1 "a" en el txt cada vez que el timer avance y luego por medio de un inputbox yo le diga a cuantas "a" crea cada segundo me entiendes?? es algo asi como esto
timer1.interval = 1000
seg = seg + 1
bueno cada vez que la variable seg me aumente deacuerdo al timer me cree una "a" hasta el tamaño que yo le defina utilizando lo que me acabas de enseñar
bueno espero me ayas entendido lo que te e querido decir
La verdad es q no te entiendo, pero exandole imaginacion...
creo q lo q pides es k en un segundo escriba una letra, en 2 segundos 2 letras y en 3 segundos..... no se si es lo q pides aunk no l veo la vntaja d hacerlo asi..
Sino prueba a explicarte mejor para q t entienda ;)
ok bueno voy a enviarte un privado explicandote para ver si asi me entiendes mejor ok ;D