Capture only the second part of the string

Question

I have the following code to perform the method Split on a path:

Dim ItemsCopy As Integer = 0


    Dim Caminho As String = ContarItems(I)
    Dim SplitCam As String() = Regex.Split(Caminho.ToString, "=")

    For Each S As String In SplitCam

        Vizualizador.ListBox1.Items.Add(S)
    Next

Where has the ContarItems(I) is a array I put it on top just to save the URL, but it’s the following I have a URL

Exemplo: Victor\junior\Documentos\=Pasta\Teste\arquivo.teste

When I use the method it cuts straight and adds in listbox, but I wanted him to only put the second part in the case Pasta\Teste\arquivo.teste He puts the first and the second, and I don’t want that first part.

Answer 1

It seems that simple, but it may be that the question is not well explained. Confirm me to try to adjust or remove the answer.

Dim ItemsCopy As Integer = 0
Dim Caminho As String = ContarItems(I)
Dim SplitCam As String() = Regex.Split(Caminho.ToString, "=")
//tem que pegar um elemento específico (índice 1 é o segundo) e não varrer todo o array
Vizualizador.ListBox1.Items.Add(S(1))

I put in the Github for future reference.

Answer 2

Consider changing your code to something that contains

Dim documentos As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Dim meuArquivoDiretorio As String = "Pasta\Teste\arquivo.teste"

Dim fi = New System.IO.FileInfo(System.IO.Path.Combine(documentos, meuArquivoDiretorio))
fi.Directory.Create()

Dim FullFileName As String = fi.FullName

Answer 3

No! the function runs normally without any problem it goes exactly like this in the code, above this one has one that simply checks every line of the listbox keeps it in array and passes to another function I posted, but n wanted this first part of the string only the second part as shown in the code above.

Dim ContarItems(10) As String
    Dim I As Integer = 0
    Public Sub ExcluirArquivosDesatualizados()
        Dim contar As Integer = Vizualizador.LSTCaminho.Items.Count - 1

        For I = 0 To Vizualizador.LSTCaminho.Items.Count - 1
            Vizualizador.LSTCaminho.SelectedIndex = I

            ContarItems(I) = Vizualizador.LSTCaminho.SelectedItem.ToString
            teste()
        Next


        I = Vizualizador.LSTCaminho.Items.Count - 1
        MsgBox("0 = " & ContarItems(0).ToString & vbNewLine & _
               "1 = " & ContarItems(1))
    End Sub