Combobox et liste de fichier d'un repertoire.

Question

bonjour,

je cherche comment ajouter dans un combobox la liste de fichiers d'un repertoire sans l'extension.

d'avance merci

Mayzz · Answer

Bonsoir,

Essaye ça :

        Dim DirInfo As New IO.DirectoryInfo("c:")
        For Each FileInfo As IO.FileInfo In DirInfo.GetFiles
            ComboBox1.Items.Add(Mid(FileInfo.Name, 1, _
            Len(FileInfo.Name) - Len(FileInfo.Extension)))
        Next

Désolé j'ai fais au plus court pour le code donc coté lisibilité/compréhension cela laisse à désirer mais si tu ne comprend pas quelque chose dis-le et je détaillerais (rien qui nécéssite d'être un expert de toutes façons).

@+ Mayzz.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

astouz2000k · Answer

merci beaucoup ça marche nikel.
est ce que as tout hazard tu aurais la meme chose mais avec la liste de repertoires contenu dans un repertoire.

Merci

Mayzz · Answer

Salut,

        Dim DirInfo As New IO.DirectoryInfo("c:")
        For Each DInfo As IO.DirectoryInfo In DirInfo.GetDirectories
            ComboBox1.Items.Add(DInfo.Name)
        Next

Pas compliqué, remplacement des IO.FileInfo par IO.DirectoryInfo et tu change la méthode (GetFiles en GetDirectories)

@+ Mayzz

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

astouz2000k · Answer

Merci pour t'es reponses rapide , cela marche nikel.

@+

Combobox et liste de fichier d'un repertoire.

4 réponses

Votre réponse

Discussions similaires