'=======================================================
'           Class_Initialize
'=======================================================

'=======================================================
'           ExtractFilePath
'=======================================================
Public Function ExtractFilepath(filename)
    Dim i, Text

    ExtractFilepath = ""
    
    Text = Replace(filename, "/", "\")
    i = InStrRev(Text, "\")

    If (i <= 1) Then Exit Function
    ExtractFilepath = Left(Text, i - 1)

End Function
'=======================================================
'           ExtractFileName
'=======================================================
Public Function ExtractFileName(filename)
    Dim i, Text

    ExtractFileName = ""
    Text = Replace(filename, "/", "\")
    i = InStrRev(Text, "\")

    If (i <= 1) Then Exit Function

    ExtractFileName = Right(Text, Len(Text) - i)
End Function

'=======================================================
'           ExtractFileNam
'=======================================================
Public Function ExtractFileNam(filename)

    ExtractFileNam = filename

    Text = ExtractFileName(filename)
    i = InStrRev(Text, ".")
    If i = 0 Then Exit Function
    ExtractFileNam = Left(Text, i - 1)

End Function

'=======================================================
'           ExtractFileExt
'=======================================================
Public Function ExtractFileExt(filename)

    ExtractFileExt = ""
    Text = ExtractFileName(filename)
    i = InStrRev(Text, ".")
    If i = 0 Then Exit Function
    ExtractFileExt = Right(Text, Len(Text) - (i - 1))

End Function