Cómo seleccionar un archivo de forma automática?

Question

Uso de VB6

Ahora estoy usando un botón Examinar en mi software para seleccionar el archivo de texto, a continuación, se convierte en a MDB (Access). No quiero para seleccionar el archivo de texto.

Una vez que he instalado el software en cualquier sistema, el archivo de texto debe seleccionar automáticamente en una ruta especificada. A continuación, el archivo de texto se convierte automáticamente en MDB. Una vez convertido en a MDB entonces

Código Vb para la conversión de texto a 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

código de seguridad está trabajando para la conversión de texto a MDB. Pero necesito para convertir el archivo de texto de forma automática sin necesidad de utilizar el botón Examinar.

Por ejemplo

MDB Nombre es - History.mdb y nombre de la tabla es - event.mdb

I establece un camino como éste “C: \ NewFolder” En mi software

En la carpeta anterior, el archivo de texto aparecerá con diferentes nombres. Puede ser por archivo de texto aparecerá días 10 a 20 archivos de texto con nuevos nombres diferentes. No puedo capaz de dar el nombre del archivo de texto también. Tengo que dar sólo la extensión como (* .txt).

Una vez que he instalado el software, el software debe seleccionar el archivo de texto de c: \ NewFolder, entonces se convierte automáticamente en al MDB, después convierte el archivo de texto del archivo de texto debe eliminar automáticamente.

Resultados previstos

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.

Para la conversión de texto a MDB estoy teniendo el código, para seleccionar automáticamente el archivo de texto que necesita un código de ejemplo o de la idea

Soy nuevo en Visual Basic 6, ¿Puede alguien dar una idea de cómo hacer esto. O cualquiera puede publicar un código de ejemplo para la selección automática del archivo de texto.

.

Answer 1

código básico sería algo por las líneas de esto:

      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

El código anterior asume que en el directorio C: \. NewFolder sólo tendrá * .txt y no hay otros archivos o carpetas

HTH