How to Delete Shortcut


Private Sub DeleteShortCut()
Dim fso As New Scripting.FileSystemObject
Dim DPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Try
fso.DeleteFile(DPath & "\ABC.lnk", True)
Catch ex As Exception
Try
dpath = Strings.Left(dpath, 26)
fso.DeleteFile(DPath & "All Users\Desktop\ABC.lnk", True)
Catch
End Try
End Try
end Sub