Comment sélectionner un fichier automatiquement?

Question

Utilisation VB6

Maintenant, je me sers d'un bouton Parcourir dans mon logiciel pour sélectionner le fichier texte, il est converti pour mdb (accès). Je ne veux pas sélectionner le fichier texte.

Une fois que j'ai installé mon logiciel dans tout système, le fichier texte devrait sélectionner automatiquement dans un chemin d'accès spécifié. Ensuite, le fichier texte convertit automatiquement en mdb. Une fois converti pour mdb puis

Code de Vb pour convertir le texte à 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

code ci-dessus travaille pour le texte à la conversion mdb. Mais je dois convertir le fichier texte automatiquement sans l'aide du bouton de navigation.

Par exemple

MDB Le 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 dossier ci-dessus, le fichier texte apparaîtra avec des noms différents. Peut-être par fichier texte apparaîtra jour 10 à 20 fichiers texte avec de nouveaux noms différents. Je ne peux pas en mesure de donner le nom du fichier texte aussi. Je dois donner que l'extension comme (* .txt).

Une fois que j'ai installé mon logiciel, le logiciel doit sélectionner le fichier texte c: \ NewFolder, il convertit automatiquement à mdb, après converti le fichier texte, fichier texte doit supprimer automatiquement.

Sortie prévue

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 que je besoin d'un exemple de code ou une idée de

suis nouveau à VB6, Peut-on donner une idée comment faire cela. Ou peut tout afficher 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 ceci:

      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