Rincón del Hacker

Aquí encontraras una serie de hacker's para juegos y todo lo que se pueda hackear


    Subir un Archibo TXT

    Comparte

    Admin
    Admin

    Mensajes : 10
    Puntos : 27
    Fecha de inscripción : 05/06/2012

    Subir un Archibo TXT

    Mensaje  Admin el Vie Jun 22, 2012 12:33 am

    Sub SaveTextBoxInFile(ByVal FileName As String, ByRef Text As TextBox)

    On Error Resume Next
    Close
    Open FileName For Output As #1
    If Err > 0 Then Exit Sub
    Print #1, Text.Text
    Close
    End Sub
    Sub GetFileToTextBox(ByVal FileName As String, ByRef Text As TextBox)
    On Error Resume Next
    Close
    Open FileName For Input As #1
    If Err > 0 Then Exit Sub
    Text.Text = Input(LOF(1), 1)
    Close
    End Sub
    Private Sub Command1_Click()
    GetFileToTextBox "C:Texto.txt", Text1
    End Sub
    Private Sub Command2_Click()
    SaveTextBoxInFile "C:Texto.txt", Text1
    End Sub
    Shocked Shocked Shocked Shocked Shocked Shocked Shocked Shocked Shocked What a Face

      Fecha y hora actual: Lun Jul 16, 2018 8:20 pm