Xin Code chỉ lấy tên Folder vào Textbox

[quyenpv]

Dear anh chị!
Em đang bí chỗ hàm Function chỉ lấy tên Folder được chọn vào Textbox mà không muốn lấy đường dẫn File, Xin anh chị chỉ giúp ạ

 

[quyenpv]

Cám ơn em đã làm được rồi ạ

Public Function GetFolderName(ByVal sPath As String) As String
    GetFolderName = Mid(sPath, InStrRev(sPath, "\") + 1)
End Function

Function GetFolder(strPath As String) As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function