Извлечь файл с фильтром имен с VBA

Question

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

В конце каждого имени файла указывается дата и время.

Дата простачтобы получить, но я застрял со временем, потому что это в формате "01h01m01s".

Есть ли способ решить эту проблему с помощью RegEx?

Вот имена файлов, как онипоявляются в проводнике:

Вот пример моего кода:

arquivo = "C:\pathname\file_2018_12_27-01h15m22s.zip"
Caminho = "C:pathname\"

strDate = Format(Now, " dd-mm-yy")
NewFolder = Path & "Extracted" & strDate & "\"

MkDir NewFolder
Set oApp = CreateObject("Shell.Application")
'Set oApp = CreateObject("Shell.Application")
oApp.Namespace(NewFolder).copyhere oApp.Namespace(file).items

Answer 1

Function GetTime(s$)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d{2}h\d{2}m\d{2}s"
        GetTime = .Execute(s)(0)
    End With
End Function

Sub test()
    MsgBox GetTime("Farol de RC_Celulas de Cto_2018.12.26_07h47m50s.zip")
End Sub