Hi

I am using below code to create an icon on desktop;

dstFolder = "C:\My App " & Mid(FormatDateTime(date,0),7,4) & "." &
Mid(FormatDateTime(date,0),4,2) & "." & Mid(FormatDateTime(date,0),1,2)
dstFolderFile = dstFolder & "\My App.exe"

Set objShell = CreateObject("WScript.Shell")
strFolder = objShell.SpecialFolders("AllUsersDesktop")
Set link = objShell.CreateShortcut(strFolder & "\My App.lnk")

link.Description = "My App"
link.TargetPath = dstFolderFile
link.WorkingDirectory = dstFolder
link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
link.Save

Problem is I am getting the belwo error on line 'link.SetIconLocation
"C:\Windows\System32\SHELL32.dll", 13';

Error: Object doesn't support this property or method:
'link.SetIconLocation'

What is the problem and how can I fix it?

Thanks

Regards

Hi John,

I see 2 errors in your line of code. You posted this line as your problem:

'link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13'

The 2 errors I see are that you left out the = sign and you have your
closing double-quote in the wrong place. The correct code should be:

link.SetIconLocation = "C:\Windows\System32\SHELL32.dll, 13"


Hope this helps,

CEF

John wrote:

> Hi
>
> I am using below code to create an icon on desktop;
>
> dstFolder = "C:\My App " & Mid(FormatDateTime(date,0),7,4) & "." &
> Mid(FormatDateTime(date,0),4,2) & "." & Mid(FormatDateTime(date,0),1,2)
> dstFolderFile = dstFolder & "\My App.exe"
>
> Set objShell = CreateObject("WScript.Shell")
> strFolder = objShell.SpecialFolders("AllUsersDesktop")
> Set link = objShell.CreateShortcut(strFolder & "\My App.lnk")
>
> link.Description = "My App"
> link.TargetPath = dstFolderFile
> link.WorkingDirectory = dstFolder
> link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
> link.Save
>
> Problem is I am getting the belwo error on line 'link.SetIconLocation
> "C:\Windows\System32\SHELL32.dll", 13';
>
> Error: Object doesn't support this property or method:
> 'link.SetIconLocation'
>
> What is the problem and how can I fix it?
>
> Thanks
>
> Regards

Hi

Thanks. I have tried

link.SetIconLocation = "C:\Windows\System32\SHELL32.dll, 13"

but still same error "Object doesn't support this property or method:
'link.SetIconLocation'". If I rem out this line then shortcut is created
fine on the desktop.

Thanks

Regards

"Charles E Finkenbiner" <CharlesEF_@_CEF-Inc.Com> wrote in message
news:usy2cTtoJHA.3332@xxxxxx

> Hi John,
>
> I see 2 errors in your line of code. You posted this line as your
> problem:
>
> 'link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13'
>
> The 2 errors I see are that you left out the = sign and you have your
> closing double-quote in the wrong place. The correct code should be:
>
> link.SetIconLocation = "C:\Windows\System32\SHELL32.dll, 13"
>
>
> Hope this helps,
>
> CEF
>
> John wrote:

>> Hi
>>
>> I am using below code to create an icon on desktop;
>>
>> dstFolder = "C:\My App " & Mid(FormatDateTime(date,0),7,4) & "." &
>> Mid(FormatDateTime(date,0),4,2) & "." & Mid(FormatDateTime(date,0),1,2)
>> dstFolderFile = dstFolder & "\My App.exe"
>>
>> Set objShell = CreateObject("WScript.Shell")
>> strFolder = objShell.SpecialFolders("AllUsersDesktop")
>> Set link = objShell.CreateShortcut(strFolder & "\My App.lnk")
>>
>> link.Description = "My App"
>> link.TargetPath = dstFolderFile
>> link.WorkingDirectory = dstFolder
>> link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
>> link.Save
>>
>> Problem is I am getting the belwo error on line 'link.SetIconLocation
>> "C:\Windows\System32\SHELL32.dll", 13';
>>
>> Error: Object doesn't support this property or method:
>> 'link.SetIconLocation'
>>
>> What is the problem and how can I fix it?
>>
>> Thanks
>>
>> Regards

On Mar 12, 8:52*am, "John" <i...@xxxxxx> wrote:

> Hi
>
> Thanks. I have tried
>
> link.SetIconLocation = "C:\Windows\System32\SHELL32.dll, 13"
>
> but still same error "Object doesn't support this property or method:
> 'link.SetIconLocation'". If I rem out this line then shortcut is created
> fine on the desktop.
>
> Thanks
>
> Regards
>
> "Charles E Finkenbiner" <CharlesEF_@_CEF-Inc.Com> wrote in messagenews:usy2cTtoJHA.3332@xxxxxx
>

> > Hi John,

>

> > I see 2 errors in your line of code. *You posted this line as your
> > problem:

>

> > 'link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13'

>

> > The 2 errors I see are that you left out the = sign and you have your
> > closing double-quote in the wrong place. The correct code should be:

>

> > link.SetIconLocation = "C:\Windows\System32\SHELL32.dll, 13"

>

> > Hope this helps,

>

> > CEF

>

> > John wrote:

> >> Hi

>

> >> I am using below code to create an icon on desktop;

>

> >> * dstFolder = "C:\My App " & Mid(FormatDateTime(date,0),7,4) & "."&
> >> Mid(FormatDateTime(date,0),4,2) & "." & Mid(FormatDateTime(date,0),1,2)
> >> * dstFolderFile = dstFolder & "\My App.exe"

>

> >> * Set objShell = CreateObject("WScript.Shell")
> >> * strFolder = objShell.SpecialFolders("AllUsersDesktop")
> >> * Set link = objShell.CreateShortcut(strFolder & "\My App.lnk")

>

> >> * link.Description = "My App"
> >> * link.TargetPath = dstFolderFile
> >> * link.WorkingDirectory = dstFolder
> >> * link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
> >> * link.Save

>

> >> Problem is I am getting the belwo error on line 'link.SetIconLocation
> >> "C:\Windows\System32\SHELL32.dll", 13';

>

> >> Error: Object doesn't support this property or method:
> >> 'link.SetIconLocation'

>

> >> What is the problem and how can I fix it?

>

> >> Thanks

>

> >> Regards

The correct syntax is ...

link.IconLocation = "C:\Windows\System32\SHELL32.dll, 13"

See WSH 5.6 documentation download (URL all one line)
http://www.microsoft.com/downloads/d...displaylang=en

Tom Lavedas
***********
http://there.is.no.more/tglbatch/

Hi John,

Tom's post below is correct. I missed the 3rd error in your code. Tom
caught it.


Hope this helps,

CEF

John wrote:

> Hi
>
> Thanks. I have tried
>
> link.SetIconLocation = "C:\Windows\System32\SHELL32.dll, 13"
>
> but still same error "Object doesn't support this property or method:
> 'link.SetIconLocation'". If I rem out this line then shortcut is created
> fine on the desktop.
>
> Thanks
>
> Regards
>
> "Charles E Finkenbiner" <CharlesEF_@_CEF-Inc.Com> wrote in message
> news:usy2cTtoJHA.3332@xxxxxx

>> Hi John,
>>
>> I see 2 errors in your line of code. You posted this line as your
>> problem:
>>
>> 'link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13'
>>
>> The 2 errors I see are that you left out the = sign and you have your
>> closing double-quote in the wrong place. The correct code should be:
>>
>> link.SetIconLocation = "C:\Windows\System32\SHELL32.dll, 13"
>>
>>
>> Hope this helps,
>>
>> CEF
>>
>> John wrote:

>>> Hi
>>>
>>> I am using below code to create an icon on desktop;
>>>
>>> dstFolder = "C:\My App " & Mid(FormatDateTime(date,0),7,4) & "." &
>>> Mid(FormatDateTime(date,0),4,2) & "." & Mid(FormatDateTime(date,0),1,2)
>>> dstFolderFile = dstFolder & "\My App.exe"
>>>
>>> Set objShell = CreateObject("WScript.Shell")
>>> strFolder = objShell.SpecialFolders("AllUsersDesktop")
>>> Set link = objShell.CreateShortcut(strFolder & "\My App.lnk")
>>>
>>> link.Description = "My App"
>>> link.TargetPath = dstFolderFile
>>> link.WorkingDirectory = dstFolder
>>> link.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
>>> link.Save
>>>
>>> Problem is I am getting the belwo error on line 'link.SetIconLocation
>>> "C:\Windows\System32\SHELL32.dll", 13';
>>>
>>> Error: Object doesn't support this property or method:
>>> 'link.SetIconLocation'
>>>
>>> What is the problem and how can I fix it?
>>>
>>> Thanks
>>>
>>> Regards

>
>