Binaryworld - SetFolderIcon - Associate an icon to a folder ... [ VB -> Windows ]

Private Declare Function SetFileAttributes Lib "kernel32" Alias _
  "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As _
  Long) As Long

' Associate an icon to a folder, by creating a desktop.ini file into it.
' Within Explorer the specified icon will be displayed instead of the standard
' folder icon
' Parameters:
' sFolderPath: path of the folder to associate the icon to
' sIconFile: icon file to associate. This can be a .ico, .exe or .dll file
' iIconIndex: index of the icon in case the specified file contains more than
' one icon (such as shell32.dll)
'
' Example:
' SetFolderIcon "C:\NiceFolder", "C:\Documents\TestIcon.ico"

Sub SetFolderIcon(ByVal sFolderPath As String, ByVal sIconFile As String, _
  Optional ByVal iIconIndex As Long = 0)
  Dim sContent As String
  Dim sDesktopFile As String
  Dim bExists As Boolean
  Dim handle As Integer

  On Error Resume Next
  ' test whether both the folder and the icon file exist
  bExists = (GetAttr(sFolderPath) And vbDirectory) <> 0 And (GetAttr _
    (sIconFile) And vbDirectory) = 0
  If bExists = False Or Err.Number <> 0 Then Exit Sub

  ' build the file content
  sContent = "[.ShellClassInfo]" & vbCrLf & "IconIndex=" & iIconIndex & _
    vbCrLf & "IconFile=" & sIconFile

  'make the path for the desktop.ini file
  sDesktopFile = sFolderPath & IIf(Right$(sFolderPath, 1) = "\", "", _
    "\") & "desktop.ini"

  ' open the file and write the content
  handle = FreeFile
  Open sDesktopFile For Output As #handle
  Print #handle, sContent;
  Close #handle

  ' make the file hidden and the folder read only
  SetFileAttributes sDesktopFile, vbHidden
  SetFileAttributes sFolderPath, vbReadOnly

End Sub