Lenguaje de programación Visual Basic
Os mostramos una función para extraer la extensión de una ruta y nombre de fichero dados, también obtiene el nombre (con extensión y sin ruta):
'caracter = . -> extensión
'caracter = \ -> nombre
Function extraerExtensionNombre(fichero As String, caracter As String) As String
Dim resultado As String
Dim posicionExt As Integer
posicionExt = InStrRev(fichero, caracter)
If posicionExt <> 0 Then
resultado = Right(fichero, Len(fichero) - posicionExt)
Else
resultado = ""
End If
extraerExtensionNombre = resultado
End Function
un ejemplo de uso:
...
MsgBox "La extensión del fichero es: " & _
extraerExtensionNombre("C:\Windows\calc.exe", ".")
...
Devolverá "exe".
Publicado el: 2007-04-23