Come selezionare automaticamente un file?

Question

Uso VB6

Ora sto usando un pulsante Sfoglia nel mio software per selezionare il file di testo, allora è convertito in MDB (Access). Non voglio per selezionare il file di testo.

Una volta che ho installato il mio software in qualsiasi sistema, il file di testo dovrebbe selezionare automaticamente in un percorso specificato. Quindi il file di testo converte automaticamente in mdb. Una volta convertito in MDB poi

Il codice BB per la conversione di testo in 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

Sopra il codice sta lavorando per il testo alla conversione mdb. Ma ho bisogno di convertire il file di testo automaticamente senza usare pulsante Sfoglia.

Ad esempio

Nome MDB è - History.mdb e il nome della tabella è - event.mdb

Ho impostato un percorso come questo “C: \ NewFolder” Nel mio software

Nella cartella di cui sopra, verrà visualizzato il file di testo con nomi diversi. Può essere per file di testo giorno apparirà 10 a 20 file di testo con nuovi nomi diversi. Non posso in grado di dare il nome del file di testo anche. Devo dare solo l'estensione come (* .txt).

Una volta che ho installato il software, il software dovrebbe selezionare il file di testo da c: \ NewFolder, allora converte automaticamente a MDB, dopo convertito il file di testo il file di testo dovrebbe eliminare automaticamente.

Output previsto

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.

Per conversione del testo in mdb sto avendo il codice, per la selezione automaticamente il file di testo che ho bisogno di un codice di esempio o l'idea di

Sono nuovo di VB6, Uno può dare qualche idea di come fare questo. Oppure si può inviare un qualsiasi codice di esempio per la selezione automatica dei file di testo.

.

Answer 1

codice di base avrà l'aspetto qualcosa verso il basso le linee di questo:

      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

Il codice sopra presuppone che nella cartella C: \ NewFolder si avrà solo i file * .txt e nessun altro file o cartelle

.

HTH