Get #F, , sByte

Dim F As Integer
Dim text As String
Dim sLine As String
Dim db As Database
Dim rs As Recordset
 
CommonDialog1.ShowOpen
CommonDialog1.Filter = "Logdatei (*.log)|*.log|Textdatei (*.txt)|*.txt|alle" & _
  "Dateien (*.*)|*.*"
 
Set db = Workspaces(0).OpenDatabase(App.Path + "\log97.mdb", False, False)
 
Set rs = db.OpenRecordset("tbl_log")
F = FreeFile
 
Open CommonDialog1.FileName For Binary As #F
Do While Not EOF(F)
 
Line Input #F, sLine
 
.
.
Code zum Zerlegen der Zeile
.
.
 
rs.AddNew
    rs!ip = ip
    rs!datum = datum
    rs!zeit = zeit
    rs!datei = datei
    rs!http = http
    rs!returncode = code
    rs!size = size
    rs!rest = sLine
rs.Update
 
Loop
 
Close #F
Set rs = Nothing
Set db = Nothing