Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Crear Directorios Recursivamente
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Crear Directorios Recursivamente 
 
Me ha surgido la necesidad de crear un directorio dentro de otro directorio dentro de otro directorio inexistente, porque así lo había tecleado el usuario.
El comando de gambas mkdir no vale directamente porque necesita que exista el directorio padre donde crear el nuevo.
El mkdir del shell también tiene esa limitación.
Así que he hecho esta pequeña funcioncita que me saca del apuro, teclee el usuario lo que teclee... y que tenga permisos para ello claro.

Public Function addDir(cpath As String) As Boolean
    
    Dim ar As String[]
    Dim s As String
    Dim n As Integer
    
    ar = Split(cpath, "/")
    If ar[0] = "" Then ar[0] = "/"
    For n = 0 To ar.Max
        s = s &/ ar[n]
        If Not Exist(s) Then
            Mkdir s  
        Endif
    Next
    Return True
    
Catch
    
    Print Error.text, Error.Where
    Return False    

End
 


Me ha hecho gracia porque es una de las pocas funciones que las escribes de tirón y funcionan a la primera, sin corregir nada...    
Saludos
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Crear Directorios Recursivamente 
 
Citar:

El mkdir del shell también tiene esa limitación.

Ejem, ejem...
mkdir dir1/dir2/dir3 -p
 

No olvides instalar este comando, para ver el arbol.
tree
 

 arboldir

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Crear Directorios Recursivamente 
 
Citar:

Ejem, ejem...

mkdir dir1/dir2/dir3 -p
 


Podría decir: Es que así sólo se usa gambas y es más puro
O podría decir: Me gusta hacer mis propias herramientas.
Pero voy a decir: Fuá, otra vez inventando la rueda...

 
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Crear Directorios Recursivamente 
 
shordi escribió: [Ver mensaje]

Pero voy a decir: Fuá, otra vez inventando la rueda...
 

Un buen maestro me dijo un día:
Citar:

Eso me pasa muy a menudo pero aprendí hace tiempo a utilizar todas las herramientas que estén a mi disposición... siempre que no interfieran en mi planteamiento.

Solo recuerda que...

"Todos los caminos conducen a Roma".
¿ Si todos los caminos conducen a Roma ?.¿ Cómo co.. se sale de Roma ?!!

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Borrar Recursivamente drjuano Aplicaciones/Fragmentos de Código 14 Viernes, 19 Abril 2013, 20:19 Ver último mensaje
drjuano
No hay nuevos mensajes Actualizar Colección Recursivamente Shell General 6 Jueves, 30 Junio 2016, 23:46 Ver último mensaje
Shell
No hay nuevos mensajes Listar Todos Los Archivos De Una Carpeta Y... v3ctor General 9 Miercoles, 06 Julio 2016, 18:50 Ver último mensaje
shordi
No hay nuevos mensajes Gambas 3.9. Problema En El Arbol De Direct... Shell General 1 Lunes, 05 Septiembre 2016, 00:23 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

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



  

 

cron