Cómo Verificar y Crear Carpetas en VB.NET - Guía Completa
Método Básico
La forma más sencilla de verificar y crear un directorio en VB.NET:
If Not Directory.Exists(rutaDirectorio) Then
Directory.CreateDirectory(rutaDirectorio)
End If
La forma más sencilla de verificar y crear un directorio en VB.NET:
If Not Directory.Exists(rutaDirectorio) Then
Directory.CreateDirectory(rutaDirectorio)
End IfFunción Reutilizable
Crear un método reusable para verificar y crear carpetas:
Public Sub VerificarYCrearCarpeta(ByVal rutaDirectorio As String)
' Verificar si la carpeta existe, sino crearla
If Not Directory.Exists(rutaDirectorio) Then
Try
Directory.CreateDirectory(rutaDirectorio)
Console.WriteLine($"Carpeta creada exitosamente: {rutaDirectorio}")
Catch ex As UnauthorizedAccessException
Console.WriteLine("Error: No tiene permisos para crear la carpeta.")
Catch ex As ArgumentException
Console.WriteLine("Error: La ruta contiene caracteres no válidos.")
Catch ex As Exception
Console.WriteLine($"Error inesperado: {ex.Message}")
End Try
Else
Console.WriteLine($"La carpeta ya existe: {rutaDirectorio}")
End If
End Sub
Crear un método reusable para verificar y crear carpetas:
Public Sub VerificarYCrearCarpeta(ByVal rutaDirectorio As String)
' Verificar si la carpeta existe, sino crearla
If Not Directory.Exists(rutaDirectorio) Then
Try
Directory.CreateDirectory(rutaDirectorio)
Console.WriteLine($"Carpeta creada exitosamente: {rutaDirectorio}")
Catch ex As UnauthorizedAccessException
Console.WriteLine("Error: No tiene permisos para crear la carpeta.")
Catch ex As ArgumentException
Console.WriteLine("Error: La ruta contiene caracteres no válidos.")
Catch ex As Exception
Console.WriteLine($"Error inesperado: {ex.Message}")
End Try
Else
Console.WriteLine($"La carpeta ya existe: {rutaDirectorio}")
End If
End SubFunción que Retorna Estado
Función que verifica/crea carpeta y retorna un estado booleano:
Public Function AsegurarCarpeta(ByVal rutaDirectorio As String) As Boolean
Try
If Not Directory.Exists(rutaDirectorio) Then
Directory.CreateDirectory(rutaDirectorio)
End If
Return True
Catch ex As Exception
Console.WriteLine($"Error al crear carpeta: {ex.Message}")
Return False
End Try
End Function
Función que verifica/crea carpeta y retorna un estado booleano:
Public Function AsegurarCarpeta(ByVal rutaDirectorio As String) As Boolean
Try
If Not Directory.Exists(rutaDirectorio) Then
Directory.CreateDirectory(rutaDirectorio)
End If
Return True
Catch ex As Exception
Console.WriteLine($"Error al crear carpeta: {ex.Message}")
Return False
End Try
End Function
Este comentario ha sido eliminado por el autor.
ResponderBorrarMe sirve bastante, muchas gracias. Una observación: El proceso tiene estructura de código en C# se ve en el comentario y en las llaves '{' '}'
ResponderBorrarIf Not FileIO.FileSystem.DirectoryExists(ruta) Then
ResponderBorrarFileIO.FileSystem.CreateDirectory(ruta)
End If
Me sirvió muchas gracias....
ResponderBorrar