1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Openfiledialog un peu evolue en dotnet

Openfiledialog un peu evolue en dotnet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 537 fois - Téléchargée 42 fois

Commenter

Contenu du snippet

sert a faire la "sauvegarde" de plusieurs fichiers dans un meme dossier

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

A voir également

Ajouter un commentaire Commentaires
souma1705
Messages postés
1
Date d'inscription
mercredi 25 février 2009
Statut
Membre
Dernière intervention
14 mai 2011
2 mars 2010 à 12:12
comment récupérer le chemin d'un fichier ouvert dans un combobox en c#
please help c'est urgent !!!!!!
ronanry
Messages postés
190
Date d'inscription
lundi 25 novembre 2002
Statut
Membre
Dernière intervention
22 décembre 2009
7 févr. 2003 à 21:11
oui pardon j'avais oublie de preciser pour le openfiledialog...pardon
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
Jefflec
Messages postés
8
Date d'inscription
lundi 26 février 2001
Statut
Membre
Dernière intervention
19 février 2003
7 févr. 2003 à 19:32
Le premier bouton sert à rien...??
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...
S'inscrire maintenant

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.

Du même auteur (ronanry)