none
Split com pastas RRS feed

  • Pergunta

  • Bem, estou com uma duvida de como fazer um diretorio com menos uma pasta.

    Quero converter para retirar uma pasta: C:/Windows/System32 > C:/Windows

    Podem me ajduar ?

    Código que uso:

                If ListView1.FocusedItem.Text = "..." Then
                    Dim words As String() = url.Split(New String() {"/"}, StringSplitOptions.None)
    
                Else
                    ftp.SetWorkingDirectory(ListView1.FocusedItem.Tag)
                End If

    Preciso que a lista de strings words se junte ate formar o diretorio so que sem a ultima pasta
    • Editado xgames178 domingo, 30 de novembro de 2014 17:06
    domingo, 30 de novembro de 2014 17:05

Respostas

  • Fiz algumas correções em seu codigo, teste ai e veja se funciona para você:

    Dim pastas As String() = TextBox1.Text.Split("\")
            Dim pasta As String = ""
            Dim quant As Integer = 0
            For Each diretorio As String In pastas
                If (quant = 0) Then
                    pasta += pastas(quant) + "\"
                Else
                    pasta += pastas(quant - 1) + "\"
                End If
    
                quant = quant + 1
    
            Next
            RichTextBox1("Status:     Definindo pasta de entrada '" & pasta & "'.")
            MessageBox.Show(pasta)
            ftp.SetWorkingDirectory(pasta)

    Não esquece de marcar a resposta
    • Sugerido como Resposta Mr. GMSOFT segunda-feira, 1 de dezembro de 2014 15:52
    • Marcado como Resposta xgames178 terça-feira, 2 de dezembro de 2014 14:29
    segunda-feira, 1 de dezembro de 2014 15:52

Todas as Respostas

  • O código abaixo pega o diretório sem a última pasta cada índice representa uma pasta do diretório

    Dim pastas As String() = url.Spli("/"C)
    Dim pasta As String = pastas(pastas.Lenght - 1)

    • Marcado como Resposta xgames178 segunda-feira, 1 de dezembro de 2014 00:27
    • Não Marcado como Resposta xgames178 segunda-feira, 1 de dezembro de 2014 01:30
    domingo, 30 de novembro de 2014 18:59
  • Estou com dificuldades para montar o diretorio, tentei 2 métodos: "For Each" e "While"

    Os 2 deram falha, alguma ideia de como posso montar ?

    Ultimo código que tentei:

                    Dim pastas As String() = url.Split("/")
                    Dim pasta As String = "/"
                    Dim quant As Integer
                    While quant = pastas.Length - 2
                        quant = quant + 1
                        pasta = pasta & "/" & pastas(quant)
                    End While
                    RichTextBoxColor("Status:     Definindo pasta de entrada '" & pasta & "'.", Color.Green)
                    MessageBox.Show(pasta)
                    ftp.SetWorkingDirectory(pasta)


    Jpdante - Iniciante em VB.NET

    segunda-feira, 1 de dezembro de 2014 14:44
  • Fiz algumas correções em seu codigo, teste ai e veja se funciona para você:

    Dim pastas As String() = TextBox1.Text.Split("\")
            Dim pasta As String = ""
            Dim quant As Integer = 0
            For Each diretorio As String In pastas
                If (quant = 0) Then
                    pasta += pastas(quant) + "\"
                Else
                    pasta += pastas(quant - 1) + "\"
                End If
    
                quant = quant + 1
    
            Next
            RichTextBox1("Status:     Definindo pasta de entrada '" & pasta & "'.")
            MessageBox.Show(pasta)
            ftp.SetWorkingDirectory(pasta)

    Não esquece de marcar a resposta
    • Sugerido como Resposta Mr. GMSOFT segunda-feira, 1 de dezembro de 2014 15:52
    • Marcado como Resposta xgames178 terça-feira, 2 de dezembro de 2014 14:29
    segunda-feira, 1 de dezembro de 2014 15:52