Visual Basic - Buscar carpeta ignorando los caracteres finales

Hola, estoy haciendo "miniprogramilla" que me abre arxivos de word, y cuando le asigno la ruta, solo me interesa poner los primeros 4 caracteres del nombre de la carpeta p. ej:
la ruta \\Nostromo\produccion\_A0111 Nextra Interface
y me interesaria poner \\Nostromo\produccion\_A011

Todo esto sin cambiar de nombre la carpeta... hay alguna forma de hacerlo???

Muchas Gracias por adelantado! ;)

Hola mira realmente no me quedo claro para que necesitas eso , pero realmente no es muy difícil , ahora , si vos le modificas en nombre a la carpeta vas a tener problemas después si intentas abrir un archivo dentro de esa carpeta.

yo entendi que necesitas algo asi :

Dim SepararRuta() As String
Dim CantDePartes As Integer
Dim CarpetaCon_4_Caracteres As String
Dim RutaFull As String
Dim I As Integer

'El separador es --> /
SepararRuta() = Split("\Nostromo\produccion\_A0111 Nextra Interface", "\")

CantDePartes = UBound(SepararRuta())

'A la ultima parte de la ruta le saca los primeros 4 caracteres
CarpetaCon_4_Caracteres = Left(SepararRuta(CantDePartes), 4)

'aca se une la ruta sin la ultima parte
For I = 0 To CantDePartes - 1

RutaFull = RutaFull & "\" & SepararRuta(I)

Next

'aca se une toda la ruta con la ultima parte modificada
RutaFull = RutaFull & "\" & CarpetaCon_4_Caracteres


Espero

Hola mira realmente no me quedo claro para que necesitas eso , pero realmente no es muy difícil , ahora , si vos le modificas en nombre a la carpeta vas a tener problemas después si intentas abrir un archivo dentro de esa carpeta.

yo entendi que necesitas algo asi :

Dim SepararRuta() As String
Dim CantDePartes As Integer
Dim CarpetaCon_4_Caracteres As String
Dim RutaFull As String
Dim I As Integer

'El separador es --> /
SepararRuta() = Split("\Nostromo\produccion\_A0111 Nextra Interface", "\")

CantDePartes = UBound(SepararRuta())

'A la ultima parte de la ruta le saca los primeros 4 caracteres
CarpetaCon_4_Caracteres = Left(SepararRuta(CantDePartes), 4)

'aca se une la ruta sin la ultima parte
For I = 0 To CantDePartes - 1

RutaFull = RutaFull & "\" & SepararRuta(I)

Next

'aca se une toda la ruta con la ultima parte modificada
RutaFull = RutaFull & "\" & CarpetaCon_4_Caracteres


Espero

Hola mira realmente no me quedo claro para que necesitas eso , pero realmente no es muy difícil , ahora , si vos le modificas en nombre a la carpeta vas a tener problemas después si intentas abrir un archivo dentro de esa carpeta.

yo entendi que necesitas algo asi :

Dim SepararRuta() As String
Dim CantDePartes As Integer
Dim CarpetaCon_4_Caracteres As String
Dim RutaFull As String
Dim I As Integer

'El separador es --> /
SepararRuta() = Split("\Nostromo\produccion\_A0111 Nextra Interface", "\")

CantDePartes = UBound(SepararRuta())

'A la ultima parte de la ruta le saca los primeros 4 caracteres
CarpetaCon_4_Caracteres = Left(SepararRuta(CantDePartes), 4)

'aca se une la ruta sin la ultima parte
For I = 0 To CantDePartes - 1

RutaFull = RutaFull & "\" & SepararRuta(I)

Next

'aca se une toda la ruta con la ultima parte modificada
RutaFull = RutaFull & "\" & CarpetaCon_4_Caracteres


Espero que te sirva !!

Parece que hubo un deyabu

OK muchas gracias, mañana lo pruebo y te digo algo...

Gracias!