OpenFileDialog

打开文件对话框。

属性

方法

示例一

默认每次只能选择一个文件,通过FileName属性返回选择的文件名:

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter=
"Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If
dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show(
"你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End
If

示例二

如果将MultiSelect属性设置为True,可以选择多个文件,通过FileNames属性返回选择的多个文件,例如:

Dim dlg As New OpenFileDialog
dlg.MultiSelect =
True
If
dlg.ShowDialog = DialogResult.OK Then
    OutPut.Show(
"你选择了" & dlg.FileNames.Length & "个文件, 分别是:")
    For
Each fl As String In dlg.FileNames
        Output.Show(fl)

    Next
End
If


本页地址:http://www.foxtable.com/webhelp/topics/0328.htm