Comunidad Gambas-es
Extendiendo la clase File - BaseDir - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Controles/Librerías/Componentes (https://gambas-es.org/forumdisplay.php?fid=7)
+--- Tema: Extendiendo la clase File - BaseDir (/showthread.php?tid=343)



Extendiendo la clase File - BaseDir - tincho - 15-04-2021

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