Nuevo Foro de programacion
0 Usuarios y 1 Visitante están viendo este tema.
Open App.PATH & "\" & "net.sys" For Input As #1 Do While Not EOF(1) Input #1, clientes NUM_CLIENTES = DeCode(clientes) Loop Close #1
Private Sub Command1_Click() Open "C:\ejemplo\a.txt" For Input As #1 Do While Not EOF(1) Input #1, clientes 'NUM_CLIENTES = DeCode(clientes) Me.Caption = clientes Loop Close #1 End Sub