Crear archivos aleatorios

[trader]

alguien sabe como puedo hacer que al escribir en una caja de texto al ejecutar el command se aguarde lo que escribi en un txt.

[dansklan]

Para ver este enlace Registrate o Inicia Sesion

www.lawebdelpr ogramador.com

hay muchos codigos

[ranefi]

Hola trader, buen día. Creo haber entendido que necesitas esto:

Agrega un CommandButton (Botón) y un TextBox (Cuadro de texto)

Ahora da clic en vista código y pega lo siguiente

Código:

Private Sub Command1_Click()
    Dim Archivo As String
    Dim NumArchivo As Long
   
    Archivo = "C:\ranefi.txt"
    NumArchivo = FreeFile()
   
    Open Archivo For Output As #NumArchivo
        Print #NumArchivo, Text1.Text
    Close #NumArchivo
End Sub

[dansklan]

Un poco mejorado

Agrega un  Botón y un TextBox solo y agrega el componente commonDialog

(clic derecho en la tabla de componentes y luego seleccionas Microsoft Common Dialog 6.0 presionas OK)

Código:

Private Sub Command1_Click()
CommonDialog1.ShowSave

            Dim Archivo As String
            Dim NumArchivo As Long
           
            Archivo = CommonDialog1.FileTitle
            NumArchivo = FreeFile()
           
            Open Archivo For Output As #NumArchivo
                        Print #NumArchivo, Text1.Text
            Close #NumArchivo
End Sub