Cool filebox : explorateur de fichiers & dossiers : version 1.3

Soyez le premier à donner votre avis sur cette source.

Vue 10 320 fois - Téléchargée 1 413 fois

Description

Le principe, est simple : on ajoute cet ocx dans une form et un treeview apparait avec toute l'arborescence du bureau (avec les racourcis, les lecteurs réseaux, Voisinage Réseau, Mes Documents, etc ...). Cet ocx est paramétrable et permet aussi d'afficher ou non les fichiers.

En gros il se comporte comme l'explorateur de windows.

Version 1.3 :

Ajout de la propriété showHiddenFiles qui permet d'afficher ou non les fichiers cachés
Récupération des icones dans la registry et non directement dans les Dll (merci a MyC pour son aide)

Version 1.2 :

Optimisation de l'initialisation de l'ocx
Ajout de la propriété filter (Format : .ext|.bas|...) qui permet de filtrer l'affichage des fichiers

Version 1.1 :

Correction du bug qui masquait un lecteur quand l'icone système n'était pas trouvée.
Accélération du scan de folder

Version 1.0 :

Récupère les icones systemes des fichiers et des objets windows
Gère les répertoires favoris réseaux, Mes Documents, Poste de travail
Gère les raccourcis vers les répertoires ou les fichiers et affiche la petite flèche comme sous windows
Revoie le path du répertoire ou du fichier sur l'évenement NodeClick

Mais il y a un hic, je suis suis sûr qu'il fonctionne sous windows 2000 mais sur les autres systèmes : ???

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
60
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007

C'est terrible bravo !

Seulement :

- Commment faire pour avoir un évenement NodeClick en DoubleClick??
- Comment faire pour ouvrir ou fermer des nodes ( eg : pour avoir des nodes d'ouverts dès le form load si par exemple on doit chercher un fichier dans le même dossier. )

Si tu as une réponse ca seria cool !
Messages postés
17
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
13 janvier 2005

si quelq'un a quelque chose du style pour .NET j suis preneur car l integration ne se fait pas....
caci dit c est exelent.. c est ce que je cherchait ;)
Messages postés
7
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
4 novembre 2009

Ton OCX est tres bien, mais helas il manque (pour moi) la possibilité de cocher des dossiers (selection de dossiers). Je vais le rajouter a ton source, et te le faire passer une fois terminé, tu en fera se que tu veus.
Messages postés
3
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
6 février 2004

Bon, je viens de récupérer le source, et j'ai été obligé de la modifer. J'utilise le Shell Aston à la place de Explorer. Et j'ai un problème avec la fonction Extract_IconeName car parfois les icones ne sont pas dans des exe ou des dll. J'ai donc modifier le code comme suit Ò

---------------------------

Private Sub Extract_IconeName(ByVal Key As String, ByRef Dll_Name As String, ByRef Dll_Number As Long)

Dim str_Icone As String
Dim str_IconeNum As String
Dim lng_Icone As Long

' On récupère le nom de l'icone ainsi que le numéro
'--------------------------------------------------

str_Icone = GetKeyValue(HKEY_CURRENT_USER, Key, "")
If str_Icone vbNullString Then str_Icone GetKeyValue(HKEY_LOCAL_MACHINE, Key, "")

If str_Icone = vbNullString Then
If Key ICN_POSTE_TRAVAIL Then str_Icone "%SystemRoot%Explorer.exe,0"
If Key ICN_MES_DOCUMENTS Then str_Icone "mydocs.dll,0"
If Key ICN_FAVORIS_RESEAU Then str_Icone "%SystemRoot%system32shell32.dll,17"
If Key ICN_FOLDER Then str_Icone "%SystemRoot%System32shell32.dll,3"
If Key ICN_HARD_DRIVE Then str_Icone "%SystemRoot%System32shell32.dll,8"
End If

str_Icone = Transforme_SystemFolder(str_Icone)

' On extrait le numéro de l'icone
'--------------------------------

If str_Icone <> "" Then
If InStr(1, str_Icone, ",") > 0 Then
str_IconeNum = Right$(str_Icone, Len(str_Icone) - InStr(1, str_Icone, ","))
str_Icone = Left$(str_Icone, InStr(1, str_Icone, ",") - 1)
If IsNumeric(str_IconeNum) Then
lng_Icone = CLng(str_IconeNum)
Else
lng_Icone = 0
End If
Else
lng_Icone = 0
End If
Else
str_Icone = "Shell32.dll"
lng_Icone = 1
End If

' On retourne le résultat
'------------------------

Dll_Name = str_Icone
Dll_Number = lng_Icone

End Sub
Messages postés
7
Date d'inscription
vendredi 26 juillet 2002
Statut
Membre
Dernière intervention
11 octobre 2003

Je viens de telecharger la source de LEPECQMI mais lorsque j'essaye, j'ai un message d'erreur : Erreur de compilation "Type defini par l'utilisateur non defini". J'ai donc recreer un projet avec cet OCX mais lorsque je l'enregistre et je le rouvre... Meme probleme.
Qu'ai je pu oublier ??

Merci.
Afficher les 22 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.