VB6中如何通过浏览按钮获取文件所在路径而非完整文件名

嘿，这个需求在VB6里挺常见的，我给你分享两种靠谱的实现方式，按需选就行：

方法一：用FileSystemObject（简洁推荐） #

这个方法借助VB的FileSystemObject对象，能直接获取文件的父文件夹路径，代码很清爽。

步骤： #

1. 先在VB工程里添加引用：工程 -> 引用 -> 勾选Microsoft Scripting Runtime
2. 替换你的代码为下面的版本：

Private Sub cmdBrowse_Click()
    Dim fso As New FileSystemObject
    ' 弹出文件选择对话框
    CommonDialog1.ShowOpen
    
    ' 确保用户选择了文件，避免空路径报错
    If CommonDialog1.FileName <> "" Then
        ' GetParentFolderName返回不带末尾斜杠的路径，所以手动加上\
        txtPath1.Text = fso.GetParentFolderName(CommonDialog1.FileName) & "\"
    End If
End Sub

如果不想手动添加引用，也可以用后期绑定的方式创建FileSystemObject，代码改一点点就行：

Private Sub cmdBrowse_Click()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
        txtPath1.Text = fso.GetParentFolderName(CommonDialog1.FileName) & "\"
    End If
End Sub

方法二：手动处理字符串（无需额外引用） #

如果不想依赖FileSystemObject，也可以自己通过字符串操作提取路径，核心是找到最后一个反斜杠的位置，再截取前面的部分：

Private Sub cmdBrowse_Click()
    Dim fullPath As String
    Dim lastSlashIndex As Integer
    
    CommonDialog1.ShowOpen
    fullPath = CommonDialog1.FileName
    
    If fullPath <> "" Then
        ' 从后往前找最后一个\的位置
        lastSlashIndex = InStrRev(fullPath, "\")
        ' 确保找到反斜杠（避免用户选的是根目录下的文件）
        If lastSlashIndex > 0 Then
            ' 截取从开头到最后一个\的部分，包含\
            txtPath1.Text = Left(fullPath, lastSlashIndex)
        End If
    End If
End Sub

两种方法都能帮你得到像C:\File\这样的路径，第一种更省心，第二种适合不想加引用的场景~

内容的提问来源于stack exchange，提问作者Sacha Karthi