حذف نشدن Shortcut دسکتاپ برنامه Yahoo! Messenger با ویژوال بیسیک 6

[Slytherin]

دوستان من از این کد برای حذف Shortcut برنامه ها از روی دسکتاپ استفاده می کنم:
StrShortcut = Environ("UserProfile") + "\Desktop\Yahoo! Messenger.lnk"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(StrShortcut) Then fso.DeleteFile (StrShortcut)
در حالت عادی این کد هیچ مشکلی ندارد و به درستی کار می کند و روی همه میانبر ها جواب می دهد فقط زمانی که می خواهم میانبر برنامه یاهو! مسنجر رو از روی میزکار حذف کنم این اتفاق نمی افتد!
می خواستم بدونم که:
1.دلیل کار نکردن این کد روی برنامه یاهو! مسنجر چیه؟
2.چطوری می تونم میانبر برنامه یاهو! مسنجر رو از روی میز کار حذف کنم؟
باتشکر از پاسخ دوستان

[just4froum]

با سلام :

برای این که شما وقتی از Environ("UserProfile") استفاده می کنید مسیر کامپیوتر کاربر را می دهد مثل C:\Users\Your Name\Desktop\Yahoo! Messenger.lnk در صورتی که آیکن Yahoo messenger در مسیر تمامی دسکتاپ ها ذخیره می شود یعنی چنین مسیری C:\Users\Public\Desktop\Yahoo! Messenger.lnk

البته این برای ویندوز هفت و ویستا بود.

[just4froum]

اینو یادم رفت بگم اگر از Environ("Public") به جای Environ("UserProfile") استفاده کنی درست میشه .

[M.T.P]

StrShortcut = Environ("PUBLIC") + "\Desktop\Yahoo! Messenger.lnk"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(StrShortcut) Then fso.DeleteFile (StrShortcut)

[Slytherin]

ممنون دوستان، مشکل حل شد.
عجب سوتی دادم!:D