E gostaria de saber onde eu posso encontrar exemplos de abertura de vários arquivos txts importando para um banco de dados.

 

Obrigado

aqui no VB WEB mesmo... vá em dicas que você acha alguns exemplos... de como importar arquivos texto direto pra um banco de dados

Não sei se é o que você quer mas veja este código.

 

       Dim sTexto As String
    Dim sArray() As String
    Dim sNomeAnterior As String
   
    Dim i As Integer
    i = 1
    '.Recordset("") = REPLACE(Trim$(sArray()), CHR(34), "")
    Open "D:ImportImportTransTransD.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, sTexto
            sArray() = Split(sTexto, "|")
            If sNomeAnterior <> Left(Replace(Trim$(sArray(0)), Chr(34), ""), 40) Then
                With Data1
                    .Recordset.AddNew
                    .Recordset("COD") = Format(i, "000000")
                    .Recordset("NOME") = Left(Replace(Trim$(sArray(0)), Chr(34), ""), 40)
                    sNomeAnterior = Left(Replace(Trim$(sArray(0)), Chr(34), ""), 40)
                    .Recordset("NREDUZ") = Left(Replace(Trim$(sArray(1)), Chr(34), ""), 15)
                    .Recordset("VIA") = "RODOVIARIO     "
                    .Recordset("END") = Left(Replace(Trim$(sArray(4)) & " " & Replace(Trim$(sArray(5)), ",", "") & IIf(Trim$(sArray(6)) <> "", ", N. " & Trim$(sArray(6)), ""), Chr(34), ""), 40)
                    .Recordset("BAIRRO") = Replace(Trim$(sArray(8)), Chr(34), "")
                    .Recordset("MUN") = Replace(Trim$(sArray(10)), Chr(34), "")
                    .Recordset("EST") = Replace(Trim$(sArray(11)), Chr(34), "")
                    .Recordset("CEP") = Replace(Trim$(sArray(9)), Chr(34), "")
                    .Recordset("DDD") = IIf(Replace(Trim$(sArray(12)), Chr(34), "") <> "0", Replace(Trim$(sArray(12)), Chr(34), ""), "")
                    .Recordset("TEL") = IIf(Replace(Trim$(sArray(13)), Chr(34), "") <> "0", Replace(Trim$(sArray(13)), Chr(34), ""), "")
                    .Recordset("L_FAX") = IIf(Replace(Trim$(sArray(14)), Chr(34), "") <> "0", Replace(Trim$(sArray(14)), Chr(34), ""), "")
                    Dim sTipo As String
                    sTipo = ""
                    sTipo = Replace(Trim$(sArray(2)), ".", "")
                    sTipo = Replace(sTipo, "/", "")
                    sTipo = Replace(sTipo, "-", "")
                    .Recordset("CGC") = Replace(sTipo, Chr(34), "")
                    If Len(Replace(Trim$(sArray(3)), Chr(34), "")) > 15 Then
                        sTipo = ""
                        sTipo = Replace(Trim$(sArray(3)), ".", "")
                        .Recordset("INSEST") = Replace(Trim$(sArray(3)), Chr(34), "")
                    Else
                        .Recordset("INSEST") = Replace(Trim$(sArray(3)), Chr(34), "")
                    End If
                    .Recordset("EMAIL") = Replace(Trim$(sArray(15)), Chr(34), "")
                    .Recordset.Update
                End With
            End If
        Loop
    Close #1

 

Veja mais este exemplo:

 

 

Você deve fechar um antes de abrir o outro. (Não é exatamente abrir vários, mas esta importando par ao banco.)