Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 537 fois - Téléchargée 42 fois
Imports System.IO 'faut OBLIGATOIREMENT ajouter ca tout en haut Private Sub Browser2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fichier() As String Dim proposition, petit_nom As String Dim i, j As Integer i = 0 If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then ReDim Preserve fichier(i) fichier(i) = OpenFileDialog1.FileName() If Me.CheckedListBox2.FindStringExact(fichier(i)) > -1 Then i -= 1 Else petit_nom = fichier(i).Substring(fichier(i).LastIndexOf("\") + 1) If Me.CheckedListBox1.FindStringExact(petit_nom) > -1 Then j = 0 Do j += 1 proposition = petit_nom.Substring(0, petit_nom.LastIndexOf(".")) & j & petit_nom.Substring(petit_nom.LastIndexOf(".")) Loop While (Me.CheckedListBox1.FindStringExact(proposition) > -1) proposition = InputBox("Veuillez renommer le fichier ajoute", "Doublon", proposition) Me.CheckedListBox1.Items.Add(proposition, True) Else Me.CheckedListBox1.Items.Add(fichier(i).Substring(fichier(i).LastIndexOf("\") + 1), True) End If Me.CheckedListBox2.Items.Add(fichier(i), True) End If i += 1 End If OpenFileDialog1.Dispose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Dim test(0) As String Dim j As Integer = 0 Dim repertoire, petit_nom As String If Directory.Exists("upload") = False Then Directory.CreateDirectory("upload") repertoire = "upload" Else j = 0 Do j += 1 repertoire = "upload" & j Loop While (Directory.Exists(repertoire) = True) Directory.CreateDirectory(repertoire) End If Dim i As Integer = 0 While i < Me.CheckedListBox2.Items.Count If Me.CheckedListBox1.GetItemChecked(i) Then File.Copy(Me.CheckedListBox2.Items.Item(i), repertoire & "\" & Me.CheckedListBox1.Items.Item(i)) End If i += 1 End While Cursor.Current = System.Windows.Forms.Cursors.Default End Sub
2 mars 2010 à 12:12
please help c'est urgent !!!!!!
7 févr. 2003 à 21:11
par contre
le premier bouton est gerer par la fonction "browser2" justement..
donc le premier bouton sert et tu sais d'ou sort mon browser2
et mes checkedlistbox sont pas cense reste vides
mais se remplir
7 févr. 2003 à 19:32
Tu as oublié de dire qu'il faut mettre un OpenFileDialog...
Enfin, ça marche pas, il sort d'où ton "Browse2" ???
Bon, je vais continuer à chercher, mais si y'a quelqu'un qui peut m'aider...
Et tes checkedlistbox restent vides...???????
Bref, ça marche pas...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.