Во-первых, большое спасибо Алексею за созданный форум, за его личное участие в общении на нем, а также всем остальным форумчанам, благодаря которым, собственно, форму продолжает жизеь и обновляться. А также спасибо за столь удобную структуру, которая просто сама напрашивается на переработку в локальную версию .

Во-вторых, по сути. Что делает пример? Качает собственно файл форума, парсит его, дополняет базу вопросов и ответов. Обработка, т.е. парсинг, настраиваемый. То есть в параметрах проги можно указать конкретные строковые выражения, которые будут выполнять роль тегов. Все вопросы видны в перечне на главной форме, их можно посортировать по названию, автору, дате создания или количеству ответов. Можно поискать по заданным словам в этих полям или по периоду дат. Данные и прога традиционно разделены для удобства пользования.

Из прикладных решений, на которые бы хотелось обратить внимание.

Идея такая: функция, отвечающая за правильную подвязку таблиц, обозначена в autoexec – макросе. Схема работы простая - ищет mdb с заданным именем базы в рабочей папке проги, иначе выдает окно, в котором предлагается указать путь к базе, если путь не указан, выходим, иначе освежаем связи, если есть необходимость. Как показывает опыт, такая схема достаточно удобна в эксплуатации.

Функция
OpenFile(ByVal InitDir As String, ByVal Fname As String, ByVal ffilter As String) As String
позаимствована исходно у Андрея Кравченко, но это не первоисточник, как оказалось.
По сути это обертка для API-функции:
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

2. Закачка файла форума.
Как известно, удобно закачивать файлы с помощью API-функции:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                                            (ByVal pCaller As Long, _
                                            ByVal szURL As String, _
                                            ByVal szFileName As String, _
                                            ByVal dwReserved As Long, _
                                            ByVal lpfnCB As Long) As Long

Все в ней прекрасно, кроме одного. Она никак не отображает статус закачки. То есть угадать, насколько в данный момент закачан файл можно исключительно сторонним путем. Что не совсем удобно. Поэтому пришлось использовать данную функцию для закачки заведомо маленьких файлов сообщение в формате idc, оформленную в виде логической функции:

Function DownLoadFile(strURL As String, StrFileName As String) As Boolean

C первоисточником нелегко, я ее встречала на нескольких русскоязычных сайтах.

Что касаемо закачки здоровенного 10-мб файла собственно перечня сообщений, то для этих целей пришлось воспользоваться Microsoft Internet Transfer Control. У меня он 6.0 SP6. Не знаю, в версии ли дело или еще в чем, но контрол хладнокровно отказался от собственного весьма полезного свойства .Cancel. Так что пришлось пользовать его без этого свойства.

Сначала пытаемся определить размер файла – по заголовку «Content-length», с которым, кстати, не всегда может и повезти.

Причем, в данном случае мне не всегда везло с первого раза, так что пришлось назначить количество попыток для получения размера файла для закачки.

Private Const k_all_max As Long = 5
…
   k_all = 0
lblRep:
   k_all = k_all + 1
   Application.SysCmd acSysCmdSetStatus, " Определение размера файла " + StrFileName
   MSInet.URL = StrFileName
   MSInet.Protocol = icHTTP
   MSInet.RequestTimeout = 120
   MSInet.Execute StrFileName, "HEAD"
    Do
        If Not MSInet.StillExecuting Then Exit Do
       DoEvents
    Loop
   NAll = Val(MSInet.GetHeader("Content-length"))
    If NAll = 0 And k_all < k_all_max Then GoTo lblRep

Есть один болезненный вопрос – со временем отклика RequestTimeout. Слишком большим ставить его не стоит, придется ждать лишнее время, если захочется завершить процесс или повторить не закончив. А слишком маленьким тоже не стоит – прервется закачка по какому-то мелкому поводу и все начинать сначала, так как в данном случае докачка не поддерживается.

Ну ладно, предположим, размер вы выяснили, теперь можно начинать качать с индикацией процесса. Индикацию можно оформить по таймеру. Для начала процесса сделаем вот что:

Private Const Interv As Long = 10000 ‘(в миллисекундах, лучше пореже сделать)
Dim Status As Boolean, vbStop As Boolean
…
vbStop = False: Status = True
     Me.TimerInterval = Interv
MSInet.Execute StrFileName, "GET"

Вот и все. Закачка началась. Теперь надо обработать получаемый поток: на событие MSInet_StateChanged()

Private Sub MSInet_StateChanged(ByVal State As Integer)
    Dim vtData() As Byte
    On Error GoTo LblErr
    
    Select Case State
    Case icResponseCompleted
        Open StrFileName2 For Binary Access Write As #2
       vtData = MSInet.GetChunk(SzByte, icByteArray)
        Do While LenB(CStr(vtData)) > 0
           DoEvents
            If vbStop = True Then Exit Sub
           Put #2, , vtData
           vtData = MSInet.GetChunk(SzByte, icByteArray)
        Loop
        If Status = True Then Status = False
       Put #2, , vtData
        Close #2
    End Select
   Exit Sub
LblErr:
    Close #2
   MsgBox Err.Description, vbCritical + vbOKOnly
End Sub