'Créer un dossier avec une icône personnalisée
'Path : chemin complet du dossier
'Icon : chemin complet de l'icône
'ATTENTION : Ce code suppose que les deux valeurs sont valides
Public Sub FolderWithIcon(Path As String, Icon As String)
'Création du dossier
MkDir Path
Dim F As Integer
F = FreeFile()
'Création du fichier ini
Open Path & "\Desktop.ini" For Output As #F
Print #F, "[.ShellClassInfo]"
Print #F, "IconFile=" & Icon
Print #F, "IconIndex=0"
Print #F, "ConfirmFileOp=1"
Print #F, "InfoTip=Dossier avec une icône personnalisée"
Close #F
'Le dossier possède un attribut système
SetAttr Path, vbSystem
'Le fichier possède les attributs système et caché
SetAttr Path & IIf(Right$(Path, 1) = "\", "", "\") _
& "Desktop.ini", vbSystem + vbHidden
End Sub