如何获得只有最后路径\？

Question

使用VB 6

我想只选择路径吗？

路径选择 - C:\Documents and Settings\Administrator\My Documents\1.txt

代码：

Public Function Getpath01(sFile As String) As String 
    Dim iPos As Long 
    For iPos = Len(sFile) To 1 Step -1 
    If Mid$(sFile, iPos, 1) = "\" Then 
     Getpath01 = Left$(sFile, iPos) 
     Exit Function 
    End If 
    Next 
    Getpath01 = sFile 
End Function 

从上面的代码我收到。

C:\Documents and Settings\Administrator\My Documents\ 

我不想显示最后一个 “\” 也

预期输出

C:\Documents and Settings\Administrator\My Documents 

如何修改密码？

需要vb6代码帮助。

Answer 1

Public Function Getpath01(sFile As String) As String 
    Dim iPos As Long 
    For iPos = Len(sFile) To 1 Step -1 
    If Mid$(sFile, iPos, 1) = "\" Then 
     Getpath01 = Left$(sFile, iPos-1) 
     Exit Function 
    End If 
    Next 
    Getpath01 = sFile 
End Function 

Answer 2

使用InStrRev会不会更容易（而且更快，因为没有For循环）？

Public Function GetPath01 (sFile as string) as string 
    Dim iPos As Long 

    iPos = InStrRev(sFile, "\") 
    If iPos > 0 Then 
     GetPath01 = Left$(sFile, iPos - 1) 
    Else 
     GetPath01 = sFile 
    End If 
End Function 

注意...未经测试，但应该工作。