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
 UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|