Quitar caracteres a una string

[W3XT3R]

tengo una string que contiene la ruta de un archivo creado por un programa mio que los cifra modificando el codigo binario y para distinguirlos del original les añade la extension .enc (NombreDelArchivo.ExtensionDelArchivo.enc) ¿como puedo hacer para que a la hora de desencriptarlo coja la ruta previamente guardada en una string y le quite la terminacion .enc?

ante todo muchisimas gracias

PD: contesten lo antes posible, es un proyecto que tengo que entregar esta semana

[Kizar]

Usando la funcion Right.
Esta funcion te coje los caracteras k le indikes de derecha a izkierda.

Código [Seleccionar] Expandir


Dim NewRuta As String
NewRuta = Right("C:\pakete\powa.enc", 4)


Salu2

[W3XT3R]

lo acabo de probar y lo que hace es cojer los ultimos caracteres y quitar el resto
Ej: de C:\pakete\powa.txt.enc se quedaria en .enc no en C:\pakete\powa.txt q es lo que quiero

[sch3m4]

usa mid.

Código [Seleccionar] Expandir

resultado=mid(cadena,1,len(cadena)-4)

[W3XT3R]

no he probado lo del mid pero lo he solucionado basandome en lo del right de la siguiente manera
destino = Left(destinoname, Len(destinoname) - 4)

[Kizar]

Pua, las drogas me tan matando. lo sento se me fue la pinza.

Salu2