如何自动更新表格？

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 Folder获取文本文件。在该文件夹中，每个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中更新，然后删除txt文件。

在我运行程序时，应该在table1中更新并自动删除文本文件。

如何编写自动更新的代码，删除文本文件？

需要VB6代码帮助。

Answer 1

只需在屏幕上创建一个计时器，将其间隔设置为60000，然后在Timer的tick事件中，检查目录中是否有新文件;并处理它们。