Iį the code you sent requires the user to have to refresh windows in some way, it's really not what I'm looking for. I want everything done automatically, and in the background.
#Windows xp folder icon changer manual#
The main intent here is to have nothing manual needing to be done by the user except for choosing the name of the folder. Everything is completed now except for allowing the user to choose the folder icon from 4 icons (located in the folder). I am working on a cd that automatically opens an "xls" file that creates a folder onto the desktop or other location of the user's choosing, moves files to that folder, and creates shortcuts onto the desktop for five of the files. I have created the "ini" file, but haven't written the vba code yet to append the ini file (once it is placed into the folder) to replace the icon file address, but it seems that I can do this by using a "shell" command and "notepad", once the file is in the directory. Since I first asked for help, I did a few more hours of research and finally found that you can accomplish this task by creating a desktop.ini file within the folder. To determine the values for IconFile and IconIndex used in the code, do the manual steps and then open the folder's hidden Desktop.ini in Notepad. GetFolder(folderPath).Attributes = NormalĮnd SubThe code automates the manual steps of changing the icon, as described in the OP. WriteLine "IconFile=%SystemRoot%\system32\SHEL元2.dll" button Browse through the shell32.dll icons (or any other. GetFolder(folderPath).Attributes = System If you wish to assign a custom icon to a particular folder, follow these steps: Right-click the folder you want to customize and choose Properties In the Customize tab, click Change icon.
Set FSO = CreateObject("Scripting.FileSystemObject") If Right(folderPath, 1) "\" Then folderPath = folderPath & "\" Dim folderPath As String, DesktopIni As String
0 kommentar(er)
