Eliminación de la ruta al abrir un archivo

zempt
01 de Noviembre del 2004
A ver, lo que quiero es almacenar en una cadena lo que es el nombre sólamente del archivo, sin la extensión:
Es decir, por ejemplo, abro con un cuadro de texto común el archivo C:/Mis Documentos/ejemplo/blabla.txt y quiero almacenar en una cadena sólamente "blabla".

Sé que tiene que ser una tontería, pero no me acuerdo de cómo iba.

Gracias por adelantado.

en?
01 de Noviembre del 2004
te pongo dos ejemplos, uno con funciones para manipular cadenas y otro con el objeto FileSystemObject:

1 - **********
Dim NombreFichero As String

NombreFichero = RUTA_DE_TU_FICHERO
MsgBox NombreBase(NombreFichero)
End Sub

Public Function NombreBase(ByVal Fichero As String) As String
NombreBase = Right(Fichero, Len(Fichero) - InStrRev(Fichero, "", -1))
If InStrRev(NombreBase, ".", -1) Then NombreBase = Left(NombreBase, InStrRev(NombreBase, ".", -1) - 1)
End Function
**********


2 - **********
Dim Fs
Set Fs = CreateObject("scripting.filesystemobject")
MsgBox Fs.GetBaseName(RUTA_DE_TU_FICHERO)
Set Fs = Nothing
**********

Un saludo.