Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Extraer extensión y nombre de ruta y fichero - Visual Basic
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A