Vale, acabo de crear las carpetas, ahora me surje una nueva duda, que hago para comprobar si esa carpeta existe o no??

Ya que si NO existe la creo y si ya existe no hago nada.

Ruta = "c:\Intervenciones\"
If DirExist = Ruta & txtCodInter.Text Then
MsgBox "La carpeta ya existe"
Else
Nombre = txtCodInter.Text
Ruta = Ruta & Nombre
Dir.CreateFolder (Ruta)
ADODCBK.Recordset.Fields("Anexos") = Ruta
End If

Sin embargo, la carpeta existe y siempre me entra en el ELSE (y la carpeta ya existe ) y claro, el programa falla, mientras busco x otro lado a ver si alguien me puede exar un cable.

Nuevamente, Saludos!

Una vez mas, acabo de dar con la solucion a mi problema XD

Ruta = "c:\Intervenciones\"
If Dir.FolderExists(Ruta & txtCodInter.Text) Then
MsgBox "La carpeta ya existe"
Else
Nombre = txtCodInter.Text
Ruta = Ruta & Nombre
Dir.CreateFolder (Ruta)
ADODCBK.Recordset.Fields("Anexos") = Ruta
End If

Recurriendo al Objeto FileSystemObject (pa varia). Espero que ayude este post a gente q le ocurran las mismas dudas q a mi XD