none
Extraer rutas de un archivo RRS feed

  • Pregunta

  • Saludos alguien me pude ayudar de un texto "C:\carpeta1\carpeta2\carpeta3\archivo.txt"

    deseo extraer "C:\carpeta1\carpeta2\carpeta3\" , gracias, espero alguien me pueda ayudar


    y lo que quita me lo ponga en un label
    jueves, 29 de marzo de 2018 16:49

Respuestas

Todas las respuestas

  • Ocupa la función GetDirectoryName(), por ejemplo:

    Dim Ruta = "C:\carpeta1\carpeta2\carpeta3\archivo.txt"
    Dim Directorio = Path.GetDirectoryName(Ruta)

    jueves, 29 de marzo de 2018 17:14
  • Se podría leer el string de atrás hacia adelante hasta encontrar el primer "\"

     Dim n As Integer
            Dim a As String
            a = "lo que sea\donde sea\ser.txt"
            For n = Len(a) To 1 Step -1
                If Mid(a, n, 1) = "\" Then Exit For
            Next
            a = Mid(a, 1, n)

    Saaludos


    Pedro López

    jueves, 29 de marzo de 2018 17:19
  • me falto añadir que lo que quita me lo ponga en una label? saludos gracias por la ayuda
    viernes, 30 de marzo de 2018 3:53
  • me falto añadir que lo que quita me lo ponga en una label? saludos gracias por la ayuda
    viernes, 30 de marzo de 2018 3:55
  • Dim Ruta = "C:\carpeta1\carpeta2\carpeta3\archivo.txt"

    Dim Directorio = Path.GetDirectoryName(Ruta)
    Dim Archivo = Path.GetFileName(Ruta)
    viernes, 30 de marzo de 2018 5:36
  • im n As Integer
            Dim a As String
            Dim b As String
            a = "lo que sea\donde sea\ser.txt"
            For n = Len(a) To 1 Step -1
                If Mid(a, n, 1) = "\" Then Exit For
            Next
            b = Mid(a, n, Len(a))
            a = Mid(a, 1, n)

    Pedro López

    viernes, 30 de marzo de 2018 10:20