Discussion :

[skaraa]

Bonjour,

Je voudrais lister le nom de chaque fichier qui se trouve dans un répertoire précis dans une combobox.

J'ai trouvé à cette adresse ce que je cherchais
http://plasserre.developpez.com/v4-7.htm

Exemple:

Afficher dans une ListeBox les sous dossiers (répertoires) du répertoire de l'application:

Dim SousDos() As String= Directory.GetDirectories(Directory.GetCurrentDirectory)

Dim Dossier As String

For Each Dossier In SousDos

List1.Items.Add(Dossier)

Next

La c'est seulement pour les repertoires dans le dossier courant mais je n'aurais je pense qu'a remplacer par getfiles .
Cependant cela ne marche pas j'ai l'erreur suivante

L'exception System.NotSupportedException n'a pas été gérée
Message="NotSupportedException"
StackTrace:
at System.IO.__Error.WinIOError()
at System.IO.__Error.WinIOError()
at System.Host.HostNative.GetCurrentDirectory()
at System.IO.Directory.GetCurrentDirectory()
at ListerRepertoire.Form1.Form1_Load()
at System.Windows.Forms.Form.OnLoad()
at System.Windows.Forms.Form._SetVisibleNotify()
at System.Windows.Forms.Control.set_Visible()
at System.Windows.Forms.Application.Run()
at ListerRepertoire.Form1.Main()

PS il s'agit d'une appli mobile 6.0 avec cf 2.0.

d'ou viens l'erreur? sinon ya t'il un autre moyen de faire ce que je cherche?

[skaraa]

EN fait j'ai résolu mon problème:

Sub Lister()
Dim dirInfo As New System.IO.DirectoryInfo("\carte mémoire\aip_ressources\Rappels\")
Dim file As System.IO.FileInfo
Dim files() As System.IO.FileInfo = dirInfo.GetFiles("*.txt")
If (files IsNot Nothing) Then
For Each file In files
ListBox1.Items.Add(file.Name)
Next
End If
End Sub