Recuperer une partie du string dans un item listbox
Sentynel
Messages postés85Date d'inscriptionjeudi 7 janvier 2010StatutMembreDernière intervention13 juillet 2013
-
25 déc. 2011 à 21:42
Sentynel
Messages postés85Date d'inscriptionjeudi 7 janvier 2010StatutMembreDernière intervention13 juillet 2013
-
26 déc. 2011 à 00:20
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 :
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 !
A voir également:
Recuperer une partie du string dans un item listbox
Sentynel
Messages postés85Date d'inscriptionjeudi 7 janvier 2010StatutMembreDernière intervention13 juillet 2013 26 déc. 2011 à 00:20
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