Comunidad Gambas-es

Versión completa: Extendiendo la clase File - BaseDir
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
Esta función devuelve el nombre del directorio inmediatamente superior de una ruta que se pasa y ademas quita todos los niveles superiores a este, trabaja similar a la función nativa BaseName pero con el directorio.
GAMBAS
  1. '' <b>RAD Extension.</b><br>
  2. '' Returns the directory without the path to it, that is, it returns the name of the directory. if you pass "/home/user/music" it will return "music"
  3.  
  4.  
  5.   Dim strBase As String
  6.   Dim stx As New String[]
  7.  
  8.   If InStr(Path, "/") > 0 Then
  9.     stx = Split(Path, "/")
  10.     strBase = stx[stx.Max]
  11.  
  12.   Return strBase
  13.  


Saludos