lister les sous repertoire a partir d'un point donne dans un fichier txt

Question

Rober
Bonsoir,
je voudrais lister tous les sous repertoires a partir d'un point donne et ecrire les chemin dans un fichier txt sous la forme:
c:\cao\rep1
c:\cao\rep1\srep1
c:\cao\rep1\srep1\ssrep1
c:\cao\rep2
c:\cao\rep2\srep2
c:\cao\rep2\srep2\ssrep2
.........
merci de votre aide

jmfmarques · Answer

Salur,

Oui ?
Et alors ?

Il te suffit d'utiliser la fonction Dir avec l'attribut VbDirectory ...
Tu as en plus un exemple tout fait dans ton aide en ligne !!!! (précisément pour recenser les sous-répertoires d'un répertoire !!!)
Ouvre donc ton aide en ligne ou utilise F1 avec le mot Dir et ouvre l'exemple qui l'accompagne ... !

cs_rober · Answer

Rober
est ce quelqu'un peut me dire pourquoi j'ai la liste des sous repertoires qu'a 1 seul niveau

mon code
Private Sub Command1_Click()
'=======================================================
'Creation du search.pro et demarrage de ProE'repertoiredemarrage Text3_chemin_client.Text
Dim SearchPro As String
SearchPro = repertoiredemarrage & "" & "search.pro"
If Dir(SearchPro) <> "" Then Kill SearchPro
Open SearchPro For Binary As #1
Dir1.Path = text6_chemin_projet.Text
For i = 0 To Dir1.ListCount
Put #1, , Dir1.List(i) & vbNewLine
Next i
Close #1

Merci

Utilisateur anonyme · Answer

Je pense que tu as tout ce qu'il te faut ici :

http://www.codyx.org/snippet_lister-sous-repertoires-ou-sous-sous-repertoires-repertoire_260.aspx







__________
 Kenji

jmfmarques · Answer

Bonjour, Quand même : Private Sub Command1_Click() le_chemin = "d:\monoutil" 'ici ton répertoire à "fouiller" les_sous_rep = Dir(le_chemin, vbDirectory) Do While les_sous_rep <> "" If les_sous_rep <> "." And les_sous_rep <> ".." Then If (GetAttr(le_chemin & les_sous_rep) And vbDirectory) = vbDirectory Then Me.Print les_sous_rep End If End If les_sous_rep = Dir Loop End Sub et voilà tout ...

drikce06 · Answer

Salut, en plus 20 post plus bas tu avais la réponse à cette question!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Lister les sous repertoire a partir d'un point donne dans un fichier txt

5 réponses

Votre réponse

Discussions similaires