Accueil > Forum > > > > lister tout les dossiers et sous dossier dans un richtextbox
 lister tout les dossiers et sous dossier dans un richtextbox
jeudi 4 avril 2002 à 22:03:44 |
lister tout les dossiers et sous dossier dans un richtextbox
Rockit
|
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. |
|
vendredi 5 avril 2002 à 03:28:02 |
Re : lister tout les dossiers et sous dossier dans un richtextbox
sjon
|
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:"
-------------------------------
Réponse au message :
-------------------------------
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.
|
|
vendredi 5 avril 2002 à 23:45:54 |
Re : lister tout les dossiers et sous dossier dans un richtextbox
Rockit
|
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.
-------------------------------
Réponse au message :
-------------------------------
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:"
-------------------------------
Réponse au message :
-------------------------------
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.
|
|
samedi 6 avril 2002 à 00:56:39 |
Re : lister tout les dossiers et sous dossier dans un richtextbox
sjon
|
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
-------------------------------
Réponse au message :
-------------------------------
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.
-------------------------------
Réponse au message :
-------------------------------
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:"
-------------------------------
Réponse au message :
-------------------------------
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.
|
|
samedi 6 avril 2002 à 10:04:45 |
Re : lister tout les dossiers et sous dossier dans un richtextbox
Rockit
|
Merci infiniment pour ton exemple qui va beaucoup m'aider.
@+
Mario.
-------------------------------
Réponse au message :
-------------------------------
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
-------------------------------
Réponse au message :
-------------------------------
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.
-------------------------------
Réponse au message :
-------------------------------
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:"
-------------------------------
Réponse au message :
-------------------------------
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.
|
|
samedi 6 avril 2002 à 23:03:09 |
Re : lister tout les dossiers et sous dossier dans un richtextbox
Rockit
|
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
-------------------------------
Réponse au message :
-------------------------------
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
-------------------------------
Réponse au message :
-------------------------------
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.
-------------------------------
Réponse au message :
-------------------------------
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:"
-------------------------------
Réponse au message :
-------------------------------
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.
|
|
jeudi 17 juillet 2003 à 15:42:24 |
Re : lister tout les dossiers et sous dossier dans un richtextbox
Darkukai
|
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
|
|
Cette discussion est classée dans : repertoires, dossiers, dossier, lister, richtextbox
 Répondre à ce message
 Sujets en rapport avec ce message
Lister le contenue d'un dossier, y compris celui des sous dossiers de ce dossier... [ par Vbsupernul ]
Ben voilà, je voudrais savoir comment (facilement) lister tout le contenu d'un dossier, y compris le contenu des sous dossiers qu'il contient, et tout
lister dossier et sous dossier + les propiétés de sécurités [ par dietrich3 ]
BonjourEst-il possible de lister tous les dossiers et les sous dossiers d'un serveur et d'y rajouter les propiétés de sécurités. J'aimerai avoir les "
Nombre de fichier dans un dossier [ par Drikce06 ]
Bonjour à tous,Existe-t-il une fonction qui permet de connaitre le nombre de fichier et de sous-dossier (et les sous-sous-dossiers) qu'il y a dans un
Compter le nombre de sous-dossiers d'un dossier [ par vcocheme ]
Bonjour,Je souhaite, à partir d'excel, compter le nombre total de sous-dossiers contenus dans un dossier donné. Et ce dans toute l'arborescence.Je n'a
Lister un dossier distant [ par antcurp ]
Comment faire pour lister, de maniere recursive, le contenu d'un dossier distant (contenant fichier et sous-dossier) en utilisant les API?Merci pour t
Ajouter des utilisateurs pour un dossier [ par hiddukel ]
J'ai en ce moment un problème concernant les droit d'accès des dossiers. Je dois créer des dossiers et les rendre accessible seulement par certaines p
Lister des repertoires en VB.net 2005 [ par Kuni59 ]
SAlut je voudrai lister les sous repertoires de "temporary internet files\content.ie5" mais je ne trouve pas comment faire si quelqun pouvait m'aider.
Lister repertoires et sous répertoires sous VBA [ par KALAGAN59 ]
Bonjour,quelqu'un pourrait-il m'aider dans le code permettant de lister les répertoires et sous-répertoires d'un disque sous VB (Access)pour les reper
Lister les premiers sous repertoires dans list1 et les sous repertoires des repertoires dans list2 [ par yannn ]
SAlut a tous, voici mon probleme : Je suis en train de faire un programme pour suivre mes nageurs... Mon soucis : Je travaille sous VB5,et je souhaite
Lister des repertoires/sous-repertoires/fichiers [ par kiloubilou ]
salut a tous les programmers!j'ai besoin de vos lumieres pour une application.pouvez vous m'expliquer comment obtenir une liste de repertoire contenus
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|