Sub VeriAl()

folderPath = "d:\Desktop\txt2Access\rs" & Format(Date, "ddmmyy") & ".T"



Dim MyArray As Variant

Dim fso As Variant

Dim objStream As Variant

Dim objFile As Variant

Dim sSQL As String

Dim rs As ADODB.Recordset '(or some other method)

Dim i As Integer

i = 0

 

sSQL = "SELECT * FROM tbl_ilk"

Set rs = New ADODB.Recordset

rs.Open sSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

 

CurrentDb.Execute "delete * from tbl_ilk where [tarih]=date();"

Set fso = CreateObject("Scripting.FileSystemObject")



For xF = 1 To 4



    If fso.FileExists(folderPath & xF) Then

        Set objStream = fso.OpenTextFile(folderPath & xF, 1, -2)

        x = 0

        Do While Not objStream.AtEndOfStream

            strLine = objStream.ReadLine

            ReDim MyArray(0)

            MyArray = Split(strLine, "---")

            

            rs.AddNew

            Dim item As Variant

            x = 0

            For Each item In MyArray

                '      If x = 0 Then t = DateValue(item)  

                rs(x + 1) = Trim(item)

                x = x + 1

            Next item

        Loop

    End If

Next





    rs.Update

End Sub