begin process at 2012 02 16 19:36:58
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

 > EXPLORATEUR DE DOSSIER EN VB6

EXPLORATEUR DE DOSSIER EN VB6


 Information sur la source

Note :
8 / 10 - par 1 personne
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :dossier, disque, treeview, explorateur, fichier Niveau :Initié Date de création :29/07/2007 Date de mise à jour :30/07/2007 12:53:55 Vu / téléchargé :10 872 / 1 285
Auteur : TomIlliev

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Ce code sert à naviguer dans les dossiers d'un disque en se servant d'un TreeView
J'affiche les sous dossiers lors de l'expansion d'une branche ce qui permet une excellente rapidité d'affichage.
Je sais qui il y des tas de codes dans ce genre, mais la simplicité de celui-ci (uniquement avec la function Dir)
me semble intéressant.

Si quelqu'un peut m'expliquer comment afficher que les dossiers normaux, en lecture seul, systèmes ou cachés je
lui serais reconnaissant car je ni arrive pas!

Merci d'avance
Tomilliev
  



 Conclusion




 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

29 juillet 2007 12:23:28 :
Mise à jour Possibilité de définir un dossier lors de l'affichage de la feuille. Affichage du chemin complet et possibilité de le copier dans le presse papier. Possibilité de créer un dossier. Voilà c'est tout Tomilliev
30 juillet 2007 12:53:55 :
Correction d'un bug dans la routine exploreDir (la boucle n'explorait pas le dernier sous dossier) Ajout d'une fonction de suppression de repertoire

 Sources du même auteur

Source avec Zip Source avec une capture ARCHIVAGE DE DOSSIERS SUR DISQUE ET/OU RÉSEAU
Source avec Zip Source avec une capture SAUVEGARDER DES IMAGES DEPUIS INTERNET
Source avec Zip Source avec une capture CONTRÔLE GÉRANT UN GROUPE DE LABEL EN MODE CRÉATION
Source avec Zip EXTRACTION DE VALEUR DANS UN FICHIER TEXT POUR MANUD31
Source avec Zip IMPRESSION D'UN TEXTE PLUS LARGE QUE PRINTER.WIDTH POUR NEO_...
Toutes les sources de TomIlliev

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack
Toutes les sources de la catégorie Fichier / Disque

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) SYNCHRONISE FICHIERS CLÉ AVEC LE PC par alosamoelle
Source avec Zip Source avec une capture Source .NET (Dotnet) YOMMEXPLORER.NET EXPLORER / EXPLORATEUR DE DOSSIERS RÉPERTOI... par yomm
Source avec Zip Source avec une capture FILESYSTEMLIBRARY, TOUT (+ QUE FSO) SUR LES FICHIERS/DOSSIER... par violent_ken
Source avec Zip Source .NET (Dotnet) TREEVIEW EXPLORER par GG29
Source avec Zip Source avec une capture Source .NET (Dotnet) [.NET2] TREEVIEW - VU SUR DOSSIER par Willi

Commentaires et avis

Commentaire de ghuysmans99 le 29/07/2007 10:34:25

Il ne faut pas utiliser Dir mais utiliser l'objet FSO.
Regarde ma dernière source en date, MUpx.
Elle utilise FSO pour lister recursivement tous les EXE/DLL dans un rep. précisé...

Commentaire de TomIlliev le 29/07/2007 12:33:50

Salut ghuysmans99
Ce code est à la base juste un exercice de style.
Mais je me suis pris au jeu et je l'ai peaufiné car des explorateurs de dossiers simple et performants ne sont pas légions.

Une question
Est-il possible de faire afficher à une DirListBox les dossiers cachés, système, lecture seule?

Tomilliev

Commentaire de Renfield le 29/07/2007 16:05:58 administrateur CS

Evite d'utiliser FSO, contrairement a ce que te conseille Ghuysmans99

FSO, comme son nom l'indique (File SCRIPTING Object) est dédié au VBS.
Il est très lent. Utilises plutôt les APIs adéquates (FindFirstFile, etc.)

Commentaire de ciberrique le 30/07/2007 00:29:48

Pour avoir l'attribut d'un fichier/dossier tu as la fonction GetAttr, msdn :

Renvoie une valeur de type Integer indiquant les attributs du fichier ou du dossier.

Syntaxe

GetAttr(pathname)

L'argument pathname est uneexpression de chaîne définissant un nom de fichier. L'argument pathname peut préciser le répertoire ou le dossier et le lecteur.

Valeurs renvoyées

La valeur renvoyée par GetAttr est la somme des valeurs d'attributs ci-dessous :

Constante Valeur Description
vbNormal 0 Normal
vbReadOnly 1 Lecture seule
vbHidden 2 Caché
vbSystem 4 Système.
vbDirectory 16 Répertoire ou dossier
vbArchive 32 Fichier modifié depuis la dernière sauvegarde.

J'espere que ca te suffira.

Commentaire de dede1919 le 15/12/2007 23:02:06

bonjour!

J'aime beaucoup! La difficulté n'est pas énorme. Mais parfois le plus dur c'est de rester simple ;-)
J'ai une petite question, sais tu comment on peu copier (filecopy) un fichier venant du dossier temporaire d'internet explorer vers le dossier mes documents. un autre dossier, un fichier normal ça va. Mais je n'arrive pas à sortir un fichier du dossier. Voilà, que dire à pars ça ?? continue ;)

Commentaire de ichirou_tomoe le 28/06/2010 12:29:43 8/10

Comme j'avais besoin d'un module d'exploration et de sélection multiples sur les disques, j'ai utilisé ce code, en apportant toutefois deux améliorations qui peut-etre pourrait intéresser quelqu'un d'autre:

- sub ExploreDir: un moyen plus sur de récupérer les dossiers, plutot que de tester l'absence de point dans le nom, est de tester:
if GetAttr(Path & m) = vbDirectory then
à la place de :
If InStr(Path & m, ".") = 0 Then

- Sub mkBranche: pour ne pas recréer à chaques fois les nodes fils quand on clique sur un noeud, un moyen plus fiable serait de tester la valeur node.children pour voir si ils existent:
on efface les quatres lignes de gestion de la variable LastFils (qui est perdue car déclarée par "dim" et pas "static", et n'est de toutes façon pas conservée pour tous les nodes quand on en ouvre puis referme plusieurs), on ajoute:
If Node.Children = 0 Then
(et le End If qui va avec) juste autour du "Do.....Loop"

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Recherche d'un fichier sur tout le disque [ par Brodeur ] Bonjour, je voudrai faire un progrmme qui recherche un fichier donne sur tout le disque dur automatiquement en incluant les dossier et sous dossier.Me acces disque dossier... [ par vroumm ] floje voudrais savoir comment faire pour ouvrir un fichier, avec l'acces disque. c'est à dire drivr, dir et file. En fait comme, avec n'importe quel l Un explorateur de dossier/fichier dans le meme controle [ par PaTaTe ] Je me trouve devant un probleme car je cherche un controle qui puisse etre un explorateur de dossier mais aussi de fichier dans le meme controle.Exemp Parcourir dans un dossier et enregistrer un fichier [ par chems_1985 ] BonjourJe débute en vb.net et j'ai un petit souciJ'ai crée un formulaire en vb.net qui est lié à une base sql server, et je voudrai bien créer un truc recherche de fichier [ par couettou ] Bonjour,Je suis à la recherche d'un code pour effectuer une recherche de fichier dans access 97.Je doit trouver le seul fichier qui commence par tp25t Problème de chemin d'acces [ par maxwel2005 ] Bonjour,Je rencontre un petit problème.Déjà voici mon code/code Dim rep, Nom_Tbl As String, Dossier As String'obtient le premier fichier ou répertoire Chemin de fichier introuvable ? [ par Marneus73 ] Bonjour à tousJ'ai un petit probleme pas du tout evident à expliquer, mais je vais essayer de faire de mon mieux:J'ai un dossier A pouvant être placé acceder a un dossier de fichier excel avec une macro [ par secourma ] Bonjourj'ai fait une macro qui permet d'executer une procedure bien determinée.y a t-il moyen que ma macro peurra acceder a un dossier sur mon disque Copie de dossier [ par jimy neutron ] Bonsoir,Quelqu'un connaitrait-il comment copier un dossier (folder) d'un disk à un autre, sans se soucier du contenu. (donc, pas de copie de fichier p Rechercher un fichier [ par alihome ] Bonjour à tous,Je recherche le moyen de chercher un fichier ( .exe) situé dans un dossier specifique ou simplement dans C:\ et qu'ensuite le resultat


Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Beautiful woman in a bikini meditating on the beach
Photo drapeau corse 

Visiter la photothèque
 
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 : 1,061 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)