TreeView问题

fan0217

月语：请将标题更改，所以控件应该是TreeView不是LIstView。下面是个自定义的小函数。




Function GetKmPath(strKmPath As String) As String
Dim varArr, strMyKM As String
Dim i As Integer
    varArr = Split(strKmPath & "\", " ", -1)
    For i = 0 To UBound(varArr)
        strMyKM = strMyKM & Left(varArr(i), InStr(varArr(i), "\"))
    Next
   GetKmPath = Left(strMyKM, Len(strMyKM) - 1)
End Function