Sección de códigos , trucos y ejemplos para visual basic

236 - Crear un directorio con varios niveles

Contenido:

Ejemplo 1 - Con a función MkDir de vb
Ejemplo 2 - Con la función Api MakeSureDirectoryPathExists
Enlaces relacionados

Ejemplo 1 - Con la función nativa de Visual basic MkDir

Rutina que utiliza la función de vb MkDir en un bucle y un vector, para crear una carpeta con varios niveles de una solo ves

El ejemplo desgloza un path mediante la función Split. Luego recorre cada uno y los va creando, y antes comprobando que no existan para que no genere un error.

Controles

Colocar un Command1. Al presionar el botón se abre un InputBox donde se debe especificar la ruta.

Código fuente en el formulario

Private Sub Command1_Click() On Error GoTo ErrSub Dim i As Integer Dim Array_Dir As Variant Dim Sub_Dir As String Dim El_Path As String El_Path = InputBox(" Escribir la ruta del directorio a crear " & _ "con los subdirectorios", _ " Crear varios niveles de directorios") If El_Path = vbNullString Then Exit Sub End If 'Desglosa el path y llena el array con los _ subdirectorios que se irán creando Array_Dir = Split(El_Path, "\") El_Path = vbNullString 'Recorre el vector anterior para ir creando uno por uno _ comenzando obviamente desde el directorio de primer nivel For i = LBound(Array_Dir) To UBound(Array_Dir) Sub_Dir = Array_Dir(i) If Sub_Dir <> vbNullString Then El_Path = El_Path & Sub_Dir & "\" If Right$(Sub_Dir, 1) <> ":" Then ' Verificamos que no exista If Dir(El_Path, vbDirectory) = vbNullString Then 'Crea la carpeta Call MkDir(El_Path) End If End If End If Next MsgBox " Directorio creado ", vbInformation 'Error Exit Sub ErrSub: MsgBox "Número de error: " & Err.Number & _ "Descripción del error: " & Err.Description, vbCritical End Sub

Ejemplo 2 - Utilizando la función MakeSureDirectoryPathExists

Este otro código , extraído de la ApiGuide, es una forma que permite, al igual que en el caso anterior, crear y generar un directorio x que contiene varios niveles de directorios utilizando una sola línea de código. El uso de la función es muy simple, solo requiere como parámetro, una cadena con el path con múltiples directorios a crear, por ejemplo:

Call MakeSureDirectoryPathExists("c:\a\b\c\d")

Notas Importantes. Aqui se añadió una simple función de ajuste en base al ejemplo del Apiguie. La función comprueba dos cosas. Una es que el directorio no exista previamente antes de crearlo, es decir si se intenta generar exactamente el mismo path, la función de ajuste retornará False. También comprueba que , el parámetro con la ruta, contenga la barra separadora de path al final, ya que si no la función Api Falla y no crea el directorio. Otra cosa importante es que, por ejemplo si tenemos el directorio

c:\Carpeta 1\Carpeta2\Carpeta 3\

y se intenta crear ahora el directorio

c:\Carpeta 1\Otra carpeta\Carpeta2\Carpeta 3\

Al ejecutar la función MakeSureDirectoryPathExists, esta, al crear el directorio c:\Carpeta 1\Otra carpeta\Carpeta2\Carpeta 3\, no eliminará el directorio c:\Carpeta 1\Carpeta2\Carpeta 3\, si no que se creará manteniendo el anterior, es deicir tendremos ahora dos directorios: "c:\Carpeta 1\Carpeta2\Carpeta 3\" y "c:\Carpeta 1\Otra carpeta\Carpeta2\Carpeta 3\"

Código fuente en el Forms

Option Explicit ' -- Simple implementación de la función MakeSureDirectoryPathExists, basada en el ejemplo base del Apiguide -- www.mentalis.org/agnet/apiguide.shtml ' -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' --------------------------------------------------------------------------------------------------------------------------------------------------- ' -- Declaraciones Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long ' ----------------------------------------------------------------------------------------- ' \\ -- Inicio -- Ejecutar la función para crear el directorio de múltiples niveles ' ----------------------------------------------------------------------------------------- Private Sub Form_Load() Dim bRet As Boolean ' -- Crear un directorio de ejemplo -- Retorna True bRet = Create_Directory("c:\carpeta 1\directorio\otro directorio mas") If bRet Then MsgBox "Ok. directorio creado correctamente", vbInformation Else MsgBox "No se pudo crear el directorio. Compruebe que ya no existia el directorio antes de crearlo y que el nombre del directorio no incluya caracteres no permitidos", vbExclamation End If End Sub ' ----------------------------------------------------------------------------------------- ' \\ -- Función de ajuste para ejecutar MakeSureDirectoryPathExists y poder crear los directorios+Subdirectorios ' ----------------------------------------------------------------------------------------- Private Function Create_Directory(ByVal sDirPath As String) As Boolean On Error GoTo error_Handler If Right(sDirPath, 1) <> "\" Then sDirPath = sDirPath & "\" ' -- Linea de código Opcional para Comprobar previamente si el path ya existe If Len(Dir(sDirPath, vbDirectory)) = 0 Then Call MakeSureDirectoryPathExists(sDirPath) Create_Directory = CBool(Len(Dir(sDirPath, vbDirectory))) End If ' -- Errores Exit Function error_Handler: End Function

Recursos vb6 - Enlaces relacionados

Recursos vb.net - enlaces relacionados

ejemplos varios sobre Archivos y directorios en Visual basic.NET

Buscar en Recursos vb