begin process at 2010 02 09 23:14:09
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

 > LISTER TOUS LES FICHIERS D'UN REPERTOIRE ET SOUS REPERTOIRE

LISTER TOUS LES FICHIERS D'UN REPERTOIRE ET SOUS REPERTOIRE


 Information sur la source

Note :
6,5 / 10 - par 4 personnes
6,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Source .NET ( DotNet ) Niveau :Débutant Date de création :04/01/2004 Date de mise à jour :07/04/2004 13:17:21 Vu :26 621
Auteur : jesusonline

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

 Description

J'ai  rien trouve dans le framework pour avoir tous les fichiers contenus dans un reprtoire et tous ses sous repertoires donc voici



Source

  • 'On déclare une arraylist qui contiendras tous les fichiers
  • Private ListeInfo As New ArrayList
  • ' La fonction qui va remplir notre arraylist
  • Private function ListeFichier(ByVal repertoire As DirectoryInfo, ByVal Reset As Boolean) as arraylist
  • If Reset = True Then
  • ListeInfo.Clear()
  • End If
  • If repertoire.GetDirectories.Length <> 0 Then
  • For Each repertoire2 As DirectoryInfo In repertoire.GetDirectories
  • ListeFichier(repertoire2, False)
  • Next
  • End If
  • For Each fichier As FileInfo In repertoire.GetFiles("*.*")
  • ListeInfo.Add(fichier.Name)
  • Next
  • return ListeInfo
  • End function
'On déclare une arraylist qui contiendras tous les fichiers
Private ListeInfo As New ArrayList
  
' La fonction qui va remplir notre arraylist
Private function ListeFichier(ByVal repertoire As DirectoryInfo, ByVal Reset As Boolean) as arraylist

        If Reset = True Then
            ListeInfo.Clear()
        End If


        If repertoire.GetDirectories.Length <> 0 Then
            For Each repertoire2 As DirectoryInfo In repertoire.GetDirectories
                ListeFichier(repertoire2, False)
            Next
        End If

        For Each fichier As FileInfo In repertoire.GetFiles("*.*")
   
            ListeInfo.Add(fichier.Name)
        Next

return ListeInfo

    End function

 Conclusion

J'ai pas commenté le bout de code car je le trouve simple

Pour appeller la fonction on fait ListeFichier("C:/",true)

Le booleen en parametre veut dire qu'on efface tout ce qu'il y a deja dans l'arraylist

Dites moi ce que vous en pensez et si vous connaissez une solution plus simple et mettez moi une petite note :P


 Sources du même auteur

Source .NET (Dotnet) ZIPPER UN REPERTOIRE EN CONSERVANT LA HIERARCHIE DES DOSSIER...
Source .NET (Dotnet) EXEMPLE DE PROPRIÉTÉ D'OBJET AVEC UN PETIT PLUS DANS LA FENE...
Source .NET (Dotnet) LOGER LES ERREURS DANS UN FICHIER XML
Source .NET (Dotnet) CREATION D'UN FICHIER XML EN .NET
Source .NET (Dotnet) OBJET AU HASARD D'UNE COLLECTION
Toutes les sources de jesusonline

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) GESTION DE PARC AUTOMOBILE AVEC SÉRIALISATION par guyr07
Source avec Zip Source avec une capture Source .NET (Dotnet) FICHIERS_CACHÉS_LECTURE_SEULE par Le Pivert
Source avec Zip Source avec une capture CHANGEUR D'ICONES par djgab21
Source .NET (Dotnet) DIRECTDISKACCESS par XelectroX
Source avec Zip Source avec une capture UTILITAIRE WAV, MID ET MP3 par SnkVrt
Toutes les sources de la catégorie Fichier / Disque

Commentaires et avis

Commentaire de lumesh le 04/01/2004 11:31:56

tu as aussi:

Dim Liste() as String
Dim Chemin as String = "C:\"
Dim Pattern as String = "*.*"
Liste = System.IO.Directory.GetFileSystemEntries(Chemin, Pattern)

Commentaire de jesusonline le 04/01/2004 11:42:30 administrateur CS

Merci beaucoup en effet c'est quand meme beaucoup plus simple lol

Commentaire de lumesh le 05/01/2004 06:05:51

certe ;)

Commentaire de CanisLupus le 14/01/2004 21:32:58 administrateur CS

Heu... je ne voudrais pas dénigrer mais ton code est un peu bancal.
Commencer par un private sub et finir par end function, déjà c bizarre. C pas du VB ça.
Tu as mal dû recopier ton code, sinon, indique moi dans quel langage c écrit.

Maintenant, si tu veux plus simple cherche du côté FileSystemObject.
Un chtit exemple pour lister les dossiers :

Tu copies ça dans une form où tu as mis un ctrl listbox(list1) et tu exécutes.

Cela dit, c qu'une piste et c pas garanti que ce soit rapide.

Private Sub Form_Load()
Dim fso, f, fc
Dim racine

racine = "c:\"

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(racine)
  
  For Each fc In f.SubFolders
  
    List1.AddItem fc.Name
        
  Next
  
  Set fso = Nothing
  
End Sub


Cordialement

Commentaire de lumesh le 14/01/2004 22:34:45

CanisLupus, pourquoi utiliser le FSO (threadé biensur sinon ca freeze l'applie) alors que le framework te donne tout ?!
Perso je remplace un max d'API de de functions style FSO (ou dans le meem genre) via le framework !!

C'est un conseil perso, mais matez d'abord le framework, il y a des choses plus qu'interressante dedans !

Commentaire de CanisLupus le 15/01/2004 09:18:37 administrateur CS

Sans doute lumesh mais tu dois parler de .NET car en vb6, c moins évident.

Commentaire de jesusonline le 15/01/2004 18:35:05 administrateur CS

Ma source est une source .net et je pense comme lumesh, qu'il vaut mieux regarder dans la framework c'est souvent plus simple, Je connais pas les FSO car je suis en .net et je voulais trouver une methode pour faire ca et je me suis servis de vb sans rien d'autres

Pour ce qui est de la sub qui se transforme en function je vais rectifier ca :P

Commentaire de cuba1393 le 20/02/2004 16:51:02

bonjour

Searit il trop demande pour un débutant comme moi de mettre le résultat, c'est à dire tout les fichiers avec leur chemin dans un fichier texte.

Merci d'avance

Commentaire de CanisLupus le 20/02/2004 17:24:35 administrateur CS

Sinon, il y a un truc simple que Gandalfkhorne à publié :
http://www.vbfrance.com/code.aspx?ID=20539

Pour mettre les résultats dans un fichier texte c simple :

Avant la boucle où il y a Add ou additem, on ouvre un fichier texte :

open Fichier.txt for output as #1

et à la place du add ou additem, tu mets

print #1, fichier.Name ou print #1 fc.name (suivant l'exemple choisi)

et tu termines par un close #1

Commentaire de jesusonline le 20/02/2004 18:04:46 administrateur CS

listefichier("C:/")
    
          try
Dim LogStream As New StreamWriter(Fichier & ".log", True, System.Text.Encoding.UTF8)
for each s as string in listefichier

                LogStream.WriteLine(s )
next
                
        catch
                 'erreur, impossible d'ecrire dans le fichier

     finally

LogStream.Close()
        end try

Voila je sais que CanisLupus a ecrit aussi qqchose mais je sais pas si ca marche :p

Commentaire de jesusonline le 20/02/2004 18:04:46 administrateur CS

listefichier("C:/")
    
          try
Dim LogStream As New StreamWriter(Fichier & ".log", True, System.Text.Encoding.UTF8)
for each s as string in listefichier

                LogStream.WriteLine(s )
next
                
        catch
                 'erreur, impossible d'ecrire dans le fichier

     finally

LogStream.Close()
        end try

Voila je sais que CanisLupus a ecrit aussi qqchose mais je sais pas si ca marche :p

Commentaire de Belsteak le 05/07/2004 00:35:16

j'ai trouvé une autre possibilité...

dim arrlist as filesysteminfo()  ' matrice de fichiers
dim i as integer
...

Dim dirpathInfo As New DirectoryInfo(path) 'remplacez path par votre
                                                             'chemin
arrFile = dirpathInfo.GetFileSystemInfos()
' on récupère l'ensemble des fichiers du répertoire dans la matrice

For i = 0 To arrFile.GetLength(0) - 1
'on parcourre la matrice. Dans mon cas seuls les fichiers du répertoire m'intéressent sinon il faut travailler sur plusieurs dimensions. Chaque dimension représentant un sous répertoire avec ses fichiers

                        lstFiles.Items.Add(arrFile(i).Name)
'ici vous placez votre code de récup. dans mon cas, je remplis une listbox avec le nom de chaque fichiers
                    Next

et voilà, c'est dans la boite... !

Commentaire de UNi le 19/10/2006 09:13:15

Sympa cette source meme si il y a une autre methode sans passer par les FSO ;o)

Commentaire de malo777 le 14/12/2009 16:26:53

Est-ce qu'il serait possible d'avoir le même code (de départ) mais en VB6 s'il vous plaît.

Cordialement

Malo

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)