Как обновить таблицу автоматически?

Question

Использование VB 6 и Access 2003

Код

Dim db As Database, tbl As TableDef 
Set db = DBEngine.OpenDatabase(App.Path & "\txtdata.mdb") 
Set tbl = db.CreateTableDef("Temp") 
tbl.Connect = "Text;database=" & App.Path & "/ConvTemp/" 
tbl.SourceTableName = strOutput & ".txt" 
db.TableDefs.Append tbl 
db.Execute "Select Temp.* into table1 from Temp" 
db.TableDefs.Delete ("Temp") 
db.Close 
Set tbl = Nothing 
Set db = Nothing 
MsgBox "File Converted Successfully", vbInformation 

Из приведенного выше кода я преобразующий текстовый файл базы данных MDB, приведенный выше код работает отлично.

Получение текстового файла из папки ConvTemp. В этой папке каждые 2 или 5 или 10 минут текстовый файл создается с другими именами из другого программного обеспечения.

Каждую минуту я хочу обновить таблицу автоматически, всякий раз, когда текстовый файл вновь создан из папки ConvTemp.

Для примера

ConvTemp Folder 

101.txt 

The text file should update in the table1, then 101.txt should delete in the convTemp Folder. 

After new file is appearing in ConvTemp Folder 

222.txt 

This text file also should update in the table1, then 222.txt should delete in the convTemp Folder 

So on…, 

.txt файл появился он будет обновляться в table1, а затем удалить текстовый файл.

Обновление в таблице1 и автоматическое удаление текстового файла при выполнении программы.

Как написать код для автоматического обновления, удалить текстовый файл?

Нужна помощь по коду VB6.

Answer 1

Просто создайте таймер на экране, установите его интервал до 60000, а в событии тикателя отметьте, есть ли в вашем каталоге новые файлы; и обрабатывать их.