Discussion :

[Invité]

Bonsoir,

je cherche a trouver tout les chemins de fichier .txt présent dans un fichier sachant que le fichier contient d'autre fichier qui contiennent eux aussi des fichier txt.

Comment pourrais-je faire ceci ?

Bonne soirée

[Invité]

sachant que le fichier contient d'autre fichier qui contiennent eux aussi des fichier txt.

T'es sûr que tu t'es relu Tu voulais dire répertoire je pense.

[Invité]

Je cherchais le mot

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim files As String() = Directory.GetFiles(repertoireDeBase, "*.txt", SearchOption.AllDirectories)

[-N4w4k-]

Bonjour,

La FAQ VB.NET est très complète et très utile pour ce genre de chose, n'hésite pas à aller jeter un coup d'oeil pour t'inspirer des codes existants (-> FAQ (rubrique "fichiers"))

++

[Invité]

Bonsoir,

Merci pour votre aide, sa marche bien mais malheureusement cela me donne les fichier .txt et le nom de dossiers. N'y a t'il pas une fonction qui permettrais de parcourir tout les dossier present dans un meme dossier afin d'afficher les .txt ?

[Invité]

Le message de Thomas répond déjà à ta question.

[tomlev]

Merci pour votre aide, sa marche bien mais malheureusement cela me donne les fichier .txt et le nom de dossiers

Qu'est-ce qui te gêne ? Que ça renvoie les chemins complets ? Que ça cherche aussi dans les sous-dossiers ? Ça semble pourtant correspondre exactement à ce que tu demandais... si ce n'est pas ça que tu veux, il faudrait préciser ta question. Montre un exemple de ce que tu veux, ce sera peut-être plus clair

[Invité]

Bonjour,

Excusez moi j'ai du mal a m'exprimer, j'aimerais que mon programme parcourt un dossier donc la c'est bon, et qu'il parcourt aussi ses sous dossier, et les sous dossier des sous dossier ect... Afin de recuperer tout les chemin d'acces de tout .txt present dans ces dossier.

[-N4w4k-]

J'ai l'impression que la solution de tomlev fait exactement ce que tu veux..
L'as tu essayé?

[Invité]

Non justement cela ne marche pas :S

[Invité]

Non justement cela ne marche pas :S

Avec des messages comme ça on ne pourra pas faire grand chose pour toi.
Expliques nous ce qui ne marche pas. Y a-t-il un message d'erreur ?
Sinon il y a MSDN qui te dit ce que l'instruction fournie par Thomas est censée faire.

[tomlev]

Excusez moi j'ai du mal a m'exprimer, j'aimerais que mon programme parcourt un dossier donc la c'est bon, et qu'il parcourt aussi ses sous dossier, et les sous dossier des sous dossier ect... Afin de recuperer tout les chemin d'acces de tout .txt present dans ces dossier.

Bon bah finalement j'avais bien compris ; c'est exactement ce que fait le code que je t'ai donné. Il faut que tu donnes plus de détails pour qu'on puisse te dire ce qui ne va pas...

[sisqo60]

Bonjour,

Ma boule de cristal m'indique qu'elle doit parcourir des répertoires dont elle n'a pas les droits et la méthode GetFiles lève une exception et arrête l'énumération dès qu'elle rencontre une exception. A l'époque j'avait fait la méthode en C#, mais je l'ai adaptée en VB, n'étant pas connaisseur des optimisations en VB, je vous laisse le soin d'optimiser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Function SafeGetFiles(pDirectory As String, pSearchPattern As String, pSearchOption As SearchOption) As List(Of String)
 
        Dim retour As List(Of String)
 
        retour = Directory.GetFiles(pDirectory, pSearchPattern, SearchOption.TopDirectoryOnly).ToList()
 
        If (pSearchOption = SearchOption.AllDirectories) Then
            For Each item As String In Directory.GetDirectories(pDirectory)
                Try
                    Dim tmp As List(Of String)
                    tmp = SafeGetFiles(item, pSearchPattern, pSearchOption)
                    If Not tmp Is Nothing Then
                        retour.AddRange(tmp)
                    End If
                Catch ex As Exception
                    'Nothing on ignore les répertoires dont on a pas les droits ou les pathtoolongexception, bref on ignore toute exception
                End Try
            Next
 
        End If
 
        SafeGetFiles = retour
    End Function

J'espère que ça va marcher maintenant...

PS : évite les remarques du style "ça marche pas", "ça met une erreur", on ne peut rien faire pour toi si tu nous en dis si peu.

Bon dév.

[Invité]

Je test sa ce soir, il n'y avait pas d'erreur c'est sa le problème, il ne ce passé rien et aucune erreur.

[tomlev]

Je test sa ce soir, il n'y avait pas d'erreur c'est sa le problème, il ne ce passé rien et aucune erreur.

Bah tu t'attends à ce qu'il se passe quoi ? Le code que je t'ai donné récupère la liste des fichiers, mais ensuite il faut faire quelque chose avec cette liste, sinon effectivement ça ne fait rien...

[sisqo60]

Peut-être que le temps qu'il liste tous les fichiers prenait quelques secondes, et si tu n'est pas assez patient utilises Directory.EnumerateFiles, qui n'attend pas d'avoir tout énumérer pour te redonner la main.

Sinon Tomlev (+1) a raison, il faut en faire quelque chose de cette liste

[Invité]

Le code que je t'ai donné récupère la liste des fichiers, mais ensuite il faut faire quelque chose avec cette liste

+1.

Peux-tu nous monter ton code pour qu'on puisse voir comment tu fais ?

[Invité]

Super j'ai fais des modifications et sa marche.

[Invité]

Bonsoir,

j'ai une dernière question, comment faire pour récupérer seulement le chemin du fichier sans le :
"C:/doc/....."
et juste
"/fichier/test.txt"