+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Extendiendo la clase File - BaseDir (/thread-343.html)
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.
Código:
'' <b>RAD Extension.</b><br>
'' 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"
Static Public Function BaseDir(Path As String) As String
Dim strBase As String
Dim stx As New String[]
If InStr(Path, "/") > 0 Then
stx = Split(Path, "/")
strBase = stx[stx.Max]
Endif
Return strBase
End