Discussion :

[Bamba Aboubacar]

Salut à tous!!

je suis débutant et ça fait un bon moment que je me rue sur le clavier
je cherche un code-sources en VB6.0 qui va chercher tous les fichiers d'extension (.txt) sur une clé USB et qui va me
permettre de choisir le fichier mnfich.txt en question et qui va l'intégrer à mon application
venez moi en aide SVP

[SfJ5Rpw8]

Bonjour,

difficile de t'aider sans savoir ce que tu "sais" faire et ce que tu as fait ....

tiens pour commencer un exemple de code pour lister les fichiers d'un répertoire :

http://vb.developpez.com/telecharger...e-d-un-fichier

[Bamba Aboubacar]

Bonjour
merci énormément pour le code que vous m avez envoyé çà m a bcp avancé

voilà ce que j'avais fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CmdExport_Click()
Dim rs As ADODB.Recordset
Dim f
Dim s As String
Dim sep As String
Dim t() As String
Dim i As Integer
sep = ""
 
While Not EOF(f)
Line Input #f, s
t() = Split(s, sep)
 
' pour virer les guillements superflus,
' inutile avec mon export.
 
For i = LBound(t()) To UBound(t())
t(i) = Replace(t(i), Chr$(34), Chr$(0))
Next i
 
rs.AddNew
rs.Fields("Centre") = t(0)
rs.Fields("datedujour") = CDate(t(1))
rs.Fields("codeenfant") = CLng(t(2))
rs.Fields("Nom") = t(3)
rs.Fields("Prénom") = t(4)
rs.Fields("Datenaissance") = CDate(t(5))
rs.Fields("QF") = t(6)
rs.Fields("BV2007") = CBool(t(7))
rs.Fields("Nbdejours") = CLng(t(8))
rs.Fields("Adresse") = t(9)
rs.Fields("Ville") = t(10)
rs.Fields("CodePostal") = CLng(t(11))
rs.Update
Wend
 
End sub

maintenant je cherche à selectionnner le fichier .txt dans listbox et l'intéger à mon application
pour sélectionner le fichier en question je sais que c'est qlqch du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
private sub list1_click()
select case list1.listindex
case 0 'apparamment utilisé la variable i à la place de 0
 
' cliquer sur la lign pour l'intégrer
end select
end sub

venez moi en aide svp

[l_autodidacte]

A la ligne 12, tu as écrit t() = Split(s, sep) avec sep="" donc une chaine vide, le résultat sera t(0)=s sans rien d'autre.
Je me demande si tu voulais dire sep=" " c-à-d le caractère espace ou non !?

Dans le second code, il me semble plus utile d'utiliser les noms explicites à la place des indexes qui ne sont que des numéros pas aussi éloquents que les noms de fichiers par exemple :MsgBox List1.List(List1.ListIndex)