Comment sélectionner un fichier automatiquement?

Question

Utiliser VB6

Maintenant, j'utilise un bouton Parcourir de mon logiciel pour sélectionner le fichier texte, puis il est converti en mdb (accès). Je ne veux pas sélectionner le fichier texte. Une fois que j'ai installé mon logiciel dans n'importe quel système, le fichier texte devrait automatiquement sélectionner dans un chemin spécifié.

Ensuite, le fichier texte est automatiquement converti en mdb. Une fois converti en mdb, puis

Vb Code pour convertir du texte en 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 

Le code ci-dessus fonctionne pour la conversion de texte en mdb. Mais j'ai besoin de convertir le fichier texte automatiquement sans utiliser le bouton Parcourir.

Par exemple

MDB Nom est - History.mdb et nom de la table est - event.mdb

Je mets un chemin comme celui-ci « C: \ NewFolder » Dans mon logiciel

Dans le Au-dessus du dossier, le fichier texte apparaîtra avec des noms différents. Peut être par jour fichier texte apparaîtra 10 à 20 fichiers texte avec de nouveaux noms différents. Je ne peux pas donner le nom du fichier texte aussi. Je dois donner seulement l'extension comme (* .txt). Une fois que j'ai installé mon logiciel, le logiciel doit sélectionner le fichier texte de c: \ NewFolder, puis il le convertit automatiquement en mdb, après avoir converti le fichier texte que le fichier texte doit supprimer automatiquement.

Résultats escomptés

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. 

Pour convertir le texte à mdb AM ayant le code, pour sélectionner automatiquement le fichier texte je besoin d'un exemple de code ou de idée

Am nouveau à VB6, Peut-on donner quelques idée comment faire cela. Ou peut-on poster un exemple de code pour la sélection automatique du fichier texte.

S'il vous plaît.

Answer 1

Code de base ressemblerait à quelque chose le long des lignes de celle-ci:

 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 

Le code ci-dessus suppose que dans votre dossier C: \ NewFolder vous n'aurez fichiers * .txt et pas d'autres fichiers ou dossiers.

HTH