从openfiledialog中排除shortcust

Question

如何排除快捷方式，以便在openfiledialog中看不到它们。 这是我目前的代码：

 Dim openPicDialog As New OpenFileDialog()
                'OpenPicDialog.FileName = "OpenFileDialog1"
                openPicDialog.Multiselect = True
                openPicDialog.Filter = "Image files (*.jpg, *.jpeg, *.jpe, *.jfif, *.png) | *.jpg; *.jpeg; *.jpe; *.jfif; *.png"
                openPicDialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
                If openPicDialog.ShowDialog() = DialogResult.OK Then
                    For Each File In openPicDialog.FileNames
                        AddImgToList(File)
                    Next
                Else

快捷方式是指引用“真实文件”的图标