Получение пути к выбранной папке в VB6

Question

Я хочу получить выбранный путь к папке

dlgBrowse.ShowOpen
fname = dlgBrowse.FileName
dlgBrowse.Filter = "Text File (*.txt)|*.txt|Log File (*.log)|*.log||All Files (*.*)|*.*"
dlgBrowse.DialogTitle = "Open Log File"
dlgBrowse.ShowOpen
If dlgBrowse.FileName <> "" Then
    txtLogFile.Text = dlgBrowse.FileName
End If
MsgBox fname

Это показывает вывод "C:\MRMS\Report\xyz.txt", но я хочу только выбранный путь к папке, т.е. если пользователь выбирает только корневую (MRMS) папку, т.е. "C:\MRMS" или любая другая папка только до выбранной пользователем папки.

Answer 1

Кратчайший путь:

Dim FullPath as string, ParentFolder as string, l() as string
FullPath = "" '... Write here the path from ComDlg
l = Split(FullPath, "\")
l(UBound(l)) = ""
ParentFolder = Join(l, "\")

Answer 2

Попробуйте это

Private Function GetRootDir(ByVal inputString As String) As Integer
    'min real path is c:\.  We need a len of at least 2
    If Len(inputString) < 2 Then
        GetRootDir = ""
    End If
    Dim t As Integer, s As Integer

    t = InStr(1, inputString, "\")
    If t < 1 Then
        GetRootDir = ""
        Exit Function
    End If

    s = InStr(t + 1, inputString, "\")
    'If this is the root folder that was selected
    If s < 1 Then
        GetRootDir = Mid(inputString, t + 1)
        Exit Function
    End If
    GetRootDir = Mid(inputString, t + 1, s - t - 1)
End Function

Затем, в своем коде, укажите ссылку на функцию, подобную этой ...

txtLogFile.Text = GetRootDir(dlgBrowse.FileName)

Answer 3

Вот простое решение для VB5, у которого нет функции Split:

    For Num = Len(CommonDialog1.filename) To 4 Step -1
    Charac = Mid$(CommonDialog1.filename, Num, 1)
    If Charac = "\" Then Exit For
    Next
    LastSlashPos = Num
    LastPath = Left$(CommonDialog1.filename, LastSlashPos)

Answer 4

Альтернативный способ найти папку выбранного файла с помощью общего диалога заключается в следующем:

FilePath = Replace(CommonDialog1.FileName, "\" & CommonDialog1.FileTitle, "")