Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
dlg.Multiselect = True
If dlg.ShowDialog = DialogResult.Ok Then
'如果用户单击了确定按钮
For Each f As String in dlg.FileNames
Output.show(f)
Next
End
If