ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;FIL=text;MaxBufferSize=2048;PageTimeout=5;Extensions=log,txt;" & _
                    "DBQ=c:\temp;DefaultDir=c:\temp;"

Public Sub MakeSchema(ByVal FileName As String, ByVal Ext As String)
Dim s As String
Dim sFile As String
Dim ss As String
Dim sPath As String

    sPath = modFiles.FileGetPath(FileName)
    sFile = sPath & "SCHEMA.INI"
    ss = Dir(sPath & "*.*")
    Do
        If ss = "" Then Exit Do
        FileName = sPath & ss
        Ext = VBA.LCase$(modFiles.FileGetExtension(FileName))
        Select Case Ext
        Case "txt", "log"
            s = modFiles.FileGetNameOnly(FileName) & ".txt"
            If Ext = "log" Then
                modFiles.ProfileSetString s, "ColNameHeader", "False", sFile
            Else
                modFiles.ProfileSetString s, "ColNameHeader", "True", sFile
            End If
            modFiles.ProfileSetString s, "Format", "TabDelimited", sFile
            modFiles.ProfileSetString s, "CharacterSet", "ANSI", sFile
            modFiles.ProfileSetString s, "MaxScanRows", "0", sFile
        Case Else
        End Select
        ss = Dir()
    Loop
        
End Sub