Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Mathieu Francesch
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"
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
"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.
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"
####################################################### 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"
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
"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.
Blaster
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"
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
"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"
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"
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
"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.
Mathieu Francesch
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
"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 > > > > "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.
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
"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 > > > > "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.