Foro de elhacker.net

Dim fso As Object, Fil As Object, Contenido As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fil = fso.OpenTextFile(App.Path & "\abece.txt", 1)
textbox.text = Fil.ReadAll 'Almacenamos las letras en el textbox
Fil.Close 'Cerramos el archivo

Option Explicit
Private Sub Form_Load()
    Dim sText As String
 
    sText = "a" & vbCrLf & "b" '// Esto seria el contenido del archivo
 
    Dim vItem  As Variant
 
    For Each vItem In Split(sText, vbCrLf)
        List1.AddItem vItem
    Next
End Sub
 
 

Option Explicit
 
Private Sub Command1_Click()
Dim Archivo As String
Dim Num As Integer
Dim Linea As String
Archivo = "c:\archivo.txt"
fnum = FreeFile
Open Archivo For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, Linea
List1.AddItem Linea
Loop
End Sub