从字符串中分离文件路径,文件名及其扩展名

    此函数从字符串中分离出路径 Function ParsePath (sPathIn As String) As String Dim I As Integer For I = Len(sPathIn) To 1 Step -1 If InStr(":\", Mid$(sPathIn, I, 1)) Then Exit For Next ParsePath = Left$(sPathIn, I) End Function 此函数从字符串

   

   

    此函数从字符串中分离出路径

    Function ParsePath (sPathIn As String) As String

    Dim I As Integer

    For I = Len(sPathIn) To 1 Step -1

    If InStr(":\", Mid$(sPathIn, I, 1)) Then Exit For

    Next

   

ParsePath = Left$(sPathIn, I)

    End Function

    此函数从字符串中分离出文件名

    Function ParseFileName (sFileIn As String) As String

    Dim I As Integer

    For I = Len(sFileIn) To 1 Step -1

    If InStr("\", Mid$(sFileIn, I, 1)) Then Exit For

    Next

    ParseFileName = Mid$(sFileIn, I + 1, Len(sFileIn) - I)

    End Function

    此函数从字符串中分离出文件扩展名

    Function GetFileExt (sFileName As String) As String

    Dim P As Integer

    For P = Len(sFileName) To 1 Step -1

    If InStr(".", Mid$(sFileName, P, 1)) Then Exit For

    Next

    GetFileExt = Right$(sFileName, Len(sFileName) - P)

    End Function

    原文转自：http://www.ltesting.net

说明：该文章系网友上传分享，若未进行原创声明，则表明该文章系转载自互联网；若该文章内容涉嫌侵权，请及时向上学吧网站投诉>>