Cita:
Iniciado por koaxial 
No me funciona bien. Seguramente algo hago mal:
Pos=InStr(objFile.Name,"_")
Pos2 = InStr(2, objFile.Name,"_")
NomFich=mid(objFile.Name, Pos, (Pos2 - Pos)+1)
Response.Write NomFich
Supongo que lo que pasa es que la longitud de la cadena es variable, porque depende del nombre del fichero que se esté mostrando... Lo que está claro es que siempre seguirá el patrón de extraer la cadena entre los caracteres "_"
Sustituye ese 2 por la variable pos que es la que contiene el valor de lectura de la primera aparición
y sumale 1 para que siga con la siguiente (mira la sintaxis de esa funcion)
Pos2 = InStr(pos+1, objFile.Name,"_")
Un saludo