comment utiliser un dirlistbox sans le creer sur une form?
lorsque je lance le code ci dessous (qui devrai me donner la taille d'un repertoire)
j'obtient le message d'erraur suivant
object variable or with bloc variable not set
sur
dire.path = path
et la je suis bloque car je ne sais pas quoi faire... des idee? des solution ?
merci bcp de votre aide
Source / Exemple :
Private Function taillepath(ByVal path As String) As Double
Dim dire As DirListBox
dire.path = path
Dim file As FileListBox
file.path = path
Dim liste As ListBox
liste.Clear
taillepath = 0
Dim i As Integer
'dossier
i = 0
Do While i < dire.ListCount
liste.AddItem dire.List(i)
i = i + 1
Loop
Do While liste.ListCount
'fichier
i = 0
Do While i < File1.ListCount
taillepath = taillepath + FileLen(File1.path & "\" & File1.List(i))
i = i + 1
Loop
dire.path = liste.List(0)
file.path = liste.List(0)
liste.RemoveItem (0)
i = 0
Do While i < dire.ListCount
liste.AddItem dire.List(i)
i = i + 1
Loop
Loop
End Function
Conclusion :
ben heu... ca marche pas... je demande de l'aide qui pourra servir a d'autre personne...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.