dim appath as string
textbox1.text=""
appath=application.startuppath()
openfiledialog1.filename=appath & "text.txt"
openfiledialog1.filter="textfiles(*txt)|*.txt|all iles(*.*)|*.*"
openfiledialog1.filterindex=2

运行一下没有反应呢，不过看起来好象是打开以 *。txt结尾的文件用的。

老兄,你这段代码断章取义,如果你不是偷窃了谁的东西,最好把全部的代码写出来.

这代码是VB6.0的,不是NET的
是打开txt的文件或*.*的文件

在NET里是用Open控件
比如只打开Excel文件:
TextBox1.Text=""
Open.Filter = "Excel File (*.xls)|*.xls"
Open.FilterIndex = 2
Open.ShowDialog()
TextBox1.Text = Open.FileName