Argh! Newbie Needs Help!

[HockeyFan]

OK, before I go crazy here...

Can someone help me with a script that will search a user's Desktop...or the "All User's\Desktop" folder...to see if a shortcut icon exists and if so detete it?

This is the test script that I'm using and it always reports back that the shortcut does not exist.

IF FileExists(@DesktopDir & "\'ADA Dial-Up'") Then
    MsgBox(4096, "", "Shortcut exists")
Else
    MsgBox(4096, "", "Shortcut does not exist!")
EndIf
Exit

[big_daddy]

OK, before I go crazy here...

Can someone help me with a script that will search a user's Desktop...or the "All User's\Desktop" folder...to see if a shortcut icon exists and if so detete it?

This is the test script that I'm using and it always reports back that the shortcut does not exist.

IF FileExists(@DesktopDir & "\'ADA Dial-Up'") Then
    MsgBox(4096, "", "Shortcut exists")
Else
    MsgBox(4096, "", "Shortcut does not exist!")
EndIf
Exit

First does the shortcut actually have the single qoutes at the beginning and end?

Secondly shortcuts have a file extention of .lnk, so try this:

IF FileExists(@DesktopDir & "\'ADA Dial-Up'.lnk") Then
    MsgBox(4096, "", "Shortcut exists")
Else
    MsgBox(4096, "", "Shortcut does not exist!")
EndIf
Exit

Edit: fixed typo

Edited May 5, 2006 by big_daddy

[HockeyFan]

First does the shortcut actually have the single qoutes at the beginning and end?

Secondly shortcuts have a file extention of .ink, so try this:

IF FileExists(@DesktopDir & "\'ADA Dial-Up'.ink") Then
    MsgBox(4096, "", "Shortcut exists")
Else
    MsgBox(4096, "", "Shortcut does not exist!")
EndIf
Exit

Thanks big-daddy...but it still doesn't work. I even tested it by createing a file on my desktop named delete me.txt and it didn't work. I then removed the quotes around Delete Me.txt and it worked. But when I try and enter the dial-up shortcut "ADA Dial-UP" without quotes, it still doesn't find it. I'm really started to get frustrated!!

Any more ideas! :">

[Jos]

Thanks big-daddy...but it still doesn't work. I even tested it by createing a file on my desktop named delete me.txt and it didn't work. I then removed the quotes around Delete Me.txt and it worked. But when I try and enter the dial-up shortcut "ADA Dial-UP" without quotes, it still doesn't find it. I'm really started to get frustrated!!

Any more ideas! :">

Try:

If FileExists(@DesktopDir & "\ADA Dial-Up.lnk") Then

[MHz]

Try this UDF

_Desktop("ADA Dial-Up.lnk")

Func _Desktop($shortcut)
; Delete a Desktop shortcut.
    If FileExists(@DesktopDir & '\' & $shortcut) Then
        Return FileDelete(@DesktopDir & '\' & $shortcut)
    ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then
        Return FileDelete(@DesktopCommonDir & '\' & $shortcut)
    EndIf
EndFunc

covers both desktops

Edit: fixid code typo

Edited May 5, 2006 by MHz

[HockeyFan]

Try:

If FileExists(@DesktopDir & "\ADA Dial-Up.lnk") Then

Thanks...I realized big_daddys typo and used lnk instead of ink.

[big_daddy]

Thanks...I realized big_daddys typo and used lnk instead of ink.

Whoops...sorry about that!

[HockeyFan]

Try this UDF

_Desktop("ADA Dial-Up.lnk")

Func _Desktop($shortcut)
; Delete a Desktop shortcut.
    If FileExists(@DesktopDir & '\' & $shortcut) Then
        Return FileDelete(@DesktopDir & '\' & $shortcut)
    ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then
        Return FileDelete(@DesktopCommonDir & '\' & $shortcut)
    EndIf
EndFunc

covers both desktops

Edit: fixid code typo

THANK YOU!!! That did the trick!

Thank you SO much!