Code tách tên file

Sub listfile()
Dim xls As Excel.Worksheet
Dim fd As FileDialog
Dim vItem As Variant, T, a As Integer, max As Integer, b As Integer, j As Integer
Dim mg1 As Range
Dim mg2 As Range
Dim source As String
Dim i As Long, arr_res()
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set xls = ActiveSheet
With fd
    .Filters.Add "All Files", "*.docx;*.doc;*.xls;*.xlsx;*.jpg; *.jpeg", 1
    .FilterIndex = 1
    .AllowMultiSelect = True
    If .Show = -1 Then
        For i = 1 To .SelectedItems.Count
            b = b + 1
            T = Split("/" & .SelectedItems.Item(i), "\")
            a = UBound(T)
            If a > max Then
               max = a
               ReDim Preserve arr_res(1 To .SelectedItems.Count, 1 To max)
            End If
            For j = 1 To a
                  arr_res(b, j) = T(j)
            Next j
        Next
        [a1].Resize(b, max).Value = arr_res()
    End If
End With
  Set fd = Nothing
End Sub

Sub listfile()
    Dim xls As Excel.Worksheet
    Dim fd As FileDialog
    Dim vItem As Variant
    Dim mg1 As Range
    Dim mg2 As Range
    Dim source As String
    Dim i As Long, arr_res()
    Dim Tmp, Str As String, j As Long
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Set xls = ActiveSheet
    With fd
        .Filters.Add "All Files", "*.docx;*.doc;*.xls;*.xlsx;*.jpg; *.jpeg", 1
        .FilterIndex = 1
        .AllowMultiSelect = True
        
        If Not .Show = -1 Then MsgBox "Ban chua chon file", vbCritical, "GPE": Exit Sub
      
        For i = 1 To .SelectedItems.Count
            Tmp = Split(.SelectedItems.Item(i), "\")
            ReDim Preserve arr_res(1 To .SelectedItems.Count, 1 To UBound(Tmp))
            Str = Tmp(0)
            For j = 1 To UBound(Tmp)
                Str = Str & "\" & Tmp(j)
                'Debug.Print Str
                arr_res(i, j) = Str
            Next j
        Next
        [a1].Resize(UBound(arr_res), UBound(Tmp)) = arr_res
    End With
      Set fd = Nothing
End Sub

Sub listfile()
Dim xls As Excel.Worksheet
Dim fd As FileDialog
Dim vItem As Variant
Dim mg1 As Range
Dim mg2 As Range
Dim source As String
Dim i As Long, arr_res(): ReDim arr_res(1 To 1000, 1 To 3)
Dim fs As Object: Set fs = CreateObject("Scripting.FileSystemObject")
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set xls = ActiveSheet
With fd
    .Filters.Add "All Files", "*.docx;*.doc;*.xls;*.xlsx;*.jpg; *.jpeg", 1
    .FilterIndex = 1
    .AllowMultiSelect = True
    If .Show = -1 Then
        For i = 1 To .SelectedItems.Count
            arr_res(i, 3) = fs.getfilename(.SelectedItems(i))
            arr_res(i, 1) = fs.GetDriveName(.SelectedItems(i)) & "\"
            arr_res(i, 2) = fs.GetParentFolderName(.SelectedItems(i))
        Next
        [a1].Resize(UBound(arr_res), 3) = arr_res
    End If
End With
Set fd = Nothing
End Sub