Take the 2-minute tour ×  I'm trying to write a script that will
update desktop shortcuts in WinXP and Win7 (32 and 64bit). I'm
having 2 problems, in XP, the target path of the shortcut won't
change, and in both XP and 7, the "Start In" part of the
shortcut won't change. Whats wrong here and how can I correct?
If InStr(GetWindowsVer(), "XP") > 0 then
IterateFolder("C:\Documents and Settings\") Elseif
InStr(GetWindowsVer(), "7") > 0 then End if  Sub
IterateFolder(folderPath)     Dim strFolderToSearch, objFSO,
objRootFolder, objFolder, colSubfolders, strOutput, subFolder
strFolderToSearch = folderPath      Set objFSO =
CreateObject("Scripting.FileSystemObject")     Set objRootFolder
= objFSO.GetFolder(strFolderToSearch)     Set colSubfolders =
objRootFolder.SubFolders      For Each objFolder in
colSubfolders              subFolder = objFolder.Path &
"\Desktop"              Set objFSO1 =
CreateObject("Scripting.FileSystemObject")             Set
objFolder1 = objFSO.GetFolder(subFolder)              Set