Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 145 fois - Téléchargée 29 fois
Sub DossierIcône(sDossier As String) 'Création du dossier MkDir sDossier 'Ecriture du fichier ini (Chemin du fichier, index de l'icône dans le fichier, commutateur 'pour éviter un message en cas de suppression du fichier ini, et enfin info facultative) Open sDossier & "\Desktop.ini" For Output As #1 Print #1, "[.ShellClassInfo]" & vbCrLf & "IconFile=" _ & sChemin & "Dossier.ico" & vbCrLf & "IconIndex=0" & _ vbCrLf & "ConfirmFileOp=0" & vbCrLf & "InfoTip=Dossier" & _ " avec une icône personnalisée" Close 'POINT IMPORTANT : le DOSSIER est défini comme Système SetAttr sDossier, vbSystem 'Le fichier desktop.ini est défini comme Système et Caché SetAttr sDossier & "\Desktop.ini", vbSystem + vbHidden End Sub
3 nov. 2006 à 15:29
12 mars 2006 à 14:43
12 mars 2006 à 14:26
Clock, je crois que cette source fonctionen sous VB6... mais par contre pour Win 98 SE je n'en sais rien du tout. Je ne me souviens même pas si on pouvait personnaliser les icônes des dossiers sous Win 98... Il faudrait trouver un utilisateur de Win 98 qui connaisse bien le truc.
Cordialement,
Cacophrène
4 déc. 2005 à 13:29
Je suis encore un inconditionnel de windows 98 SE
et en plus J'ai une version VB 6 initial.
Et ton code m'interresse grandement pour pouvoir appliquer
une îcone - dossier sur des Programmes enregistrés dans le code
source .net et ceux dont la source est en VB6........
si tu peux adapter ta source pour quelle fonctionne sous VB6
biensur je pourrais le faire , mais je suis un très grand débutant !
Et de plus je t'en serais reconnaissant !!
Merci d'avance !
19 août 2005 à 10:47
Merci à toi.
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.