LFWF

Dim stringPathToFolderContainingShortcut as String = Me.TokenReplace("%(FindUsersFolder_OutputEntry_FullPath)")
            Dim Document as LFDocument = Me.Entry
            Dim AllShortcuts as ILFCollection = Document.GetAllShortcuts
 
            For i As Integer = 1 to AllShortcuts.Count
 
                Dim Shortcut as LFShortcut = AllShortcuts.Item(i)
                Dim ParentFolder as LFFolder = Shortcut.ParentFolder
 
                If ParentFolder.FullPath = stringPathToFolderContainingShortcut
 
                     Try
 
                        'Shortcut.Delete() <-- Uncomment after load testing
 
                    Catch ex As Exception
 
                        'Supress exception.
 
                    End Try
 
                End If
 
            Next