Créer un dossier puis en modifier l'icôneRésolu

Question

Salut &#224; tous !

Une petite chose m'emb&#234;te depuis quelques temps : je souhaite modifier l'ic&#244;ne d'un dossier cr&#233;&#233; &#224; l'aide la fonction MkDir. Je cr&#233;e donc un fichier Desktop.ini de la mani&#232;re suivante :

'<-----------------------------------------------

Private Declare Function ATTRIBUTS Lib "kernel32"
Alias "SetFileAttributesA" ( _
   ByVal lpFileName As String, _
   ByVal dwFileAttributes As Long) As Long

Sub Dossier()

  MkDir sDossier
  Open sDossier & "\Desktop.ini" For Output As #1
    Print #1, "[.ShellClassInfo]" & vbCrLf & _
    "IconFile=" & sChemin & "Dossiers.ico" & _
    vbCrLf & "IconIndex=0"
  Close #1
  'Attributs : cach&#233; (&H2), syst&#232;me (&H4)
  ATTRIBUTS sDossier & "\desktop.ini", &H2 Or &H4
End Sub

'<-----------------------------------------------

sDossier d&#233;signe l'adresse du dossier cr&#233;&#233;.
IconFile=0 car c'est l'index de l'ic&#244;ne dans le fichier .ico

Ayant fait tout cela... eh bien mon dossier ne change pas d'ic&#244;ne javascript:Insert_Emoticon('/imgs2/smile_shock.gif');

Quelqu'un a-t-il une id&#233;e pour &#231;a ?
Cacophr&#232;ne

Cacophrene · Accepted Answer

Salut !

Voilà le message pour la solution.

Private Sub Ecrire(sDossier As String)
    MkDir sDossier
    Open sDossier & "\Desktop.ini" For Output As #1
        Print #1, "[.ShellClassInfo]" & vbCrLf & _
        "IconFile=" & sChemin & "Dossier.ico" & _
        vbCrLf & "IconIndex=0"
    Close
    SetAttr sDossier, vbSystem
    SetAttr sDossier & "\Desktop.ini", vbSystem + vbHidden
End Sub

Donc : le DOSSIER dont on veut modifier l'icône doit être en vbSystem, chose que je ne faisais pas...

Cacophrene · Answer

Ah, souci avec Opera... plus de sauts de lignes !

Cacophrene · Answer

Salut à tous !

Une petite chose m'embête depuis quelques temps : je souhaite modifier l'icône d'un dossier créé à l'aide la fonction MkDir. Je crée donc un fichier Desktop.ini de la manière suivante :

'<-----------------------------------------------

Private Declare Function ATTRIBUTS Lib "kernel32"
Alias "SetFileAttributesA" ( _
   ByVal lpFileName As String, _
   ByVal dwFileAttributes As Long) As Long

Sub Dossier()

  MkDir sDossier
  Open sDossier & "\Desktop.ini" For Output As #1
    Print #1, "[.ShellClassInfo]" & vbCrLf & _
    "IconFile=" & sChemin & "Dossiers.ico" & _
    vbCrLf & "IconIndex=0"
  Close #1
  'Attributs : caché (&H2), système (&H4)
  ATTRIBUTS sDossier & "\desktop.ini", &H2 Or &H4
End Sub

'<-----------------------------------------------

sDossier désigne l'adresse du dossier créé.
IconFile=0 car c'est l'index de l'icône dans le fichier .ico

Ayant fait tout cela... eh bien mon dossier ne change pas d'icône javascript:Insert_Emoticon('/imgs2/smile_shock.gif');

Quelqu'un a-t-il une idée pour ça ?
Cacophrène

cs_DARKSIDIOUS · Answer

M&#234;me apr&#232;s red&#233;marrage de Windows ? Cela peut venir du cache des ic&#244;nes par exemple.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Cacophrene · Answer

Salut Darksidious !

D'abord merci pour l'intérêt que tu portes à ma question.

J'ai redémarré l'ordinateur après avoir créé le dossier et le fichier ini... rien ne change après, mon dossier n'a toujours pas l'icône voulue. J'ai tenté d'appliquer le programme à un dossier qui existait déjà (donc pas de MkDir), même résultat...

Cordialement,
Cacophrène

cs_DARKSIDIOUS · Answer

Bon ben d&#233;sol&#233; alors, je ne vois pas d'o&#249; ca peut venir !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Cacophrene · Answer

Re !

J'ai essayé l'API WritePrivateProfileString histoire de voir si ça changeait quelque chose... Aucun résultat.

Juste une chose Darksidious : si tu essaies mon code sur ton pc, est-ce que ça marche ? (je me dis que c'est peut-être mon pc qui est dingue, je finirais bien par le menacer avec la même hache que mon image...)

Merci d'avance,
Cacophrène

Cacophrene · Answer

PS : J'oubliais ci-dessus. Je suis allé voir la source de MasterHack (http://www.vbfrance.com/code.aspx?ID=25390) qui crée un ini comme moi... mais sur des dossiers existants, et ça marche ! Alors misère, je n'y comprends rien.

Cordialement,
Cacophrène

Cacophrene · Answer

Enfin !!!

Je viens de trouver...
Je dois ajouter Hide et Show successivement, et ça marche... Serait-ce donc un problème de rafraîchissement quelconque ?

cs_DARKSIDIOUS · Answer

Non ca ne marche pas chez moi non plus.


Note : j'ai r&#233;ussi &#224; le faire marcher en manuel uniquement !


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

Exact, bien vu !



C'est cool ce petit code l&#224;, ca peut faire un petit utilitaire bien sympa !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Créer un dossier puis en modifier l'icône

11 réponses

Discussions similaires