Probleme tt bete

Signaler
Messages postés
37
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
30 août 2003
-
Messages postés
9
Date d'inscription
vendredi 13 septembre 2002
Statut
Membre
Dernière intervention
26 septembre 2002
-
j'ai recupéré une source afin de lister tt les repertoires d'un lecteur ds un txt, mais le prob est que je voudrais juste lister le chemin du dernier sous-dossiers

par ex si il y a ce dossier :
c:\dossier\sous-dossier1\sous-dossier2\
ds le txt apparait

c:\dossier
c:\dossier\sous-dossier1\
c:\dossier\sous-dossier1\sous-dossier2\

ce que je voudrais c'est juste lister :
c:\dossier\sous-dossier1\sous-dossier2\

est-ce que qqn peut m'aider ?
voila le code que j'ai recupéré sur vbfrance...

##################
Option Explicit
Dim Variable, OldVariable

Private Sub Form_Load()
Open "Albums.txt" For Output As #1
Dir1.Path = "c:"
Do Until Dir1.ListIndex = Dir1.ListCount - 1
Dir1.ListIndex = Dir1.ListIndex + 1
Print #1, Dir1.List(Dir1.ListIndex)
Call FunctionRecursive
Loop
Close #1
End
End Sub

Function FunctionRecursive()
MemTempDir.AddItem Dir1.ListIndex
Dir1.Path = Dir1.List(Dir1.ListIndex)
Do Until Dir1.ListIndex = Dir1.ListCount - 1
Dir1.ListIndex = Dir1.ListIndex + 1
Print #1, Dir1.List(Dir1.ListIndex)
Call FunctionRecursive
Loop
Dir1.Path = Dir1.List(-2)
Dir1.ListIndex = MemTempDir.List(MemTempDir.ListCount - 1)
MemTempDir.RemoveItem (MemTempDir.ListCount - 1)
End Function
##################

merci de votre aide

2 réponses

Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

Wam, G la solution mé la, j'uis pas sur mon PC et j'le connias pas de tête ce code

Prend moi en 'pv' si tu veux le code, je l'utilise pour lister mes MP3s

>:) ::Alan USSE:: >:)
0
Messages postés
9
Date d'inscription
vendredi 13 septembre 2002
Statut
Membre
Dernière intervention
26 septembre 2002

Salut
Tu peux rajouter ce code


Private Sub Form_Load()
Dim char1,char2

Open "Albums.txt" For Output As #1
Dir1.Path = "c:"
Do Until Dir1.ListIndex = Dir1.ListCount - 1
Dir1.ListIndex = Dir1.ListIndex + 1
Print #1, Dir1.List(Dir1.ListIndex)
Call FunctionRecursive
Loop
Close #1
Open "albums.txt" For Input As 1
Open "resultats.txt" For Output As 2
Input #1, char1
While Not EOF(1)
Input #1, char2
If InStr(char2, char1) = 0 Then
Print #2, char1
End If
char1 = char2
Wend
Close #1
Close #2
End
End Sub

Benzoid
0