如何自動更新表格？

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文件時，會出現將表1中的更新，然後刪除txt文件。

當我運行程序時，在table1中更新並自動刪除文本文件。

如何編寫自動更新代碼，刪除文本文件？

需要VB6代碼幫助。

Answer 1

只需在屏幕上創建一個定時器，將其間隔設置爲60000，並在定時器的tick事件中檢查目錄中是否有新文件;並處理它們。