Problème lors du scannage des dossiers d'un disque dur
Résolu
cs_fauve
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
-
4 mars 2007 à 23:13
cs_fauve Messages postés 661 Date d'inscription vendredi 2 décembre 2005 Statut Membre Dernière intervention 23 mars 2011 - 6 mars 2007 à 09:57
cs_fauve Messages postés 661 Date d'inscription vendredi 2 décembre 2005 Statut Membre Dernière intervention 23 mars 2011 - 6 mars 2007 à 09:57
3 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
4 mars 2007 à 23:35
4 mars 2007 à 23:35
Bonsoir,
Sépare ton traitement de l'affichage.
Pour cela met dans un thread ta fonction Recherche_Dossiers.
J'ai repris ton code et l'ai modifié. voir ci-dessous
8<-------------------------------------------------------
Imports
System.IO
Public
Class
Form1
Dim
liste_dossiers(0)
As
String
Dim
nb
As
Integer
= 0
Private
Delegate
Sub
DelDisplayInfos(
ByVal
folder
As
String
,
ByVal
nb
As
String
)
Private
Sub
Button1_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.ClickLabel1.Text =
"Recherche des dossiers en cours..."
Label1.Update()
Dim
th
As
New
Threading.Thread(
AddressOf
ProcRecherche)th.Start(
New
Object
() {
"C:/"
, 0})
End
Sub
Private
Sub
ProcRecherche(
ByVal
value
As
Object
)
Dim
obj
As
Object
() = value
Dim
sFolder
As
String
= obj(0).ToString()
Dim
iVal
As
Integer
= obj(1)Recherche_Dossiers(sFolder, iVal)
End
Sub
Public
Sub
Recherche_Dossiers(
ByVal
folder
As
String
,
ByVal
indent
As
Int32)
Dim
subdirs
As
String
() = Directory.GetDirectories(folder)
Dim
del
As
New
DelDisplayInfos(
AddressOf
ProcDisplay)
If
subdirs.Length <> 0
Then
For
Each
s
As
String
In
subdirsnb = nb + 1
Me
.Invoke(del, s, nb.ToString)
'Utiliser la récursivité avec une indentation
Recherche_Dossiers(s, indent + 3)
Next
End
If
End
Sub
Private
Sub
ProcDisplay(
ByVal
folder
As
String
,
ByVal
nb
As
String
)Label2.Text = folder
Label3.Text = nb
End
SubEnd
Class
Sépare ton traitement de l'affichage.
Pour cela met dans un thread ta fonction Recherche_Dossiers.
J'ai repris ton code et l'ai modifié. voir ci-dessous
8<-------------------------------------------------------
Imports
System.IO
Public
Class
Form1
Dim
liste_dossiers(0)
As
String
Dim
nb
As
Integer
= 0
Private
Delegate
Sub
DelDisplayInfos(
ByVal
folder
As
String
,
ByVal
nb
As
String
)
Private
Sub
Button1_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.ClickLabel1.Text =
"Recherche des dossiers en cours..."
Label1.Update()
Dim
th
As
New
Threading.Thread(
AddressOf
ProcRecherche)th.Start(
New
Object
() {
"C:/"
, 0})
End
Sub
Private
Sub
ProcRecherche(
ByVal
value
As
Object
)
Dim
obj
As
Object
() = value
Dim
sFolder
As
String
= obj(0).ToString()
Dim
iVal
As
Integer
= obj(1)Recherche_Dossiers(sFolder, iVal)
End
Sub
Public
Sub
Recherche_Dossiers(
ByVal
folder
As
String
,
ByVal
indent
As
Int32)
Dim
subdirs
As
String
() = Directory.GetDirectories(folder)
Dim
del
As
New
DelDisplayInfos(
AddressOf
ProcDisplay)
If
subdirs.Length <> 0
Then
For
Each
s
As
String
In
subdirsnb = nb + 1
Me
.Invoke(del, s, nb.ToString)
'Utiliser la récursivité avec une indentation
Recherche_Dossiers(s, indent + 3)
Next
End
If
End
Sub
Private
Sub
ProcDisplay(
ByVal
folder
As
String
,
ByVal
nb
As
String
)Label2.Text = folder
Label3.Text = nb
End
SubEnd
Class
cs_fauve
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
4 mars 2007 à 23:15
4 mars 2007 à 23:15
Salut
Faire un clic droit sur le lien puis enregistrer la cible sous (ca n'a pas l'ai de fonctionner en cliquant directement dessus)
Faire un clic droit sur le lien puis enregistrer la cible sous (ca n'a pas l'ai de fonctionner en cliquant directement dessus)
cs_fauve
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
6 mars 2007 à 09:57
6 mars 2007 à 09:57
merci