lister tout les dossiers et sous dossier dans un richtextbox

Question

Salut tout le monde je voudrais savoir comment faire pour editer tout les repertoires et sous repertoires du disque "C" dans un richtextbox afin de les imprimer par la suite.
Si quelqu'un pouvais m'aider ce serait sympa parceque je galere depuis plusieurs jours deja
Merci.

cs_sjon · Answer

Sael og blesud(salut) Plusieurs sources sont disponible sur ce site le code 'A METTRE DANS UN MODULE Sub RecurseTree(CurrentPath$) Dim i, n Dim FileName$, DirectoryList$() FileName$=Dir(CurrentPath$) Do While FileName$ <> "" Print #1, CurrentPath$ & FileName$ FileName$=Dir Loop FileName$=Dir(CurrentPath$, vbDirectory) Do While FileName$ <> "" If FileName$ <> "." And FileName$ << ".." Then If GetAttr(CurrentPath$ & FileName$) And vbDirectory Then n=n+1 ReDim Preserve DirectoryList$(n) DirectoryList$(n)=CurrentPath$ & FileName$ End If End If FileName$=Dir Loop For i=1 To n RecurseTree DirectoryList$(i) & "" Next i End Sub 'A METTRE DANS LA FORM Private Sub Form_Load() Dim StartPath$ Me.Show StartPath$="c:" Open "c:\windows\bureau\Files.txt" For Output As #1 RecurseTree StartPath$ Close #1 unload Me End Sub ceci créer un fichier nommé "files.txt" dans le repertoire "c:\windows\bureau" contenant la liste de tes fichiers et repertoires de la racine "c:"

cs_Rockit · Answer

Re-SALUT
Je te remercie pour ta reponse, mais je chercher a faire un soft qui permet d'avoir le meme resultat uniquement dans un richtextbox .
en gros je voudrait que tout se passe dans l'application, avec au depart un DirListView et et un richtextbox.
peus tu m'aider.
Mario.

cs_sjon · Answer

sael og blesud sur une feuille tu place les controles suivant drivelistbox dirlistbox richtextbox commandbutton1 commandbutton2 puis ce code dans ta feuille Private Sub Command1_Click() Dim StartPath$ RichTextBox1.RightMargin = 1 If Right(Dir1.Path, Len(Dir1.Path) - 1) <> "" Then chemin = Dir1.Path + "" End If StartPath$ = chemin RecurseTree StartPath$ End Sub Private Sub Command2_Click() 'pour enregistrer le fichier RichTextBox1.SaveFile "c:\windows\bureau\list.rtf" End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub et dans un module Sub RecurseTree(CurrentPath$) Dim i, n Dim FileName$, DirectoryList$() FileName$ = Dir(CurrentPath$) Do While FileName$ <> "" Form1.RichTextBox1.Text = Form1.RichTextBox1.Text + CurrentPath$ & FileName$ + vbCrLf FileName$ = Dir Loop FileName$ = Dir(CurrentPath$, vbDirectory) Do While FileName$ <> "" If FileName$ <> "." And FileName$ <> ".." Then If GetAttr(CurrentPath$ & FileName$) And vbDirectory Then n = n + 1 ReDim Preserve DirectoryList$(n) DirectoryList$(n) = CurrentPath$ & FileName$ End If End If FileName$ = Dir Loop For i = 1 To n RecurseTree DirectoryList$(i) & "" Next i End Sub

cs_Rockit · Answer

Merci infiniment pour ton exemple qui va beaucoup m'aider.
@+
Mario.

cs_Rockit · Answer

Salut sjon !
ton petit bout de code m'a vraiment bien aider,
Mais peut-etre que tu pourras m'aider, encore une fois , je cherche a mettre une progressBar assez significative de l'avancement de l'operation en cour.
j'ai reussi a en faire une mais je n'arrive pas a avoir l'exactitude en fonction du listage en cours.
peus tu m'aider.
@+
Mario

cs_Darkukai · Answer

trop de la balle :)

bonjour 
çà fait 3 jour que je cherche le moyen de le faire.
que des trucs ultra compliquer sur vbfrance
et là ... hop ...simple .. efficace

trop nickel

merci

Lister tout les dossiers et sous dossier dans un richtextbox

6 réponses

Discussions similaires