파일 이름 추출

InStrRev()를 이용한 간단한 방법

'경로 구하기
filePath = Left(orgFileName, InStrRev(orgFileName, "\"))

'파일명 구하기
fileName = Mid(orgFileName, InStrRev(orgFileName, "\") + 1)

'확장자 구하기
fileExt = Mid(orgFileName, InStrRev(orgFileName, ".") + 1)