Como puedo saber la Extenciónde un archivo?

[R@MI]

Y, bue, queria nomas preguntarles eso.

yo creia que usando la función right (o algo así) se podia, pero solo sirve para archivos que uno sabe cuantos caracteres tiene una aplicación, pero ay de muchas losgitudes distintas (.application, .manifest, .db, .vbg, .etc )
bueno, esa es mi duda

R@@@@@@@@@@@@@@@@@MI 

[TGa]

algo asi es lo que buscas???

Código: [Seleccionar]

Option Explicit

Dim miRuta As String
Dim miExt As String


Private Sub Form_Load()
    miRuta = "C:\miarchivo.txt"
    miExt = ExtraerExtencion(miRuta)
    MsgBox miExt
   
    miRuta = "C:\otroarchivo.db"
    miExt = ExtraerExtencion(miRuta)
    MsgBox miExt
End Sub

Private Function ExtraerExtencion(Ruta As String) As String
    ExtraerExtencion = Right$(Ruta, (Len(Ruta) - InStrRev(Ruta, ".")))
End Function

[E N T E R]

Código: (vb) [Seleccionar]

Private Sub Command1_Click()
   
    Dim Archivo As String, Extension As String
    Archivo = "c:\windows\calc.exe"
    Extension = Mid(Archivo, InStr(Archivo, ".") + 1)
   
    MsgBox Extension
   
End Sub

[DarkStreaM]

creo que ese codigo podria dar errores en algunos casos 

yo uso algo como esto :

Código: [Seleccionar]

Dim a() As String
Dim ext As String
a = Split ("C:\test.txt")
ext = "." & a(UBound(a))

MsgBox ext


[erbuson]

Hola, para gustos colores, personalmente pienso y de hecho así lo utilizo desde hace tiempo que esta función es mas 'fiable' ya que antes de nada comprueba si el archivo tiene extensión y después devuelve la que sigue al último punto (.)

Código: [Seleccionar]

Private Function Extension(NombreArchivo As String) As String
  If InStr(NombreArchivo, ".") Then
    Extension = Mid$(NombreArchivo, InStrRev(NombreArchivo, ".") + 1)
  End If
End Function
Saludos

[seba123neo]

busca un poco, tenes miles de paginas donde dice como hacerlo:

Extraer de una ruta la extensión de un archivo, el nombre y reemplazar extensiones