LordKusa

Leer Texto

May 21st, 2018
102
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub LeerArchivoTXT()
  2.  
  3.     Open "C:\directorio\archivo.txt" For Input As #1
  4.  
  5.         Line Input #1, Texto
  6.        
  7.         Label1.Caption = Texto
  8.    
  9.     Close #1
  10.  
  11. End Sub
RAW Paste Data