我有一段代码可以搜索快捷方式并将它们放入列表框中。如何修改它以显示没有.lnk
扩展名
For Each foundFile As String In My.Computer.FileSystem.GetFiles("Z:\SiteServices\Maintenance\Maintenance Support Folder\Equipment Specific Information\DES", Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, "*" & txtSearch.Text & "*" & ".lnk")
ListBox1.Items.Add(foundFile)
Next