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" GetFolder(folderPath).Attributes = System Set FSO = CreateObject("Scripting.FileSystemObject") If Right(folderPath, 1) "\" Then folderPath = folderPath & "\" It comes in both 32-bit and 64-bit downloads.Dim folderPath As String, DesktopIni As String Previous versions of the OS shouldn't be a problem with Windows 8 and Windows 7 having been tested. It can run on a PC with Windows 11 or Windows 10. Is Folder Colorizer for Windows 10 or Windows 11? Download and installation of this PC software is free and 1.2 is the latest version last time we checked.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |