Summary Use ADO and the Text ISAM to persit im XML a flat text file

BTW - I've made some test with a somehow large file, and it's as a fast operation, I was thinking that this could be somehow a resource drain, but then I've to make more test, if you find something that you want to share with me please do so.

Additional information

************** Bas Modules ************** Sub OpenFlatFileWithSchemaINI() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim strCnn As String Dim strDir As String Dim strFileIn As String Dim strFileOut As String strFileIn = "SadEntRed.txt" '"Contacts.txt" strFileOut = "flat2XML.xml" Set cnn = New ADODB.Connection strDir = GetPath(CurrentDb.Name) strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" strCnn = strCnn & "Data Source=" & strDir & ";" strCnn = strCnn & "Extended Properties='text'" cnn.Open strCnn Set rst = New ADODB.Recordset rst.Open "select * from " & strFileIn, cnn, adOpenStatic, adLockReadOnly, adCmdText If Len(Dir$(strDir & strFileOut)) > 0 Then If MsgBox("The File Exist, Delete?", vbCritical + vbYesNo) = vbYes Then Kill (strDir & strFileOut) Else Exit Sub End If End If rst.Save strDir & strFileOut, adPersistXML rst.Close Set rst = Nothing Set cnn = Nothing End Sub Private Function GetPath(ByVal strFilePath As String) As String Dim s As String Dim i As Integer For i = Len(strFilePath) To 1 Step -1 s = Mid$(strFilePath, i, 1) If StrComp(s, "\", vbBinaryCompare) = 0 Then GetPath = Left$(strFilePath, i) Exit For End If Next 'i End Function ************** Schema.INI File ************** [Contacts.txt~ ColNameHeader=False Format=FixedLength MaxScanRows=0 CharacterSet=OEM Col1="FirstName" Char Width 10 Col2="LastName" Char Width 9 Col3="HireDate" Date Width 8 [SadEnt.txt~ ColNameHeader=True Format=Delimited(;) MaxScanRows=0 CharacterSet=OEM Col1="IDEntidade" Long Width 11 Col2="Nome" Char Width 70 Col3="Departamento" Char Width 50 Col4="Seccao" Char Width 50 Col5="Tipo" Byte Width 3 Col6="SubTipo" Byte Width 3 Col7="NContribuiente" Long Width 11 Col8="Morada" Char Width 100 Col9="CPostal" Long Width 11 Col10="ZonaCPostal" Byte Width 3 Col11="ZonaJCIE" Long Width 11 Col12="Cidade" Char Width 25 Col13="Pais" Short Width 6 Col14="Cometarios" Memo Width 32000 Col15="TipoRegisto" Byte Width 3 Col16="DataEfeito" Date Width 8 Col17="UserCreate" Char Width 15 Col18="DataAnula" Date Width 8 Col19="UserAnula" Char Width 15 Col20="EstadoEnt" Byte Width 3 Col21="MotivoAnula" Short Width 6 Col22="Sexo" Char Width 1 Col23="TitHon" Char Width 15 Col24="EntMailing" Byte Width 3