Как выбрать файл автоматически?

Question

Использование 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 имя - astory.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