C:\jens\windows\man.html til c:\jens\windows\

StringA = "C:jens\windows\main.html"
Jeg ønsker at StringB skal indeholde "C:\jens\windows"

Option Explicit

Dim stringA As String
Dim stringB As String
Dim arrString() As String

Private Sub Command1_Click()
  Dim intAntal As Integer
  Dim intCount As Integer
  stringA = "C:\Jens\Windows\main.html"
  arrString = Split(stringA, "\")
  intAntal = UBound(arrString) - 1
  For intCount = 0 To intAntal
    stringB = stringB & arrString(intCount)
    If intCount < intAntal Then
      stringB = stringB & "\"
    End If
  Next intCount
  Text2.Text = stringB
End Sub

A = "C:jens\windows\main.html"
    Beg = 1
    For i = 1 To Len(A)
        C = InStr(Beg, A, "\")
        If C = 0 Then B = Left(A, Beg - 2)
        Beg = C + 1
    Next
    MsgBox B

Hva' skal spørgsmålet ikke lukkes? Det er fra april