Vb6:通过浏览按钮选择稍后使用的文件

Question

这是我的代码(请注意，这是由 friend 提供的):

Private Sub Browse_Click()
   Dim textfile As String
   textfile = Space(255)
   GetFileNameFromBrowseW Me.hWnd, StrPtr(sSave), 255, StrPtr("c:\"), 
      StrPtr("txt"), StrPtr("Apps (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) +
      "All files (*.*)" + Chr$(0) + "*.*" + Chr$(0)), StrPtr("Select File")
      Text1 = Left$(textfile, lstrlen(textfile))
End Sub

基本上稍后我编辑选择的文本文件，所以稍后我只是通过在我的函数中使用文本文件来调用它。但是我找不到一条路径，所以我觉得我做错了什么。
提前致谢。

编辑:我想要做的就是选择一个文本文件，然后可以调用它并使用它。

Answer 1

正如 shahkalpesh 所提到的，您只需使用标准 COM 库即可访问此功能。

在VB6中，添加组件:

项目 > 组件

在控件选项卡上，选择 Microsoft 通用对话框控件 6.0 (SP6)

现在在您的表单上，从工具箱中添加新的通用对话框控件

在代码中，您需要:

CommonDialog.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog.DefaultExt = "txt"
CommonDialog.DialogTitle = "Select File"
CommonDialog.ShowOpen

'The FileName property gives you the variable you need to use
MsgBox CommonDialog.FileName