Discussion :

[Jeffboj]

Bonjour,

J'ai essayé comme dit dans la FAQ d'aller chercher mes fichiers sur une disquette c'est ok
maintenant j'aimerai les mettre dans une liste oups rien!
voici mon code

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
 
Private Sub Commande4_Click()
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "a:\"
rep = Dir("a:\*.*", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
    'teste si c'est un fichier ou un répertoire
    If (GetAttr("a:\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
    Else
        MsgBox "Fichier " & rep
        Me!List.RowSource = Me!List.RowSource & rep
 
 
    End If
    'passe à l'élément suivant
    rep = Dir
Loop
End Sub
 
Private Sub Form_Open(Cancel As Integer)
 ' Initialisation de la liste, elle contient une colonne 
Me!List.ColumnHeads = True
Me!List.ColumnCount = 1
Me!List.ColumnWidths = "4320" 'on détermine la largeur des colonne
Me!List.RowSource = "rep "
End Sub

J'ai aussi pris ce code sur la FAQ

Merci de m'aider

Jeff

[Arkham46]

slt,

le type de source de la liste est-il bien "liste de valeurs"?

[Tofalu]

C'est quoi ça : Me!List.RowSource = "rep " ?

Tu veux vraiment afficher rep dans la zone de liste et pas plutot la liste des fichiers ?

Ici, il manque le ; pour séparer les valeurs dans la zone de liste

Me!List.RowSource = Me!List.RowSource & rep

[Jeffboj]

merci pour vos réponses

c'est la liste des fichiers se trouvant sur a:

j'ai modifié sans succés

Code :

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

1
2
 
        Me!List.RowSource = Me!List.RowSource & rep & ";"

et j'ai supprimer ça

C'est quoi ça : Me!List.RowSource = "rep " ?

Jeff

[Faw]

Salut, et comme ça

Code :

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

Me!List.RowSource = Me!List.RowSource & ";" & rep

et tu te débarrasses du ";" en position 1 comme ceci (après la boucle)

Code :

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

Me!List.RowSource = Right(Me!List.RowSource, Len(Me!List.RowSource) - 1)

Il y a d'autres façons de procéder.

[Jeffboj]

merci à tous

Jeff