Extract Directory Name from FullPath

 
Function FullPath_FileName(ByVal strFullPath As String) As String
'With '\' at end
?FullPath_FileName("c:\x.txt")		>> c:\
?FullPath_FileName("c:\x\y.txt")	>> c:\x\
?FullPath_FileName("x.txt")			>> '' (empty string)
    FullPath_FileName = Left(strFullPath, InStrRev(strFullPath, "\"))
End Function