마지막 경로가없는 경로 만 얻는 방법 \?

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 

참고 ... 테스트되지는 않았지만 작동해야합니다.