Question trés difficile!!!!!!!

Question

Salut, voici mon probleme, je dois importer automatiquement tout les X temps un fichier texte qui change de nom dans un tableau.

Qui change de nom? oui et non, c'est à dire qu'au nom vient s'incrementer la date et l'heure, exemple:

test.txt
test_12_02_03.txt
test_13_02_03.txt
...

Je ne sais vraiment pas comment faire, d'autant plus que tout doit etre automatisé, l'utilisteur du programme ne peut aller chercher manuellement ses fichiers.

Si jamais quelqu'un avait une idée..

Merci

crenaud76 · Answer

Faire un Dir("test*.txt") et tu auras tes nom de fichiers


Dim Fic as string
If Fic <> "" Then     ' On a trouvé un fichier
  Fic = Dir("Test*.txt")
  ...... Faire le traitement du fichier dont le nom est dans la variable Fic
  Name Fic As Fic & ".traite" ' Pour renommer le fichier qui viens d'être traité et ne pas le retraiter au tour suivant (Tu peux faire un Kill dessus si tu veux même)
End If


Christophe R.

cs_rene38 · Answer

crenaud76 : tu as dû faire une petite erreur

Dim Fic as string 'Fic initialisée à "" (vbNullString)
If Fic <> "" Then 'Fic = "" donc on passe tout de suite à End If

cs_rene38 · Answer

probablement inversion des 2ème et 3ème lignes de code

crenaud76 · Answer

Ouais c'est exact !! Faut que j'arrête l'apéro la !!!
Au passage, rene38, une info : vbNullString n'est pas égale à "" (qui est une chaine vide) !!
Et non !!! Une chaine est effectivement initialisé à "". vbNullString est une constante représentant une chaine nulle, utilisée pour les appels de fonction C.
"" est une chaine vide en VB. Il y a une nuance notable !!
Alors je sais que pour VB vbNullString = "" est True mais vbNullString n'est pas égale à "". Pour preuve, lance un appel à une fonction API en remplaçant vbNullString par "" et tu vas planter vite fait bien fait !!

Christophe R.

crocmorts · Answer

Merci les gars, je vais regarder à ca, encore 1000000 merci!!!!!!!!! 8-)