Ver originales (Francés)

Extracción de extensiones de archivos en VBA

Resuelto
Tessel75 -  
 Maurice -
Hola,
¿Existe alguna expresión en VBA de Excel que permita extraer la extensión de los archivos, al estilo de "name" o "path"?
He hecho una pequeña función para obtener este resultado, pero si la expresión existiera estaría mucho más satisfecho.
Gracias por sus respuestas

Configuración: Windows 7 / Firefox 31.0

3 respuestas

  1.
    eriiic Mensajes publicados 24581 Fecha de registro   Estado Colaborador Última intervención   7 281
     
    Hola,

    a mi entender no.
    Una forma de hacerlo: 
    ext=Mid(nomFich, InstrRev(nomFich, ".") + 1)


    eric

    --
    Intentando constantemente, al final se consigue.
    Así que cuanto más falla, más probabilidades hay de que funcione. (los Shadoks)
    Además de decir gracias (sí, sí, ¡se hace! ), piensa en marcar como resuelto. Gracias
    1
  2. Tessel75
     
    Gracias por tu respuesta. Llegaba a la misma expresión, solo que pasaba por Right() y usaba parámetros intermedios; la tuya está más contenida. Buenas noches
    0
  3. Maurice
     
    Hola

    Aquí tienes el nombre o extensión

    Sub Test4()
    NombreFichero = "L001000_M_pb69.3656_100.5572_E12.txt"
    Fichero = Mid(NombreFichero, 1, InStrRev(NombreFichero, ".") - 1)
    ExtFichero = Mid(NombreFichero, InStrRev(NombreFichero, ".") + 1)
    End Sub

    Un saludo

    Maurice
    0