Utiliser GetFiles pour selectionner une extension precise en VB.net

Version imprimable

24/07/2021, 09h44
lorax

Utiliser GetFiles pour selectionner une extension precise en VB.net

Salut!

J'ai besoin d'un coup de la part de la communauté pour m'aider à résoudre un problème sur le quel je me penche depuis hier.
J'ai cherché du mieux que je peux des solutions pour résoudre ce problème dans ce forum et un peu partout.

J'utilise Dim fileNames = My.Computer.FileSystem.GetFiles(folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.ods") pour récupérer uniquement des fichiers avec des extensions ods dans un dossier quelconque.
Mais le soucis est que même les fichiers avec les extensions *.odsxxx sont aussi sélectionner.

Merci d'avance de m'aider à sélectionner uniquement les ods.

Bonsoir,

vous pouvez faire ceci pour récupérer juste l'extension fichier *.ods :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim folder As New FolderBrowserDialog With {
            .Description = "Veuillez selectionner un dossier !",
            .ShowNewFolderButton = False,
            .RootFolder = Environment.SpecialFolder.Desktop}
        If folder.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = folder.SelectedPath
        Else : Exit Sub
        End If
    End Sub
 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Not String.IsNullOrEmpty(TextBox1.Text) Then
            Dim filenames As List(Of String) = FindFiles(TextBox1.Text, "*.ods", CheckBox1.Checked) 'checkbox1 rechercher soit par un seul dossier ou mutiple dossier le fichier '.ods
            RichTextBox1.Clear()
            For Each filename As String In filenames
                    RichTextBox1.AppendText(filename & Environment.NewLine)
            Next filename
        End If
    End Sub
Private Function FindFiles(Folder As String, patterns As String, search As Boolean) As List(Of String)
        Dim files As New List(Of String)()
        Dim search_option As SearchOption = SearchOption.TopDirectoryOnly
        If search Then search_option = SearchOption.AllDirectories
        For Each pattern As String In patterns
            For Each filename As String In Directory.GetFiles(Folder, pattern, search_option).Where(Function(s) s.EndsWith(patterns.Substring(1, patterns.Length - 1), StringComparison.OrdinalIgnoreCase))
                If Not files.Contains(filename) Then files.Add(filename)
            Next filename
        Next pattern
        files.Sort()
        Return files
    End Function

pour info : je l'ai déjà essayer il fonctionne très bien. cordialement

Bonjour,

Je n'ai sans doute pas très bien compris la question mais s'il s'agit de récupérer les noms des fichiers avec extension ods, ceci suffit :
Code:

1 2 Dim MesFichiers() As String = System.IO.Directory.GetFiles(CheminDuDossier, "*.ods") ' par exemple : ... =System.IO.Directory.GetFiles("D:\Tmp", "*.ods")
...

Citation:

Envoyé par Miska59

Bonsoir,

vous pouvez faire ceci pour récupérer juste l'extension fichier *.ods :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim folder As New FolderBrowserDialog With {
            .Description = "Veuillez selectionner un dossier !",
            .ShowNewFolderButton = False,
            .RootFolder = Environment.SpecialFolder.Desktop}
        If folder.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = folder.SelectedPath
        Else : Exit Sub
        End If
    End Sub
 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Not String.IsNullOrEmpty(TextBox1.Text) Then
            Dim filenames As List(Of String) = FindFiles(TextBox1.Text, "*.ods", CheckBox1.Checked) 'checkbox1 rechercher soit par un seul dossier ou mutiple dossier le fichier '.ods
            RichTextBox1.Clear()
            For Each filename As String In filenames
                    RichTextBox1.AppendText(filename & Environment.NewLine)
            Next filename
        End If
    End Sub
Private Function FindFiles(Folder As String, patterns As String, search As Boolean) As List(Of String)
        Dim files As New List(Of String)()
        Dim search_option As SearchOption = SearchOption.TopDirectoryOnly
        If search Then search_option = SearchOption.AllDirectories
        For Each pattern As String In patterns
            For Each filename As String In Directory.GetFiles(Folder, pattern, search_option).Where(Function(s) s.EndsWith(patterns.Substring(1, patterns.Length - 1), StringComparison.OrdinalIgnoreCase))
                If Not files.Contains(filename) Then files.Add(filename)
            Next filename
        Next pattern
        files.Sort()
        Return files
    End Function

pour info : je l'ai déjà essayer il fonctionne très bien. cordialement

Miska59, je ne pensais pas que ça allais être un longue code comme celui que tu viens de proposé.
Toutefois ceci résous mon problème.

Cette partie est celle que je ne comprends pas encore

Code:

1
2
3
4
5
6
7
 
  For Each pattern As String In patterns
      For Each filename As String In Directory.GetFiles(Folder, pattern, search_option).Where(Function(s) s.EndsWith(patterns.Substring(1, patterns.Length - 1),   StringComparison.OrdinalIgnoreCase))
          If Not files.Contains(filename) Then files.Add(filename)
            Next filename
        Next pattern
        files.Sort()

Mon problème est résolu.

Merci Miska59