如何使用FileDialog指定文件格式选择文件

FileDialog fd=new FileDialog(shell ,SWT.OPEN|SWT.MULTI)

String[] filter = {“*.jpg*.png*.gif”}//指定文件格式

fd.setFilterExtensions(filter)

String fileName=fd.open()

System.out.println(“得到文件路径：”+fileName)

'注意引用　microsoft　office 10.0 （或以上）　object library

'在文件对话框对中返回选择一个文件夹的路径.

Public Function ChooseFolder() As String

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)

With dlgOpen

If .Show = -1 Then

ChooseFolder = .SelectedItems(1)End IfEnd With

Set dlgOpen = Nothing

End Function

'--------------------------------------------------------

'在文件对话框对中，选择一个文件。

Public Function ChooseOneFile(Optional TitleStr As String

= 选择你要的文件, Optional TypesDec As String = 所有文件,

Optional Exten As String = *.*) As String

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)

With dlgOpen

.Title = TitleStr

.Filters.Clear'清除所有的文件类型.

.Filters.Add TypesDec, Exten

.AllowMultiSelect = False '不能多选.

If .Show = -1 Then

'.AllowMultiSelect = True '多个文件

'For Each vrtSelectedItem In .SelectedItems

'MsgBox Path name:& vrtSelectedItem

'Next vrtSelectedItem

ChooseOneFile = .SelectedItems(1)'第一个文件End IfEnd With

用vs2012试了一下，没有出现你提到的问题啊

     private void button1_Click(object sender, EventArgs e)

        {

            OpenFileDialog dialog = new OpenFileDialog()

            dialog.Filter = "所有文件|*.*"

            dialog.Multiselect = true

            dialog.SupportMultiDottedExtensions = true

            if (dialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)

            {

                listBox1.Items.Clear()

                foreach (string s in dialog.SafeFileNames)

                {

                    listBox1.Items.Add(s)

                }

            }

        }

---