Vbs, как получить расширение файла ?

...
dim m
For Each oFl in oFSO.GetFolder(sFolderPath).Files
if oFl.attributes<>6 and oFl.attributes<>38 then ' проверили на скрытые и системные
m=split(ofl.name,".") 'разбили имя в массив по точке
file_ext=m(ubound(m)) 'узнали расширение
'а дальше по ходу
If (file_ext <> "vbs") and (file_ext <> "db") Then
sOld=oFl.Name:oFl.Name="img_" & i & "." & file_ext
aLog(UBound(aLog))=sOld+" --> "+oFl.Name
ReDim Preserve aLog(UBound(aLog)+1)
i=i+1
end If
end if
Next
...