title image


Smiley Na, ich habs doch geschrieben
mit der Readall-Methode eines Scripting-Textstreams.



Und dann wohl auch eher so etwas:



Dim FSO as New Scripting.FileSystemObject, Fold as Scripting.Folder, F as Scripting.File, I as Long, _

SR as Scripting.Textstream, strGanzeDatei as String, _

L as Variant, LL as Variant



Set Fold = FSO.Getfolder(Pfad)

For each F in Fold.Files

If Right(F.Name,4) = ".log" then

Debug.Print F.Name

Set SR = FSO.OpenTextFile(F.Path, ForReading)

strGanzeDatei = SR.Readall

SR.Close

L = Split(strGanzeDatei,vbCrLf)

For I = LBound(L) to UBound(L)

If Instr(L(I), strKey) Then 'Ausgabe in Tabelle

LL =Split(L(I),";")

Currentdb.Execute "INSERT INTO DeineTabelle (Feld1,Feld2, ...) " & _

" VALUES ('" & LL(0) & "','" & LL(1) & ... & "')"

End If

Next I

end if

Next F

Set SR = Nothing: Set Fold = Nothing:

Set F = Nothing: Set FSO = NOthing





Wobei sich


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: