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
François Picalausa
Hello,
Essaye DIR: Dim strBuffer As String
Const BasePath As String = "e:mydata"
strBuffer = Dir(BasePath, vbDirectory)
Do While Len(strBuffer) 'dossier actuel (.) et dossier parent (..) ignorés If strBuffer <> "." And strBuffer <> ".." Then List1.AddItem strBuffer End If
strBuffer = Dir Loop
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"steph" a écrit dans le message de news:29ad01c47088$39d85ac0$
bonjour,
j'aimerai récupérer le nom des sous dossiers ou leurs chemin complet d'un dossier connu.
quelqu'un pourrais m'aider?
merci .
Hello,
Essaye DIR:
Dim strBuffer As String
Const BasePath As String = "e:mydata"
strBuffer = Dir(BasePath, vbDirectory)
Do While Len(strBuffer)
'dossier actuel (.) et dossier parent (..) ignorés
If strBuffer <> "." And strBuffer <> ".." Then
List1.AddItem strBuffer
End If
strBuffer = Dir
Loop
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"steph" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:29ad01c47088$39d85ac0$a301280a@phx.gbl
bonjour,
j'aimerai récupérer le nom des sous dossiers ou leurs
chemin complet d'un dossier connu.
Do While Len(strBuffer) 'dossier actuel (.) et dossier parent (..) ignorés If strBuffer <> "." And strBuffer <> ".." Then List1.AddItem strBuffer End If
strBuffer = Dir Loop
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"steph" a écrit dans le message de news:29ad01c47088$39d85ac0$
bonjour,
j'aimerai récupérer le nom des sous dossiers ou leurs chemin complet d'un dossier connu.
quelqu'un pourrais m'aider?
merci .
Zoury
François éprouve des difficultés techniques, je crois .. ;O)
Toute fonction ayant une version se terminant par un $ renvoit un type String au lieu d'un Variant. C'est pourquoi sous VB, un programmeur devrait *toujours* utiliser les version string $.
Toute fonction ayant une version se terminant par un $ renvoit un type
String au lieu d'un Variant. C'est pourquoi sous VB, un programmeur devrait
*toujours* utiliser les version string $.
Toute fonction ayant une version se terminant par un $ renvoit un type String au lieu d'un Variant. C'est pourquoi sous VB, un programmeur devrait *toujours* utiliser les version string $.
