Découpage GetFiles

Résolu
duarep Messages postés 32 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014 - 17 avril 2011 à 10:45
duarep Messages postés 32 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014 - 17 avril 2011 à 15:54
Bonjour
Dans la routine suivante, je cherche à ne tester que la partie fichier pour sélectionner ceux qui contiennent la valeur dans TextBox3
La ligne Decoupe = fichier.Split("") 'Donne erreur : Une valeur de type 'Tableau à 1 dimension(s) de String' ne peut pas être convertie en 'String'
J'ai fait pas mal d'essais infructueux et je serais heureux si quelqu'un peut me donner la solution à mon pb.
Merci
Jacques
For Each fichier In Directory.GetFiles(Chemin, Extension1) 'On cherche les fichiers du répertoire de base
            If RadioButton4.Checked Then  'Chercher
    
                Decoupe = fichier.Split("")
                NomFic = Decoupe(Decoupe.Length - 1) 
                
                If Not CheckBox2.Checked Then 'Casse insensitive
                    If NomFic.ToUpper.Contains(TextBox3.Text.ToUpper) Then
                        Me.ListBox4.Items.Add(fichier)
                        D3.Add(fichier)
                        NbrFic = NbrFic + 1
                    Else                       'Casse insensitive
                        If NomFic.Contains(TextBox3.Text) Then
                            Me.ListBox4.Items.Add(fichier)
                            D3.Add(fichier)
                            NbrFic = NbrFic + 1
                        End If
                    End If
                End If
            Else     'Lister
                Me.ListBox4.Items.Add(fichier)
                D3.Add(fichier)
                NbrFic = NbrFic + 1
            End If
        Next

4 réponses

duarep Messages postés 32 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014
17 avril 2011 à 15:54
Merci à tous les deux et particulièrement à NHenry c'était tellement gros que je cherchais ailleurs ce qui me aurait du me sauter au nez
Jacques
3
duarep Messages postés 32 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014
17 avril 2011 à 10:47
le commentaire du Else est 'Casse sensitive
Désolé
Jacques
0
pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
17 avril 2011 à 11:14
es tu sûr d'être en VB6 et pas en VB.NET
en VB6 c'est :
Decoupe = Split(fichier,"")

si c'est la solution, penser : REPONSE ACCEPTEE
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
17 avril 2011 à 13:22
Bonjour,

C'est du VB.NET*
Le message est clair,
Decoupe est déclaré en String et pas en String()

Mon site
0
Rejoignez-nous