两个文本框,分别显示打开文件的路径和新建文件的路径(包含文件名),一个命令按钮,用来打开文件和新建文件并把新建文件的路径显示在文本框2中,如何写代码,先谢谢各位了

你自己一点都不写？

Private Sub Command1_Click()
Dim p As String
Cod1.ShowOpen
Text1.Text = Cod1.FileName
p = Left(Cod1.FileName, InStrRev(Cod1.FileName, "/"))
Text2.Text = p
End Sub

我这样写怎么p取不到值啊

我是个初学者，原以为找到了学习的天地，结果却。。。。。。。

Cod1.ShowOpen
？