Accueil > > > LISTEZ VOS FICHIER FACILEMENT ET RAPIDEMENT
LISTEZ VOS FICHIER FACILEMENT ET RAPIDEMENT
Information sur la source
Description
Je pars du même constat que Jack a fait concernant sa source "REMPLACER DIR PAR UNE CLASSE DIR2 (AVANTAGES) " http://www.vbfrance.com/code.aspx?ID=37859 Ce constat est le suivant: Dir est rapide est simple à mettre en place pour énumérer une liste de fichiers / dossiers. néanmoins, il ne peut être utiliser en récursion. Pas possible, donc, de lister facilement une arborescence. FSO permet lui de lister toute une arborescence, mais est à proscrire dans vos programme, laissez le dans les Scripts, il a été conçu pour ça. Et pour cause ! il est extrêmement lent... Il s'agit d'une simple classe, qui permet de lister facilement et rapidement vos Fichier/Dossiers, comme le fais Dir J'ai donc grandement remanié le code de Jack, que je vous poste maintenant. Outre la manière de se servir de ma classe qui diffère de celle de Jack, j'ai ajouté la possibilité d'accéder aux dates et a la taille du fichier
Source
- '# Son utilisation est fort simple :
- Dim oItems As CDir
- Set oItems = New CDir
- oItems.Initialize "C:\MonDossier\" '# Par défault, fichiers et dossiers vont être listés
- '# On boucle, tant qu'on n'est pas a la fin de la liste.
- Do Until oItems.EOF
- '# Si l'element en cours est un dossier ...
- If CBool(oItems.Attributes And vbDirectory) Then
- '# Pour l'exemple, on créé un noeud avec le dossier. la clé est le chemin complet vers
- '# le dossier. le texte du noeud est son nom
- Set oNode = CcTree.Nodes.Add(voParent, tvwChild, oItems.FullPath, oItems.Name)
- FillList oItems.FullPath & "\", oNode
- Else
- '# Ici, pour l'exemple, on ajoute le fichier dans une liste.
- '# On peut acceder a la date de creation/modification/accès du fichier
- '# (plus rapide que de faire un appel séparé à FileLen ou FileDateTime)
- AddFile oItems.FullPath, oItems.FileSize, oItems.LastWriteDate
- End If
-
- '# On passe a l'element suivant
- oItems.MoveNext
- Loop
'# Son utilisation est fort simple :
Dim oItems As CDir
Set oItems = New CDir
oItems.Initialize "C:\MonDossier\" '# Par défault, fichiers et dossiers vont être listés
'# On boucle, tant qu'on n'est pas a la fin de la liste.
Do Until oItems.EOF
'# Si l'element en cours est un dossier ...
If CBool(oItems.Attributes And vbDirectory) Then
'# Pour l'exemple, on créé un noeud avec le dossier. la clé est le chemin complet vers
'# le dossier. le texte du noeud est son nom
Set oNode = CcTree.Nodes.Add(voParent, tvwChild, oItems.FullPath, oItems.Name)
FillList oItems.FullPath & "\", oNode
Else
'# Ici, pour l'exemple, on ajoute le fichier dans une liste.
'# On peut acceder a la date de creation/modification/accès du fichier
'# (plus rapide que de faire un appel séparé à FileLen ou FileDateTime)
AddFile oItems.FullPath, oItems.FileSize, oItems.LastWriteDate
End If
'# On passe a l'element suivant
oItems.MoveNext
Loop
Historique
- 02 août 2007 14:08:45 :
- Ajout d'une Form de test
- 03 août 2007 15:07:11 :
- Utilisation de l'API Unicode
- 19 novembre 2007 03:01:03 :
- Suppression d'un Doevents et léger remaniement de la propriété Name => un peu plus rapide
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE?[WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE? par JeremyJeanson
Avec la sortie de la RC de Visual Studio 2010, Microsoft a mis un peu les points sur leS i en ce qui concernait le passage d'arguments. Mais nous somme un certain nombre à avoir pris ce changement comme un coup dur. Pour résumer la situation : à la sortie...
Cliquez pour lire la suite de l'article par JeremyJeanson [RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit
Forum
EVB ET TRAME NMEAEVB ET TRAME NMEA par aymeric1719
Cliquez pour lire la suite par aymeric1719
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|