Magicfolder ou comment recupérer 20 dossiers de windows

Soyez le premier à donner votre avis sur cette source.

Vue 5 743 fois - Téléchargée 518 fois

Description

Update : rajout de 4 dossiers
Ce controle vous permet de recupérer de récupérer 20 dossiers issus de windows dont voici la liste :

windows
fichiers temp
fichier internet temporaires
menu démarrrer
bureau
programmes
mes documents
favoris
menu demarrage
fichiers récents
raccourcis envoyers vers
voisinnage réseau
polices
modeles
cookies
historique
-------------UPDATE
system
program files
imprimantes
données d'application (applog)

Syntaxe :
msgbox magicfolder1.spefolder(x)
x étant un entier compris entre 1 et 20

aprés une petite reflection je n'ai pas decidé de mettre en place le systeme d'enum, je vois pas trop l'interet
ps : c'est mon premier controle activeX, donc un peu d'indulgence !! LOL, sinon si vous avez des commentaires, des bugs à me soumettre, ou même des mise-à-jour elles sont les bienvenues

Conclusion :


Il me semble qu'il y ait un bug, lors de la compilation d'un programme, et des que vous avez quitté l'envirronement ide de vb le prog plante (enfin chez moi), est-ce que cela se passe aussi chez vous ?

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
63 -
Salut FrostByte
En passant : "aprés une petite reflection je n'ai pas decidé de mettre en place le systeme d'enum, je vois pas trop l'interet"

L'intérêt, c'est que, au moment où tu tapes la commande de ta fonction, tu as une liste de textes explicites qui apparaissent. Sinon, toi, tu es obligé de connaître le n° du répertoire que tu cherches.
Disons que ça te fais gagner 1 minute à chaque fois que tu t'en sers ...
FrostByte
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006
-
merci
matrey
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004
-
Bravo !!! 10/10
FrostByte
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006
-
Merci j'en prends note !!!!
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
63 -
Si c'est vraiment ta première OCX, bravo.
C'est éfficace.
Tu pourrais l'améliorer en utilisant :
Public Enum WinRépertoires
WinRep_Temp = 1
WinRep_Windows = 2
WinRep_IE_Temporaire = 3
WinRep_MenuDémarrer = 4
WinRep_Bureau = 5
WinRep_ProgramFiles = 6
WinRep_Documents = 7
WinRep_Favoris = 8
WinRep_MenuDémarrerDémarrage = 9
WinRep_FichiersRécents = 10
WinRep_EnvoyerVers = 11
WinRep_VoisinageRéseau = 12
WinRep_Polices = 13
WinRep_ShellNew = 14
WinRep_Cookies = 15
End Enum

en modifiant :
Public Function SpeFolder(NumberOfFolder As WinRépertoires) As String

Comme cela, dans l'appli qui utilise la fonction de ton OCX, il voit apparaitre les noms des répertoires cherchés : Plus intuitif. Exemple :

Label1.Caption = MagicFolder1.SpeFolder(WinRep_Bureau)

Si, en ouvrant la parenthèse de SpeFolder, la liste n'apparait pas, simplement faire Alt-Espace pour la faire apparaitre.

vala
Jack

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.