Comment importer le nom de sous-repertoires dans un array?
Résolu
blood01
Messages postés
14
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
7 décembre 2008
-
8 févr. 2005 à 00:06
blood01 Messages postés 14 Date d'inscription mardi 10 juin 2003 Statut Membre Dernière intervention 7 décembre 2008 - 8 févr. 2005 à 12:14
blood01 Messages postés 14 Date d'inscription mardi 10 juin 2003 Statut Membre Dernière intervention 7 décembre 2008 - 8 févr. 2005 à 12:14
A voir également:
- Comment importer le nom de sous-repertoires dans un array?
- Html array - Conseils pratiques -PHP
- Test nom de domaine - Forum PHP
- Verifier un nom de domaine - Forum PHP
- Le nom distant n'a pas pu être résolu - Forum C# / .NET
- Nom aleatoire - Forum C / C++ / C++.NET
3 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
8 févr. 2005 à 01:57
8 févr. 2005 à 01:57
Private Sub ListeRepertoire(dossier As String)
Dim nb As Integer
Dim Table() As String
Dim fichier As String
If Right$(dossier, 1) <> "" Then dossier = dossier & ""
fichier = Dir(dossier & "*.*", vbDirectory Or vbHidden Or vbSystem)
Do Until fichier = ""
If Asc(fichier) <> 46 Then
If (GetAttr(dossier & fichier) And &H10) = vbDirectory Then
nb = nb + 1
ReDim Preserve Table(nb)
Table(nb) = dossier & fichier
End If
End If
fichier = Dir()
Loop
End Sub
Daniel
Dim nb As Integer
Dim Table() As String
Dim fichier As String
If Right$(dossier, 1) <> "" Then dossier = dossier & ""
fichier = Dir(dossier & "*.*", vbDirectory Or vbHidden Or vbSystem)
Do Until fichier = ""
If Asc(fichier) <> 46 Then
If (GetAttr(dossier & fichier) And &H10) = vbDirectory Then
nb = nb + 1
ReDim Preserve Table(nb)
Table(nb) = dossier & fichier
End If
End If
fichier = Dir()
Loop
End Sub
Daniel
cqui789
Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
3
8 févr. 2005 à 02:16
8 févr. 2005 à 02:16
si tu veux les sous repertoires des sous repertoires, demande.
si tu veux des precisions, demande aussi.
Dim rep As String, srep As String, i As Integer
i = 0
rep = "C:path"
srep = Dir(rep, vbDirectory)
srep =
Dir
' pour passer . et ..
srep = Dir
Do Until srep = ""
If (GetAttr(rep & srep) And vbDirectory) = vbDirectory Then
table(i) = srep
i = i + 1
End If
srep = Dir
Loop
si tu veux des precisions, demande aussi.
Dim rep As String, srep As String, i As Integer
i = 0
rep = "C:path"
srep = Dir(rep, vbDirectory)
srep =
Dir
' pour passer . et ..
srep = Dir
Do Until srep = ""
If (GetAttr(rep & srep) And vbDirectory) = vbDirectory Then
table(i) = srep
i = i + 1
End If
srep = Dir
Loop
blood01
Messages postés
14
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
7 décembre 2008
8 févr. 2005 à 12:14
8 févr. 2005 à 12:14
Ouftiiii!, merci pour ces réponses ;)
ben en fait, il ne me faut que les repertoires pour l'instant. Le prog que je développe va permettre le gestion de fichier pour un bureau CAO. La routine que j'ai demandée est pour les repertoires clients.....le projet n'est qu'une ébauche pour l'instant (avec dejà pas mal de fonctions)
En tout cas, merci pour les réponses car j'allait coder quelque chose de 20 fois plus gros : )
david
ben en fait, il ne me faut que les repertoires pour l'instant. Le prog que je développe va permettre le gestion de fichier pour un bureau CAO. La routine que j'ai demandée est pour les repertoires clients.....le projet n'est qu'une ébauche pour l'instant (avec dejà pas mal de fonctions)
En tout cas, merci pour les réponses car j'allait coder quelque chose de 20 fois plus gros : )
david
