1 reply to this topic

[kresh7]

Ok while ago ive coded this function it extracts the extention of a file so i thought lets post it here to maybe someone could need this Credit if u use it :D Peace out

Public Function ExtractFileExtention(FilePath As String)

    On Error GoTo Hell

    Dim i    As Integer

    Dim TPos As String


    For i = 0 To Len(FilePath) + 1


        TPos = Right$(FilePath, i)


        If InStr(1, TPos, ".") Then

            ExtractFileExtention = Right$(FilePath, Len(TPos))

            Exit Function

        End If


    Next


Hell:

    MsgBox "Application Error", vbInformation, "Error"

    Exit Function

End Function

[MathX]

Go to Hell :P