Problemas al crear carpetas con vba access
Quiero crear carpetas con el siguiente código, pero me salta el error 76, no se ha encontrado la ruta de acceso. Agradecería que alguien me pudiese decir donde está el error.
Dim Path As String, NombreCarpeta As String Path = CurrentProject.Path Max = "\" & [Apellidos] & ", " & [Nombre] If Nz(Max, "") = "" Then Exit Sub End If NombreCarpeta = "\" & c_escolarproximo & Max 'Verificamos si la carpeta existe ya... If Dir(Path, vbDirectory) <> "" Then 'Comprueba que la carpeta no existe para crearla. If Dir(Path & NombreCarpeta, vbDirectory) = "" Then MkDir Path & NombreCarpeta 'MkDir se emplea para crear un directorio/carpeta. 'Si no se especifica la unidad de disco, el directorio/carpeta se crea en la unidad actual. End If Shell "explorer " & Path & NombreCarpeta, vbNormalFocus
"c_escolarproximo" es una función que me devuelve el curso escolar próximo
1 respuesta
Respuesta de Eduardo Pérez Fernández
1