GetFilePath
Public Function GetFileNameFromFullPath( _ sFullFileNameWithPath As String _ ) As String Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") GetFileNameFromFullPath = _ fs.GetFilename( _ sFullFileNameWithPath _ ) End Function