VB6.0，从用户处获取输入并打开文件夹

我想从用户处获取2个输入并打开文件夹

假设我们有几个目录，如G:\s\ABC-123\XYZ-001 我想从用户那里获得2个输入，用户将在不同的文本框中输入123和001，文件夹将打开。 G:\s\ABC-（字符串）\XYZ-（字符串） 其中字符串是来自用户的输入

我在网上有这个密码，你们能帮我吗

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Function pathOfFile(fileName As String) As String
    Dim posn As Integer
    posn = InStrRev(fileName, "\")
    If posn > 0 Then
        pathOfFile = Left$(fileName, posn)
    Else
        pathOfFile = ""
    End If
End Function
Private Sub Command1_Click()
    Dim myPath As String
    myPath = "D:\Dani\result.png"
    ShellExecute 0, vbNullString, pathOfFile(myPath), vbNullString, vbNullString, 1
End Sub

---

假设表单上有2个文本框控件，您的挑战是如何组合路径。请尝试以下操作：

Private Sub Command1_Click()
    Dim myPath As String
    myPath = "G:\s\ABC-" & Text1.Text & "\XYZ-" & Text2.Text
    ShellExecute 0, vbNullString, pathOfFile(myPath), vbNullString, vbNullString, 1
End Sub

---

假设表单上有2个文本框控件，您的挑战是如何组合路径。请尝试以下操作：

Private Sub Command1_Click()
    Dim myPath As String
    myPath = "G:\s\ABC-" & Text1.Text & "\XYZ-" & Text2.Text
    ShellExecute 0, vbNullString, pathOfFile(myPath), vbNullString, vbNullString, 1
End Sub

---

你有什么具体问题？也就是说，到目前为止您所尝试的有什么问题吗？“”和-，我一直在做错事您有什么具体问题？也就是说，到目前为止你所尝试的有什么问题吗？“”和-，我一直在做错事，谢谢Brian。我被夹在“”和&符号之间。谢谢Brian。我被夹在“”和&符号之间。