MAGICFOLDER OU COMMENT RECUPÉRER 20 DOSSIERS DE WINDOWS
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
23 mars 2003 à 20:09
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 14 nov. 2004 à 05:09
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 14 nov. 2004 à 05:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6530-magicfolder-ou-comment-recuperer-20-dossiers-de-windows
https://codes-sources.commentcamarche.net/source/6530-magicfolder-ou-comment-recuperer-20-dossiers-de-windows
14 nov. 2004 à 05:09
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 ...
24 mars 2003 à 19:14
24 mars 2003 à 17:43
23 mars 2003 à 20:27
23 mars 2003 à 20:09
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