Recherche d'un fichier dans les dossiers et sous dossier.

Bonsoir Blaster,

J'espère que cela t'aidera ;

#######################################################
Sub ScanFichierV2(ByVal sDossier As String, ByVal sFichierRechercher As
String, ByRef sTableau() As String)
Dim ListeFichiers() As String = Directory.GetFiles(sDossier)
Dim Fichier As String = Nothing

For Each Fichier In ListeFichiers
If Fichier.ToLower.Contains(sFichierRechercher.ToLower) Then
sTableau(sTableau.Length - 1) = Fichier
ReDim Preserve sTableau(sTableau.GetUpperBound(0) + 1)
End If
Next

Dim SousDossiers() As String = Directory.GetDirectories(sDossier)
Dim SousDossier As String = Nothing


For Each SousDossier In SousDossiers
ScanFichierV2(SousDossier, sFichierRechercher, sTableau)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim MonTableau(0) As String
Dim Valeur As String
Dim FichierATrouver As String = "doT"

ScanFichierV2("c:test", FichierATrouver, MonTableau)

For Each Valeur In MonTableau
If Valeur <> Nothing Then
ListBox1.Items.Add(Valeur)
End If
Next

End Sub

######################################

Tu peux adapter ce code pour améliorer sa fonctionnalité.

Bonne soirée,

--
Cordialement,

Mathieu Francesch
epsilon@neuf.fr


"Blaster" a écrit :

Bonjour,

Je voudrai s'avoir comment je pourrais scaner tout les dossiers et sous
dossier d'un disque pour rechercher un fichier.

Merci.

Re bonsoir Mathieu,

Une fois de plus vous m'avez grandement aider ;) merci beaucoup ! J'aimerais
avoir votre connaissance ^^'
Je vous envoie par mail si vous le souhaitez mon programme une fois achevé.

Merci encore et à la prochaine !

Olivier

"Mathieu Francesch" wrote:

Bonsoir Blaster,

J'espère que cela t'aidera ;

#######################################################
Sub ScanFichierV2(ByVal sDossier As String, ByVal sFichierRechercher As
String, ByRef sTableau() As String)
Dim ListeFichiers() As String = Directory.GetFiles(sDossier)
Dim Fichier As String = Nothing

For Each Fichier In ListeFichiers
If Fichier.ToLower.Contains(sFichierRechercher.ToLower) Then
sTableau(sTableau.Length - 1) = Fichier
ReDim Preserve sTableau(sTableau.GetUpperBound(0) + 1)
End If
Next

Dim SousDossiers() As String = Directory.GetDirectories(sDossier)
Dim SousDossier As String = Nothing


For Each SousDossier In SousDossiers
ScanFichierV2(SousDossier, sFichierRechercher, sTableau)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim MonTableau(0) As String
Dim Valeur As String
Dim FichierATrouver As String = "doT"

ScanFichierV2("c:test", FichierATrouver, MonTableau)

For Each Valeur In MonTableau
If Valeur <> Nothing Then
ListBox1.Items.Add(Valeur)
End If
Next

End Sub

######################################

Tu peux adapter ce code pour améliorer sa fonctionnalité.

Bonne soirée,

--
Cordialement,

Mathieu Francesch
epsilon@neuf.fr


"Blaster" a écrit :

> Bonjour,
>
> Je voudrai s'avoir comment je pourrais scaner tout les dossiers et sous
> dossier d'un disque pour rechercher un fichier.
>
> Merci.

Merci beaucoup Olivier,

Je serai ravi de voir votre programme.

En ce qui concerne la connaissance, cela ne fait pas longtemps que je fais
du VB.NET mais comme disait l'un de mes profs à l'école, l'important en
informatique c'est de savoir lire ;-)

Et puis quel serait le rôle de ce forum si ce n'était pas l'entraide entre
les développeurs ?

Bonne soirée,
--
Cordialement,

Mathieu Francesch
epsilon@neuf.fr


"Blaster" a écrit :

Re bonsoir Mathieu,

Une fois de plus vous m'avez grandement aider ;) merci beaucoup ! J'aimerais
avoir votre connaissance ^^'
Je vous envoie par mail si vous le souhaitez mon programme une fois achevé.

Merci encore et à la prochaine !

Olivier

"Mathieu Francesch" wrote:

> Bonsoir Blaster,
>
> J'espère que cela t'aidera ;
>
> #######################################################
> Sub ScanFichierV2(ByVal sDossier As String, ByVal sFichierRechercher As
> String, ByRef sTableau() As String)
> Dim ListeFichiers() As String = Directory.GetFiles(sDossier)
> Dim Fichier As String = Nothing
>
> For Each Fichier In ListeFichiers
> If Fichier.ToLower.Contains(sFichierRechercher.ToLower) Then
> sTableau(sTableau.Length - 1) = Fichier
> ReDim Preserve sTableau(sTableau.GetUpperBound(0) + 1)
> End If
> Next
>
> Dim SousDossiers() As String = Directory.GetDirectories(sDossier)
> Dim SousDossier As String = Nothing
>
>
> For Each SousDossier In SousDossiers
> ScanFichierV2(SousDossier, sFichierRechercher, sTableau)
> Next
> End Sub
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>
> Dim MonTableau(0) As String
> Dim Valeur As String
> Dim FichierATrouver As String = "doT"
>
> ScanFichierV2("c:test", FichierATrouver, MonTableau)
>
> For Each Valeur In MonTableau
> If Valeur <> Nothing Then
> ListBox1.Items.Add(Valeur)
> End If
> Next
>
> End Sub
>
> ######################################
>
> Tu peux adapter ce code pour améliorer sa fonctionnalité.
>
> Bonne soirée,
>
> --
> Cordialement,
>
> Mathieu Francesch
> epsilon@neuf.fr
>
>
> "Blaster" a écrit :
>
> > Bonjour,
> >
> > Je voudrai s'avoir comment je pourrais scaner tout les dossiers et sous
> > dossier d'un disque pour rechercher un fichier.
> >
> > Merci.