' Dateiname auslesen
Public Function DATNAME(sa As String)
    On Error Resume Next
    Dim lang As Long
    Dim pos As Long
    lang = Len(sa)
    pos = InStrRev(sa, "\")
    DATNAME = Right(sa, lang - pos)
End Function
 
' Pfad auslesen
Public Function DATPFAD(sa As String)
    On Error Resume Next
    Dim lang As Long
    Dim pos As Long
    lang = Len(sa)
    pos = InStrRev(sa, "\")
    DATPFAD = Left(sa, pos)
End Function
 
' Extension auslesen
Public Function DATEXTENSION(sa As String)
    On Error Resume Next
    Dim lang As Long
    Dim pos As Long
    lang = Len(sa)
    pos = InStrRev(sa, ".")
    DATEXTENSION = Right(sa, lang - (pos - 1))
End Function