Utiliser les données d'une Listbox pour afficher une MessageBox

Version imprimable

12/09/2018, 12h24
Shennong

Utiliser les données d'une Listbox pour afficher une MessageBox

Bonjour à tous,

J'aurai besoin d'aide pour un morceau de code dont j'ai besoin pour une appli svp.

J'ai une listbox qui contient jusqu'à 5 chemins vers des dossiers.

Je souhaite pouvoir vérifier si chaque dossier existe bien, et s'il n'existe pas conserver le chemin testé (l'item en question de la listbox du coup) de "côté" pour qu'à la fin des vérifications, je puisse afficher une MessageBox du type :

"Les chemins suivants ne sont plus accessibles :
C:\TOTO
C:\TUTU"

Je souhaiterai pouvoir garder ce type d'affichage, c'est-à-dire les chemins sous forme de liste dans la MessageBox.

Je me retourne le cerveau depuis plus d'une heure sur ce problème. Alors si quelqu'un peut m'aider ce serait vraiment sympa de sa part.

Merci beaucoup ! et bonne journée ! :)
12/09/2018, 14h15
ZenZiTone

Citation:

Envoyé par Shennong

et s'il n'existe pas conserver le chemin testé (l'item en question de la listbox du coup) de "côté" pour qu'à la fin des vérifications, je puisse afficher une MessageBox

Peut-être dans une variable de type List<string>?

Citation:

Envoyé par Shennong

afficher une MessageBox du type :

"Les chemins suivants ne sont plus accessibles :
C:\TOTO
C:\TUTU"

Je souhaiterai pouvoir garder ce type d'affichage, c'est-à-dire les chemins sous forme de liste dans la MessageBox.

Tu met le tout dans un string avec un retour chariot avant chaque chemin à afficher...

Tu bloques où exactement?
12/09/2018, 14h19
Shennong

Merci de prendre le temps de te pencher sur mon problème déjà :)

En fait, je bloque dès le début. Je ne sais pas si mon approche est la bonne, et je n'arrive pas à manipuler le ListArray que j'ai essayé par exemple.

Je tâtonne mais je ne trouve rien qui ressemblerait à un début de solution.

Si tu peux m'aiguiller un peu plus, j'apprécierai beaucoup.

Merci.

J'ai trouvé grâce au List (Of String), merci !

En fait, j'ai pu faire 2 listbox et faire ce que je voulais. C'est nickel !

Voici le code au cas où ça pourrait aider d'autres personnes :

Code:

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
38
39
40
41
42
43
44
45
46
 
 Dim liste1 As List(Of String) = New List(Of String)
        Dim i As Integer
 
        For i = 0 To listbox1.Items.Count - 1
 
            If Directory.Exists(listbox1.Items(i)) = False Then
 
                liste1.Add(listbox1.Items(i))
 
            End If
 
        Next
 
        Dim valeurs1 As String = String.Join(Environment.NewLine, liste1)
 
        Dim liste2 As List(Of String) = New List(Of String)
        Dim j As Integer
 
        For j = 0 To listbox2.Items.Count - 1
 
            If Directory.Exists(listbox2.Items(j)) = False Then
 
                liste2.Add(listbox2.Items(j))
 
            End If
 
        Next
 
        Dim valeurs2 As String = String.Join(Environment.NewLine, liste2)
 
        If valeurs1.Count <> 0 And valeurs2.Count <> 0 Then
 
            MsgBox("Des répertoires de sauvegarde et de destination ne sont plus accessibles." & vbCrLf & vbCrLf & "Répertoires de sauvegarde inaccessibles :" & vbCrLf & valeurs1 & vbCrLf & vbCrLf & "Répertoires de destination inaccessibles :" & vbCrLf & valeurs2 & vbCrLf & vbCrLf & "Veuillez modifier les paramètres de l'application.", vbOKOnly + vbExclamation, "Répertoires inaccessibles")
 
        ElseIf valeurs1.count <> 0 And valeurs2.count = 0 Then
 
            MsgBox("Des répertoires de sauvegarde ne sont plus accessibles." & vbCrLf & vbCrLf & "Répertoires de sauvegarde inaccessibles :" & vbCrLf & valeurs1 & vbCrLf & vbCrLf & "Veuillez modifier les paramètres de l'application.", vbOKOnly + vbExclamation, "Répertoires inaccessibles")
 
        ElseIf valeurs1.count = 0 And valeurs2.count <> 0 Then
 
            MsgBox("Des répertoires de destination ne sont plus accessibles." & vbCrLf & vbCrLf & "Répertoires de destination inaccessibles :" & vbCrLf & valeurs2 & vbCrLf & vbCrLf & "Veuillez modifier les paramètres de l'application.", vbOKOnly + vbExclamation, "Répertoires inaccessibles")
 
        Else
 
        End If

Bonne fin de journée ! :)

bonjour

Bah tu peux faire ceci :
code .vb :

Code:

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
38
39
40
 
Imports System.IO
Imports System.Text
Public Class Form2
    Private dirList As List(Of String)
    Private sb As StringBuilder
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("C:\TOTO")
        ListBox1.Items.Add("C:\TUTU")
        ListBox1.Items.Add("C:\ALIBABA")
        sb = New StringBuilder
        dirList = New List(Of String)
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex < 0 Then Return
        Dim path As String = CType(ListBox1.SelectedItem, String)
        SearchDir(path)
    End Sub
    Private Sub SearchDir(thepath As String)
        If Directory.Exists(thepath) = False Then
            If Not dirList.Contains(thepath) Then
                dirList.Add(thepath)
            End If
        End If
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        sb.Clear()
        For Each item As String In dirList
            sb.AppendLine(item)
        Next
        MessageBox.Show(sb.ToString, "repertoires non trouvés:")
 
 
 
 
    End Sub
End Class

bon code...