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.
Saludos
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Última modificación: 05-06-2022, 20:16 por tincho.
1 Saludo.