Function uf_GetFileName(strFileAddress As String) As String
'===============================================================================
'-函数名称:         uf_GetFileName
'-功能描述:         从文件的地址中取出文件名
'-输入参数说明:     参数1:strFileAddress 文件的地址
'-返回参数说明:     返回文件名
'-使用语法示例:     uf_GetFileName("c:\myfile\a.mdb")
'-参考:
'-使用注意:
'-兼容*:           2000,XP,2003
'-作者:             Victor Duane
'-更新日期：        2007-10-12
'===============================================================================
If Len(strFileAddress) > 0 Then
    Dim X As Integer
    X = InStrRev(strFileAddress, "\", -1)
    Debug.Print X
    uf_GetFileName = Right$(strFileAddress, Len(strFileAddress) - X)
Else
    uf_GetFileName = "Null"
End If
End Function