vb中的下列代码，如何用vb.net实现

[sunmaoyou]

刚刚接触vb.net，又很多东西不会，特来csdn获取帮助，谢谢各位大侠了！

CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "数据文件(*.mj)|*.mj"
CommonDialog1.FilterIndex = 1
CommonDialog1.FileName = ""
CommonDialog1.Action = 1
datafilename = CommonDialog1.FileName
If datafilename = "" Then Exit Sub

Open datafilename For Input As #1
Input #1, JingXing
Input #1, Ti, MR, Ht, Lanme
Input #1, Ps, G, Tinj, Xh
Close #1

Open datafilename For Output As #1
Print #1, JingXing
Print #1, Ti, MR, Ht, Lanme
Print #1, Ps, G, Tinj, Xh
Close #1

希望能详细一点的。

[scegg]

CommonDialog中的Save和Open已经分开到两个组件中去了，方法基本保持一致，一看就懂。
OpenFileDialog SaveFileDialog

Open -> FileOpen
Close -> FileClose
Input Print一次只能跟一个变量

[VirtualDesktop]

你可以用VB。NET打开VB60的工程，它会帮你升级的！