Question

使用VB6

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

在任何系统中安装软件后，文本文件应自动选择指定的路径。然后文本文件自动转换为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文件而没有其他文件或文件夹。

HTH

如何自动选择文件？

1 个答案: