如何自动选择文件？

Question

使用VB6

现在我使用软件中的浏览按钮来选择文本文件，然后将其转换为mdb（access）。我不想选择文本文件。

一旦我在任何系统中安装了软件，文本文件就会自动选择指定的路径。然后文本文件自动转换为mdb。转换为 mdb 后，然后

将文本转换为 mdb 的 Vb 代码。

Dim db As Database, tbl As TableDef
Set db = DBEngine.OpenDatabase(App.Path & "\History.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.ID, Temp.IDTerminal, Temp.Reader, Temp.Date, Temp.Time, Temp.Cardnumber into  " & strOutput & "  from Temp"
db.TableDefs.Delete ("Temp")
db.Close
MsgBox strOutput
sql2 = "insert into events select * from " & strOutput & ""
If rs.State = 1 Then rs.Close
rs.Open sql2, Cn, adOpenStatic, adLockOptimistic
Set tbl = Nothing
Set db = Nothing

上面的代码适用于文本到 mdb 的转换。但我需要自动转换文本文件而不使用浏览按钮。

例如，

MDB 名称为 – History.mdb，表名称为 – event.mdb

我设置了这样的路径“C:\NewFolder” 在我的软件中

，在上述文件夹中，文本文件将以不同的名称出现。文本文件每天可能会出现 10 到 20 个具有新的不同名称的文本文件。我也无法给出文本文件名。我只需提供扩展名，如 (*.txt)。

一旦我安装了我的软件，该软件应该从 c:\NewFolder 中选择文本文件，然后它会自动转换为 mdb，转换后的文本文件应该自动删除。

预期输出

Once I installed my software in any system, the software should select the text file from the specified folder, then the text file convert into mdb. Once converted, the text files automatically delete from the specified path.

为了将文本转换为 mdb，我有代码，为了自动选择文本文件，我需要示例代码或想法，

我是 VB6 的新手，任何人都可以给出一些如何做到这一点的想法。或者可以发布自动选择文本文件的示例代码。

请。

Answer 1

基本代码看起来如下：

      Dim filename As String
      filename = Dir$("C:\NewFolder\*.txt", vbDirectory)
      Do While filename <> ""

        Debug.Print filename

        'This line will delete the file as you asked
        'but to make sure if the file has been converted to mdb
        'is solely your code's responsibility

        Kill "C:\NewFolder\" & filename

        filename = Dir$
      Loop

上面的代码假设在您的 C:\NewFolder 中您只有 *.txt 文件，没有其他文件或文件夹。

华泰