|
 |  |  |  |  |  |  |
| Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks. |
| |||||||
 |
| |
03-11-2009
| #1 (permalink) |
| | Accessing desktop shortcuts Hi I need to iterate through shortcuts on the desktop and I am using the below code; strFolder = Shell.SpecialFolders("AllUsersDesktop") For Each objFile In oFS.GetFolder(strFolder).Files If Right(LCase(objFile.Name), 4) = LCase(".lnk") Or Right(LCase(objFile.Name), 4) = LCase(".url") Then Set oLink = oWS.CreateShortcut(objFile.Path) 'Some processing oLink.Save End If Next The problem is I am getting the following error on the very first line; Error: Object required 'Shell' Code: 800A01A8 What is the problem and how can I fix it? Thanks Regards |
My System Specs |
|
03-11-2009
| #2 (permalink) |
| | Re: Accessing desktop shortcuts Figured this one. Thanks "John" <info@xxxxxx> wrote in message news:eKIQO0roJHA.6048@xxxxxx Quote: > Hi > > I need to iterate through shortcuts on the desktop and I am using the > below code; > > strFolder = Shell.SpecialFolders("AllUsersDesktop") > For Each objFile In oFS.GetFolder(strFolder).Files > If Right(LCase(objFile.Name), 4) = LCase(".lnk") Or > Right(LCase(objFile.Name), 4) = LCase(".url") Then > Set oLink = oWS.CreateShortcut(objFile.Path) > 'Some processing > oLink.Save > End If > Next > > The problem is I am getting the following error on the very first line; > > Error: Object required 'Shell' > Code: 800A01A8 > > What is the problem and how can I fix it? > > Thanks > > Regards > > > > > > > > |
| My System Specs |
|
03-11-2009
| #3 (permalink) |
| | Re: Accessing desktop shortcuts "John" <info@xxxxxx> wrote in message news:eKIQO0roJHA.6048@xxxxxx Quote: > Hi > > I need to iterate through shortcuts on the desktop and I am using the > below code; > > strFolder = Shell.SpecialFolders("AllUsersDesktop") > For Each objFile In oFS.GetFolder(strFolder).Files > If Right(LCase(objFile.Name), 4) = LCase(".lnk") Or > Right(LCase(objFile.Name), 4) = LCase(".url") Then > Set oLink = oWS.CreateShortcut(objFile.Path) > 'Some processing > oLink.Save > End If > Next > > The problem is I am getting the following error on the very first line; > > Error: Object required 'Shell' > Code: 800A01A8 > > What is the problem and how can I fix it? > > Thanks > > Regards > 'set WshShell = WScript.CreateObject("WScript.Shell") 'in your case ? set Shell = WScript.CreateObject("WScript.Shell") 'that's my guess |
| My System Specs |
|
| Thread Tools | |
| |
Similar Threads | ||||
| Thread | Forum | |||
| Desktop shortcuts | VB Script | |||
| Desktop Shortcuts | Vista General | |||
| Desktop shortcuts | Vista performance & maintenance | |||
| Desktop Shortcuts | Vista General | |||
