Crear Funcion para leer datos de un archivo.txt

[Ever Cerna]

Buenos días amigos.

Necesito por favor me den una manito, necesito que me ayuden a crear una función para leer datos de un archivo .txt y cargarlos a un COMBOBOX. Como verán debajo tengo ese código, no tengo problemas con leer datos de un .txt y cargarlos al COMBOBOX, lo que necesito es una función para resumir el CODE ya que tengo varios archivos .txt que cargar y el codigo va ser inmenso xD...

Haber si me dan una manito.

Código: [Seleccionar]

Dim Nombre As String
   
    If CbProducto.ListIndex = 0 Then
        CbMarca.Clear
        Open App.Path & "\Datos HARDWARE\MAINBOARD.txt" For Input As 99
       
        Do While Not EOF(99)
            Line Input #99, Nombre
            CbMarca.AddItem Nombre
        Loop

        Close #99
       
    ElseIf CbProducto.ListIndex = 1 Then
        CbMarca.Clear
        Open App.Path & "\Datos HARDWARE\PROCESADOR.txt" For Input As 99
       
        Do While Not EOF(99)
            Line Input #99, Nombre
            CbMarca.AddItem Nombre
        Loop

        Close #99
   
    End If
Salu2...

[Bazooka]

Hola amigo yo utilizo esta:

Código: [Seleccionar]

'para llenar los combos los llamas pasando el combo y el nombre de archivo como parametros
Private Sub LlenaCbos()
    open_Datos App.path & "\" & "categorias.TXT", cboCat
    open_Datos App.path & "\" & "jornadas.TXT", cboHoras
End Sub

'Este es el procedimiento
Private Sub open_Datos(file As String, cbo As ComboBox)

    On Error GoTo datos

    Dim sDatos As String

    Open file For Input As #1
    cbo.Clear
   
    Do While Not EOF(1)
        Input #1, sDatos
        cbo.AddItem sDatos
    Loop

    Close #1

    Exit Sub

    On Error GoTo 0

Datos:

    If MsgBox("Error no se encontro el archivo 'txt' " + Err.Description + " error numero " + Str(Err.Number), vbCritical + vbDefaultButton2 + vbRetryCancel, "DS Gestión") = vbRetry Then

        Resume

    End If

End Sub
Ojalá te sirva!

[Ever Cerna]

Gracias kumpaaaa.. Eso era exactamente lo que necesitava se agrece kumpaaaa

Salu2.