ファイルを自動的に選択する方法は？

Question

VB6を使用します

これで、ソフトウェアの参照ボタンを使用してテキストファイルを選択し、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」のようなパスを設定しました

上記のフォルダーでは、テキストファイルが異なる名前で表示されます。 1日あたりのテキストファイルが、新しい異なる名前の10〜20個のテキストファイルが表示される場合があります。テキストファイル名も与えることができません。 （*.txt）のような拡張機能のみを指定する必要があります。

ソフトウェアをインストールしたら、ソフトウェアはC： newFolderからテキストファイルを選択する必要があります。テキストファイルを変換した後、テキストファイルが自動的に削除する必要があります。

予想出力

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