Option Explicit

Const adModeReadWrite = 3
Const adOpenKeyset = 1
Const adCmdTable = &H0002


Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")

'Für alle zu erfassenden Ordner

Collect "AGTK", "_bak\AGTK\1997", "1997", "Martin Weissenböck", "martin@weissenboeck.at"
Collect "AGTK", "_bak\AGTK\1998", "1998", "Martin Weissenböck", "martin@weissenboeck.at"
Collect "AGTK", "_bak\AGTK\1999", "1999", "Martin Weissenböck", "martin@weissenboeck.at"
Collect "AGTK", "_bak\AGTK\2000", "2000", "Martin Weissenböck", "martin@weissenboeck.at"
Collect "CCCINFO", "_bak\CCCINFO\1997", "1997", "Werner Illsinger", "werneri@ccc.at"
Collect "CCCINFO", "_bak\CCCINFO\1998", "1998", "Werner Illsinger", "werneri@ccc.at"
Collect "CCCINFO", "_bak\CCCINFO\1999", "1999", "Werner Illsinger", "werneri@ccc.at"
Collect "CCCINFO", "_bak\CCCINFO\2000", "2000", "Werner Illsinger", "werneri@ccc.at"
Collect "PCNINFO", "_bak\PCNINFO\1996", "1996", "Franz Fiala", "franz@fiala.cc"
Collect "PCNINFO", "_bak\PCNINFO\1997", "1997", "Franz Fiala", "franz@fiala.cc"
Collect "PCNINFO", "_bak\PCNINFO\1998", "1998", "Franz Fiala", "franz@fiala.cc"
Collect "PCNINFO", "_bak\PCNINFO\1999", "1999", "Franz Fiala", "franz@fiala.cc"
Collect "PCNINFO", "_bak\PCNINFO\2000", "2000", "Franz Fiala", "franz@fiala.cc"
Collect "KF", "_bak\kustodenforum\2001", "2001", "", ""
Collect "LF", "_bak\lehrerforum\1997", "1997", "", ""
Collect "LF", "_bak\lehrerforum\1998", "1998", "", ""
Collect "LF", "_bak\lehrerforum\1999", "1999", "", ""
Collect "LF", "_bak\lehrerforum\2000", "2000", "", ""
Collect "LF", "_bak\lehrerforum\2001", "2001", "", ""
Collect "LF", "_bak\lehrerforum\2001\07", "2001", "", ""
Collect "LF", "_bak\lehrerforum\2001\08", "2001", "", ""
Collect "LF", "_bak\lehrerforum\2001\09", "2001", "", ""
Collect "LF", "_bak\lehrerforum\2001\10", "2001", "", ""
Collect "LF", "_bak\lehrerforum\2001\11", "2001", "", ""
Collect "LF", "_bak\lehrerforum\2001\12", "2001", "", ""

Sub Collect(Liste, Pfad, Jahr, Autor, Email)

	Dim ConnObj
	Set ConnObj = CreateObject("ADODB.Connection")
	ConnObj.Mode = adModeReadWrite
	ConnObj.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=W:\listen.mdb"

	Dim rs
	Set rs = CreateObject("ADODB.Recordset")
	rs.Open "listen",ConnObj,adOpenKeySet,adCmdTable
	'Set rs = ConnObj.OpenRecordset("listen")

	Set f = fso.GetFolder(Pfad)
	Set fc = f.Files
	s = ""
	Dim i
	i = 0
	For Each f1 in fc
		Dim Text, ts
		s = s + CStr(f1.DateLastModified) + " " + f1.name + " " + Chr(10)
		Set ts = f1.OpenAsTextStream(1)
		Text = ts.ReadAll( )
		rs.AddNew
			rs("LISTE") = Liste
			rs("M_TIME") = f1.DateLastModified
			rs("M_YEAR") = Jahr
			rs("M_MONTH") = Month(f1.DateLastModified)
			rs("M_FROM") = Autor
			rs("M_EMAIL") = Email
			rs("M_SENTON") = ""
			rs("M_SENTONNAME") = ""
			rs("M_SUBJECT") = f1.name
			rs("M_FORMAT") = 1
			rs("M_BODY") = Text
			rs("M_BODYHTML") = ""
		rs.Update
	    ' AusgabeFelder Liste, Jahr, f1.name, f1.DateLastModified, Text, rs
		i = i + 1
		'If i=10 Then
		'	Exit For
		'End If
	Next
	rs.Close
	ConnObj.Close
	WScript.Echo s

End Sub

Sub AusgabeFelder (Liste, Jahr, Subject, Datum, Body, rs)
    
    rs.AddNew
        rs("LISTE") = Liste
        rs("M_TIME") = Datum
        rs("M_YEAR") = Jahr
        rs("M_MONTH") = Month(Datum)
        rs("M_FROM") = "Martin Weissenböck"
        rs("M_EMAIL") = "martin@weissenboeck.at"
        rs("M_SENTON") = ""
        rs("M_SENTONNAME") = ""
        rs("M_SUBJECT") = Subject
        rs("M_FORMAT") = 1
        rs("M_BODY") = Body
        rs("M_BODYHTML") = ""
    rs.Update

End Sub