Извлечь часть имени файла из пути

Question

Мне нужно извлечь 2 раздела имени файла из пути в 2 строки.

.: "C:\folder\folder\folder\00 00 00 filename.docx" например

Все файлы именуются с тем же патерн. Мне нужно выбрать 2 поля в документе слова, которые будут содержать «00 00 00» (длина исправления) и «имя файла» (переменная длина).

Спасибо,

Answer 1

Sub Test() 
    VarStr = "C:\folder\folder\folder\00 00 00 filename.docx" 
    TempArr = Split(VarStr, "\") 
    TempArr(UBound(TempArr)) = Mid(TempArr(UBound(TempArr)), 1, Len(TempArr(UBound(TempArr))) - 5) 'remove .docx 
    VarFixed = Mid(TempArr(UBound(TempArr)), 1, 8) 
    VarVariable = Mid(TempArr(UBound(TempArr)), Len(VarFixed) + 2) 'ignore space 

    MsgBox VarFixed & vbCrLf & VarVariable 
End Sub