전체 경로를 받아 파일명 또는 폴더명만 얻기

' 전체경로명에서 파일이름만 구한다.
Public Function ExtractFileName(ByVal strpath As String) As String

   strpath = StrReverse(strpath)
   If InStr(strpath, "\") > 0 Then
       strpath = Left(strpath, InStr(strpath, "\") - 1)
   End If
   ExtractFileName = StrReverse(strpath)
   
End Function


' 전체경로명에서 경로명만 구한다.
Public Function ExtractDir(ByVal strpath As String) As String

   Dim n
   n = Len(ExtractFileName(strpath))
   
   ExtractDir = strpath
   If n > 0 And (Len(strpath) - n - 1) > 0 Then ExtractDir = Left(strpath, Len(strpath) - n - 1)
   
End Function