Как устранить ошибку времени выполнения 9, выход за пределы диапазона при получении последней папки в пути

Question

Попытка извлечь последнюю папку в пути с использованием массива, она работает, но возвращает ошибку времени выполнения 9, значение Subscript вне диапазона в конце выполнения сценария. `

Dim a As Variant
i = 5
For n = LBound(files) To UBound(files)
    a = Split(files(n), "\")
    FnameInLoop = a(UBound(a) - 1)
    Cells(i, 1).Value = FnameInLoop
    i = i + 1
    Next n`

Answer 1

@ MathieuGuindon решен, спасибо за ваш вклад, который привел к успешному результату, просто добавил проверку, если значение равно нулю, ниже:

`' extract last folder in path
Dim a As Variant
i = 5
For n = LBound(files) To UBound(files)
    a = Split(files(n), "\")
    If Not Fnameinloop = "" Then
    Fnameinloop = a(UBound(a) - 1)
    Cells(i, 1).Value = Fnameinloop
    End If
    i = i + 1
    Next n
`