Please help with this error

[Guest]

Hi i use this:
side =Mid(folder, (InStrRev(folder, "_") + 1))

But not all folder has a underscore
I only want to see the folder whit underscore

I understand i shall use a If but how???
Regards
alvin

 

[Ivan Raiminius]

Hi Alvin,

on error resume next
side =Mid(folder, (InStrRev(folder, "_") + 1))
if err<> then
err = 0
' underscore not found
else
'underscore found
end if
on error goto 0

Regards,
Ivan

 

[Norman Jones]

Hi Alvin,

Try:

If InStr(folder, "_") Then
side = Mid(folder, (InStrRev(folder, "_") + 1))
End If

 

[Guest]

Thanks
its working

Alvin

Hi Alvin,

Try:

If InStr(folder, "_") Then
side = Mid(folder, (InStrRev(folder, "_") + 1))
End If