本页内容是《获取路径、文件名、扩展名(vba)》同时我们还提供济宁地区的网站建设,百度,雅虎,google的推广,点金,商友,等营销软件
请输入关键字:

标题搜索 内容搜索  

你现在所在的位置->首页->vb编程->获取路径、文件名、扩展名(vba)

获取路径、文件名、扩展名(vba)

时间:[2012-10-14 16:15:28]     作者:请作者尽快与我们联系。

获取路径、文件名、扩展名

'ResultFlag=0  获取路径
'ResultFlag=1  获取文件名
'ResultFlag=2  获取扩展名
Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim SplitPos As Integer, DotPos As Integer
SplitPos = InStrRev(FullPath, "\")
DotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
    Case 0
        SplitPath = Left(FullPath, SplitPos - 1)
    Case 1
        If DotPos = 0 Then DotPos = Len(FullPath) + 1
        SplitPath = Mid(FullPath, SplitPos + 1, DotPos - SplitPos - 1)
    Case 2
        If DotPos = 0 Then DotPos = Len(FullPath)
        SplitPath = Mid(FullPath, DotPos + 1)
    Case Else
        Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function
调用:FindStr = SplitPath(Text3.Text, 1) + "." + SplitPath(Text3.Text, 2)

【声明】本站刊载的《获取路径、文件名、扩展名(vba)》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios

友情链接

本页内容是《获取路径、文件名、扩展名(vba)》 返回顶部
© 2001-2017 Lining studios 济宁速创科技有限公司, All Rights Reserved
 Processed Time:46.875ms