Attribute VB_Name = "String_Utilities"
Option Explicit

'--------------------------------------------------------------------------
'This function gets the file name from a path/filename
'--------------------------------------------------------------------------
Function getFileNameOnly(rsFullpath As String) As String
Attribute getFileNameOnly.VB_Description = "Gets the file name from a path/filename"
  On Error Resume Next
  Dim i As Integer

  For i = Len(rsFullpath) To 1 Step -1
    If Mid(rsFullpath, i, 1) = "\" Then
      Exit For
    End If
  Next
  getFileNameOnly = Right$(rsFullpath, Len(rsFullpath) - i)
End Function

