Discussion :

[Remus91]

Bonjour,
Je vais vous exposer mon problème, alors j'aimerais qu'à l'ouverture de mon formulaire les informations d'un répertoire soit afficher dans une listbox.

J'utilise ce code, il me liste dans des msgbox le contenue de mon répertoire D:

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
Private Sub btn_test_Click()
 
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "c:\"
rep = Dir("D:\*.*", 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("D:\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
 
    Else
        MsgBox "Fichier " & rep
    End If
    'passe à l'élément suivant
    rep = Dir
Loop
 
End Sub

Je ne trouve pas la fonction qui me permettrais de les afficher dans mon listbox plutôt que dans des msgbox.

Si vous avez une idée ou des conseils je suis preneur.

Merci
Cordialement,
Rémy

[agamitsudo]

Bonjour,

Sur ton objet listBox, tu peux utiliser la fonction AddItem.
Cordialement,

A.

[Remus91]

Bonjour,

Sur ton objet listBox, tu peux utiliser la fonction AddItem.
Cordialement,

A.

bonjour,
Je n'est pas trouvé ta fonction "AddItem", mais j'ai regardé le traitement des objets dans Access le problème est qu'il faut obligatoirement les déclarer pour les utiliser.
Moi je souhaiterais juste les afficher pas les traiter.

Merci

[Invité]

Bonjour

La méthode Additem n'est apparue qu'à partir de la version 2002 d'Access.

Dans ton cas, il faut créer une chaine en ajoutant par concaténation tes éléments, il faut les séparer par des ;

Regardes ce qu'il y a dans la FAQ : http://access.developpez.com/faq/?page=zdl#AddItem

Il faut alimenter la propriété RowSource avec une chaine qui comporte tes différents éléments.

Philipppe

[Tofalu]

Ou bien insérer les données dans une table temporaire et baser la liste sur la table. L'avantage, c'est qu'on est pas limité en nombre de fichiers contrairement à une liste de valeur limitée à 255 item je crois.

C'est cette méthode qui est utilisée il me semble dans les pages sources

[Remus91]

Bonjour
Il faut alimenter la propriété RowSource avec une chaine qui comporte tes différents éléments.

Si j'ai bien compris le principe de fonctionement de la proriété RowSource, je doit passer par un Select... quelque chose pour l'allimenter.

Pour identifer la localisation de mon dossier je passe par cette méthode :

Code :

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

 chemin = CurrentProject.Path & "\0_pieces_jointes\DS_" & Me.txb_numds.Value

Chemin est bien sur déclaré comme une chaîne de caractère (string).

@Tofalu : Ta méthode pourrait être forte intéressante mais bien compliqué, identifier dynamiquement le contenue d'un répertoire et le stocker dans une table….

[Tofalu]

@Tofalu : Ta méthode pourrait être forte intéressante mais bien compliqué, identifier dynamiquement le contenue d'un répertoire et le stocker dans une table….

Pourtant elle est détaillée dans les pages sources ... pas très difficile de copier coller

[Arkham46]

bjr,

voir l'aide de la propriété "origine source" de la liste
il y a un exemple de fonction (ListMDBs) qui remplit la liste avec les noms de fichiers *.mdb du répertoire courant
c'est beaucoup mieux avec l'utilisation d'une fonction personnalisée pour remplir la liste (pas de limite de taille de la liste et pas besoin de table temporaire)