Hi mdlueck,
This is only part of the code i got, this is full code:
Dim db As Database
Dim ObjSource As Object
Dim fso As Object
Dim fso2 As Object
Dim rs As Recordset
Dim ssql As String
Dim iSize As Integer
Set db = CurrentDb()
Set fso = CreateObject("Scripting.FileSystemObject")
Set fso2...