Access - Crear carpeta

Como creo una carpeta

Dim fso As New filesystemobject
Dim ruta As String

ruta = CurrentDb.Name 'en la variable ruta nos guardara el path de nuestra base de datos

fso.CreateFolder ("ruta" & "\copiacnl\") <----esto es incorrecto

como creo una carpeta dentro de ese path

quiero por ejemplo si esta localizada en

d:\hola\dsa.mdl

cree la carpeta hay
d:\hola\copia\

gracias

Para crear una carpeta dentro del directorio de la base de datos en Access, puedes utilizar el siguiente código en VBA:


Este código utiliza el objeto FileSystemObject de la biblioteca de scripting de Windows para crear la carpeta. Primero, se crea una instancia del objeto FileSystemObject mediante `CreateObject("Scripting.FileSystemObject")`. Luego, se obtiene la ruta de la base de datos actual y se concatena con el nombre de la carpeta que deseas crear. Finalmente, se llama al método `CreateFolder` del objeto FileSystemObject para crear la carpeta.

Asegúrate de ajustar la ruta de la base de datos y el nombre de la carpeta según tus necesidades.