Recuperer une partie du string dans un item listbox

Signaler
Messages postés
86
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
13 juillet 2013
-
Messages postés
86
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
13 juillet 2013
-
Bonjour à tous !
Je suis en train de faire un code pour pouvoir enregistrer le répertoire d'un dossier via des strings ajouter sur une listbox.

J'ai un bouton me permettant d'enregistrer.
Un checkbox me permettant d'activer/désactiver l'enregistrement. (obsolète, oui je sais)
Une listbox contenant plusieurs répertoire sources.
Une textbox contenant le répertoire destination.
Une textbox contenant le nom du répertoire que l'utilisateur devra chosir.

Voici le code lorsqu'on enregistre :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If CheckBoxSaveCustomPath.Checked = True Then
            For Each paths As String In ListBoxCustomPaths.Items
                If System.IO.Directory.Exists(paths.ToString) = True Then
                    My.Computer.FileSystem.CopyDirectory(paths.ToString, TextBox0.Text & "\Custom Paths", True)
                End If
            Next
end sub
        End If


Voici par exemple ce que les controls contiennent :

Listbox : C:\Users\Admin\Documents\test1%%-%%MonNom1
C:\Users\Admin\Documents\test2%%-%%MonNom2
C:\Users\Admin\Documents\test3%%-%%MonNom3

Textbox nom chemin : Nom

Textbox destination : C:\Users\Admin\Documents\Save\

Checkbox = 1

Ce que je voudrai faire :
Pouvoir enregistrer tous les chemin existant en prenant pour source que le text avant le %%-%%, qui irait s'enregistrer dans le chemin de destination\Nom* (tous le text apres le %%-%%)

Quelqu'un aurait une solution svp ?
Merci !

1 réponse

Messages postés
86
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
13 juillet 2013

Problème réglé
Je me suis servis d'un procédé que l'ont m'avais appris pour interagir avec les fichiers xml.

       If RadioButtonSaveCustomPaths.Checked = True Then
            ProgressBar1.Maximum = ProgressBar1.Maximum + ListBoxCustomPaths.Items.Count
            For Each paths As String In ListBoxCustomPaths.Items
                Dim s As String = paths
                Dim words As String() = s.Split(New Char() {"|"c})

                If System.IO.Directory.Exists(words.First) = True Then
                    My.Computer.FileSystem.CopyDirectory(words.First, TextBox0.Text & "\Custom Paths" & words.Last, True)
                    ProgressBar1.Increment(+1)
                End If
            Next
        End If