; Autor : Flype
; Date  : 25/01/2007

Procedure.l CustomizeFolder(FolderName.s, IconName.s)
 
  Protected FileID.l
 
  If Right(FolderName, 1) <> "\"
    FolderName + "\"
  EndIf
 
  FileID = CreateFile(#PB_Any, FolderName + "Desktop.ini")
 
  If FileID
    WriteStringN(FileID, "[.ShellClassInfo]")
    WriteStringN(FileID, "IconFile = " + IconName)
    WriteStringN(FileID, "IconIndex = 0")
    CloseFile(FileID)
  EndIf
 
  If FileSize(FolderName + "Desktop.ini")
    ProcedureReturn PathMakeSystemFolder_(FolderName)
  EndIf
 
EndProcedure

; Test - Spécifier ici le dossier à personnaliser ainsi que l'icône désirée.

If CustomizeFolder("C:\PureXML2\help", "D:\ICONES\IconsXP\serviceconf.ico")
  MessageRequester("Information", "OK")
EndIf