Aplicaciones/Fragmentos de Código :: Directorio Padre De Otro Directorio

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Sabado, 27 Abril 2024, 10:08 • Todas las horas son UTC + 1 Hora

Directorio Padre De Otro Directorio

Página 1 de 1

Directorio Padre De Otro Directorio

Autor

Mensaje

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Directorio Padre De Otro Directorio

Hola a todos.

Estoy intentando obtener el directorio inmediatamente superior de un directorio dado.

File.Dir("/ruta/a/unarchivo.txt") me devuelve "/ruta/a/", el directorio que contiene al archivo "unarchivo.txt" pero... ¿Como se hace con un directorio?

Saludos.

#1 Lunes, 03 Abril 2017, 17:42

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Re: Directorio Padre De Otro Directorio

Tincho:

Citar:
Estoy intentando obtener el directorio inmediatamente superior de un directorio dado.

Puedes hacer esto:

Código: [Descargar] [Ocultar] [Seleccionar]

RutaPadre= Mid$(RutaHijo, 1, RInStr(RutaHijo, "/"))

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

#2 Lunes, 03 Abril 2017, 19:32

vuott

Analista Programador

Registrado: Agosto 2013
Mensajes: 2086
Edad: 60
Ubicación:

Re: Directorio Padre De Otro Directorio

Sólo por curiosidad, es posible utilizar la función externa "dirname( )" de la libreria libc.so.6.

Exemplum simplex:

Código: [Descargar] [Ocultar] [Seleccionar]

Library "libc:6"

' char *dirname (char *__path)
' Return directory part of PATH or "." if none is available.
Private Extern dirname(__path As String) As String

Public Sub Main()

Dim s As String

  s = dirname("/dev/snd")

  Print s

End

#3 Lunes, 03 Abril 2017, 19:54

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Re: Directorio Padre De Otro Directorio

Bueno de momento hice esta funcion.

Código: [Descargar] [Ocultar] [Seleccionar]

Public Function DirParent(strPath As String) As String  ''Devuelve el directorio padre de otro que se pasa como parámetro.

  Dim strParent As String
  Dim intLast As Integer

  If strPath <Then> 1 Then
      If String.Right(strParent) = "/" Then
        strParent = String.Mid(strParent, 1, String.Len(strParent) - 1)

      Endif
    Endif
  Endif

  If Exist(strParent) = False Then
    strParent = "-1"
  Else
    If Stat(strParent).Type <> gb.Directory Then
      strParent = "-1"
    Endif
  Endif

  Return strParent

End

Saludos.

#4 Lunes, 03 Abril 2017, 21:15

shordi

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64
Ubicación:

Albacete

Re: Directorio Padre De Otro Directorio

Otra forma:

Código: [Descargar] [Ocultar] [Seleccionar]

Padre=(split(mipath, "/")[Split(mipath, "/").Max - 1]

y otra (ésta para un path que incluya nombre de fichero):

Código: [Descargar] [Ocultar] [Seleccionar]

Padre = File.Dir(File.Dir(mipath))

Sólo por liarla un poco más.

===================
No podemos regresar

última edición por shordi el Martes, 04 Abril 2017, 08:19; editado 4 veces

#5 Martes, 04 Abril 2017, 08:14

v3ctor

Analista Programador

Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación:

Uruguay

Re: Directorio Padre De Otro Directorio

vuott escribió: [Ver mensaje]
Sólo por curiosidad, es posible utilizar la función externa "dirname( )" de la libreria libc.so.6.

Exemplum simplex:

Código: [Descargar] [Ocultar] [Seleccionar]
Código: [Descargar] [Mostrar]
Library "libc:6"

' char *dirname (char *__path)
' Return directory part of PATH or "." if none is available.
Private Extern dirname(__path As String) As String

Public Sub Main()

Dim s As String

  s = dirname("/dev/snd")

  Print s

End

excelente ejemplo!

===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible

Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/

#6 Martes, 04 Abril 2017, 10:05

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Re: Directorio Padre De Otro Directorio

Hola a todos.

He recopilado todas la propuestas y las puse en un ejemplo para ver las diferentes maneras de hacer lo mismo.
Finalmente, me parece que la opción optima es:

Código: [Descargar] [Ocultar] [Seleccionar]

File.Dir(strPath)

Debido a que, ademas de ser la mas simple, es una función gambas. Yo pensé que al pasarle un directorio a la función File.Dir esta no me lo reconocería como archivo y punto, pero se ve que trabaja tanto con un nombre de archivo como con un nombre de directorio.

Saludos.

ejemplo-ruta-de-directorio-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	ejemplo-ruta-de-directorio-0.0.1.tar.gz
Tamaño:	68.61 KB
Descargado:	26 veces

ejemplo-ruta-de-directorio-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	ejemplo-ruta-de-directorio-0.0.1.tar.gz
Tamaño:	68.61 KB
Descargado:	26 veces

ejemplo-ruta-de-directorio-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	ejemplo-ruta-de-directorio-0.0.1.tar.gz
Tamaño:	68.61 KB
Descargado:	26 veces

#7 Miercoles, 05 Abril 2017, 16:32

shordi

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64
Ubicación:

Albacete

Re: Directorio Padre De Otro Directorio

Haberlo dicho... yo creí entender que lo que buscabas era el directorio "abuelo", es decir el directorio padre de un directorio...

Efectivamente file.Dir es lo correcto, como file.name te da el nombre

===================
No podemos regresar

#8 Miercoles, 05 Abril 2017, 17:17

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Archivos De Directorio En ListView	techm3	General	2	Jueves, 17 Junio 2010, 00:06 abarzuaf
Abrir Directorio Y Que No Sea Con Nautilus?	Agamenon	General	9	Sabado, 07 Abril 2012, 16:06 Agamenon
Directorio Del Proyecto	Shell	General	5	Lunes, 05 Junio 2017, 10:02 tincho
Seleccionar Más De Un Directorio	Shell	General	7	Lunes, 25 Septiembre 2017, 08:10 Shell

Página 1 de 1

Fecha y hora actual: Sabado, 27 Abril 2024, 10:08 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.8267s (PHP: -83% SQL: 183%)
Consultas SQL: 48 - Debug off - GZIP Activado

Design by Mighty Gorgon