New
#11
I found I simply had to drop the folder onto the vbs file, then enable the comments column in file explorer.
I also had to restart f. explorer for the comments to show.
Last edited by dalchina; 19 Dec 2023 at 00:52.
I found I simply had to drop the folder onto the vbs file, then enable the comments column in file explorer.
I also had to restart f. explorer for the comments to show.
Last edited by dalchina; 19 Dec 2023 at 00:52.
I got this for every shortcut in the folder:
https://i.postimg.cc/3rFMYj1Q/popup.jpg
This version of the script (the two 'echo' lines commented out with " ' " ) is 'silent:
Code:'18/12/23 MNG try to set description/comment on shortcut 'Drag folder and drop on script to pass folder name 'wscript.echo "args(0):" & wscript.arguments(0) Set WshShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(wscript.arguments(0)) set objFiles = objFolder.files for each filnam in objFiles if filnam.type = "Shortcut" then ' wscript.echo filnam Set lnk = WshShell.CreateShortcut(filnam) lnk.description = lnk.targetpath 'lnk.description = "cleared" lnk.save() end if next