Openfiledialog un peu evolue en dotnet
Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 399 fois - Téléchargée 40 fois
Contenu du snippet
sert a faire la "sauvegarde" de plusieurs fichiers dans un meme dossier
SUR VOTRE FORM1 ajoutez 2 checkedlistbox
masquer la 2e (c plus propre)
et ajouter 2 boutons
Source / Exemple :
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
Conclusion :
SUR VOTRE FORM1 ajoutez 2 checkedlistbox
masquer la 2e (c plus propre)
et ajouter 2 boutons
please help c'est urgent !!!!!!
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
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.