Vb6 如何自动选择文件？

使用VB6

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

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

Vb代码，用于将文本转换为mdb

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，我有代码，对于自动选择文本文件，我需要一个示例代码或idea

我是VB6新手，有人能给我一些方法吗。或者可以任意张贴一个自动选择文本文件的示例代码

---

请。

基本代码将在以下行中查找：

      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

Dim文件名为字符串
filename=Dir$（“C:\NewFolder\*.txt”，vbDirectory）
文件名“”时执行此操作
调试.打印文件名
'此行将按您的要求删除文件
'但要确保文件是否已转换为mdb
'这完全是您的代码的责任
终止“C:\NewFolder\”文件名（&F）
filename=Dir$
环

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

---

HTH

基本代码将在下面几行中查找：

      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

Dim文件名为字符串
filename=Dir$（“C:\NewFolder\*.txt”，vbDirectory）
文件名“”时执行此操作
调试.打印文件名
'此行将按您的要求删除文件
'但要确保文件是否已转换为mdb
'这完全是您的代码的责任
终止“C:\NewFolder\”文件名（&F）
filename=Dir$
环

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

---

HTH

那么您希望根据公式（例如日期）自动选择文件？“在一个特定的文件夹中？听起来你想选择一个文件夹而不是一个文件，是吗？我清楚地解释过，我只想选择一个文件。@Gopal，我的道歉，错过了。在我读到你对Anand答案的评论之前，我无法完全理解你的问题。：PSo你想根据公式（例如日期）自动选择文件吗？"在一个特定的文件夹中？听起来你想选择一个文件夹而不是一个文件，是吗？我清楚地解释过，我只想选择一个文件。@Gopal，我的道歉，错过了。在我读到你对Anand答案的评论之前，我无法完全理解你的问题：P@Anand.所以不需要给任何其他的，一旦我安装了软件，这个代码将自动自动选择一个文件。转换后，文件将自动删除。此代码将自动选择文件=>“是”。转换部分必须在代码中合并。转换后，文件将自动删除=>“是”@一旦我创建了一个安装程序，然后我在任何其他系统中安装了该软件。我必须做任何事情，否则它将自动完成所有操作（意味着选择一个文本文件，转换，删除。Bcoz我的大多数软件我必须运行我的软件，然后只有它会做一些事情。不，我不想做任何事情。一旦安装到其他系统。它会自动做。我必须写一个代码。在表单加载（或）任何其他.plzSorry，但我不明白您到底想实现什么。基本上，如果您将代码放入Form Load并调用该表单，它将运行代码，将所有文本文件转换为mdb文件并删除文本文件。但您必须以某种方式运行软件，其他选项将是为上述代码创建exe文件并将其添加到任务计划程序中，该程序将在指定的时间间隔内自动运行。@Anand-现在我得到了，因此如果我有三种文件，如*.txt、*.mis、*.fis，那么文件名是什么意思。如何输入文件名。您可以输入吗。@Anand。所以不需要给出任何其他文件，一旦我安装了软件，此代码将自动选择一个文件。一旦nverted，则文件将自动删除。此代码将自动选择文件=>“是”。转换部分必须在代码中合并。一旦转换，文件将自动删除=>“是”@一旦我创建了一个安装程序，然后我在任何其他系统中安装了该软件。我必须做任何事情，否则它将自动完成所有操作（意味着选择一个文本文件，转换，删除。Bcoz我的大多数软件我必须运行我的软件，然后只有它会做一些事情。不，我不想做任何事情。一旦安装到其他系统。它会自动做。我必须写一个代码。在表单加载（或）任何其他.plzSorry，但我不明白您到底想实现什么。基本上，如果您将代码放入Form Load并调用该表单，它将运行代码，将所有文本文件转换为mdb文件并删除文本文件。但您必须以某种方式运行软件，其他选项将是为上述代码创建exe文件并将其添加到任务计划程序中，任务计划程序将按指定的时间间隔自动运行它。@Anand-现在我得到了，所以如果我有三种文件，如*.txt、*.mis、*.fis