Un bon explorateur

Question

A tous les programmeurs vb expérimentés,

Si l'un d'entre vous est capable de réaliser un explorateur de fichier comportant les diverses particularités et fonctions suivantes, ce serait vraiment très sympa s'il pouvait mettre ses sources sur le site ! 

A savoir : 
- L'explorateur doit être réalisé à partir d'un treeview ou d'un imageCombo (ou encore mieux, un de chaque) ;

- Il ne doit pas être capable d'afficher les fichiers (uniquement les dossiers) ;

- Il doit pouvoir afficher/masquer ou identifier de manière unique les dossiers suivant les différents attributs existants (caché, system, normal) ;

- Il doit pouvoir extraire les icônes de chaque dossier indépendamment (et non pas en utilisant le même icône pour chaque dossier) ;

- Il doit pouvoir afficher/ouvrir les dossiers spéciaux tels que : Voisinage réseau, Corbeille, Panneau de configuration, Imprimantes, Dossiers Web, Tâches planifiées, Accès réseau à distance, Internet exploreretc..., ainsi qu'extraire leurs icônes respectifs ;

- Il doit donner la possibilité de récupérer facilement le chemin du dossier sélectionné (càd lorsque l'on clique sur un noeud du treeview par exemple) ;

- Et pour finir, le point le plus important : il doit être rapide !

Et c'est seulement avec tous ces points qu'il pourra rivaliser avec celui de Windows

Merci d'avance !

leptidev · Answer

Mais c une blague ou quoi ???? cherche sur ce site, il y en a plein d'explo rapide, va voir le mien par exemple, avec les objet FSO : 
http://www.vbfrance.com/article.aspx?Val=5503

cs_MyC · Answer

Tout d'abord merci de m'avoir répondu ! Ensuite, ça ne m'étonne pas que ton explorateur est rapide, en voyant le peu de fonctions dont il dispose (sorry). J'ai regardé sur le site et je n'ai trouvé aucune source possédant la moitié des fonctions que j'ai décrite dans mon premier message. Alors, la prochaine fois, lis la totalité du message avant de répondre !

leptidev · Answer

Ici c un site de prog, pas un supermarché donc si tu veux quelque chose, apprend VB, une source complète ne sert à rien, je veux juste donner la base du code pour que les nuls dans ton genre l'adaptent à leur problème.

Si tu as compris cette phrase tu as déjà faitun grand pas

cs_Cestmoi · Answer

Bien envoyé !

C vrai ca, t'as cru kon allait te faire un logiciel sur commande ? Va voir des ecoles, ou utilise celui de windows... Il est si bien comme tu dis...

stagiaireiut · Answer

? AVIS A TOUS LES PROGRAMMEURS!!!!!!!!!!!!!!!! ?

Moi je voucrais une pizza tomate-peperoni-champignons-parmesan et surtout pas de poivrons, svp!!!!!!!!

Merci beaucoup!!!!!!! :D

Renfield · Answer

Ca pour une vieille Thread....

j'ai commencé un Explorateur de ce genre......
va voir mes sources....

cote look, il est 100ù% idntique.
cote rapidité aussi....

reste a faciliter son interfacage....

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

DocPhiphi · Answer

Au lieu de râler et de de tempêter. Cherche donc sur internet (tu sais un machin qui s'appelle Google.

Moi je l'ai fait et j'ai trouvé exactement ce que tu cherches :

http://www.codeproject.com/vb/net/VbNetExpTree.asp

Manques juste un truc : la détection d'introduction de clé USB et de CD/DVD, mais je m'y attelle.

@+

Renfield · Answer

pour une telle detection, tu peux regarder 
http://www.vbfrance.com/codes/DETECTION-INSERTION-OU-RETRAIT-CD_35099.aspx

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_JMO · Answer

Bonjour &#224; tous....

Un exemple tout simple que j'ai trouv&#233; sur ce forum.
Explorer n'affichant que les disks et folders.

'****************************************** 
' Script permettant le choix du repertoire  
'****************************************** 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objShell = CreateObject("Shell.Application")         
Set objFolder = objShell.BrowseForFolder _ 
    (WINDOW_HANDLE, "Selectionner le dossier &#224; traiter :", NO_OPTIONS, ".") 
Set objFolderItem = objFolder.Self 
strFolderName = objFolderItem.Path 
  
Set colSubfolders = objWMIService.ExecQuery _ 
    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _ 
        & "Where AssocClass = Win32_Subdirectory " _ 
            & "ResultRole = PartComponent") 
  
Wscript.Echo "R&#233;pertoire: " & strFolderName

Un bon explorateur

9 réponses

Discussions similaires