Pedro Her

Sveinbjorn El Rojo respondió: Prueba algo más simple: Private Sub Comando38_Click() On Error Resume Next Dim laRuta As String laRuta=Buscar_Carpeta("Seleccione o cree una carpeta") laRuta=laRuta & "\" & Me.NumArticulo MkDir laRuta End Sub Si la carpeta existe, saltará un error...

Julián González Cabarcos respondió: La primera parte la he entendido. Lo del autonumérico puedes hacerlo( sin saber como tienes construido el formulario): 1º Si no vas a borrar registros puedes poner en el evento al activar el registro del formulario If isnull([NumArchivo]) then...