Code to delete favorites ?

Admin what i use is this….

Mod…..

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function OpenURL(ByVal URL As String) As Long

OpenURL = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)

End Function

XP Code:

OpenURL "C:Documents and SettingsAll UsersFavorites"

Windows 98 Code:

OpenURL "C:WINDOWSFavorites"

you can put the OpenURL “C:Documents and SettingsAll UsersFavorites” in a command button ect… same with OpenURL “C:WINDOWSFavorites”

so when they click on the button for exsample it will pop up the Favorites folder and they can delete whats in there Favorites 🙂

maybe someone knows a better way but thats how i do it 😉

Check this little change I made, cause before dont know it suppose to but didnt take me to the xp user favorites,

If Environ("OS") = "Windows_NT" Then

OpenURL "C:Documents and Settings" & Environ("USERNAME") & "Favorites"

Else

OpenURL "C:WINDOWSFavorites"

End If

Now it takes me to the fav folder of the window xp user 🙂