probleme tt bete

Question

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

Alan71 · Answer

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:: >:)

cs_Benzoid · Answer

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

Probleme tt bete

2 réponses

Discussions similaires