Merhaba,
Uygulama ile aynı dizine arşiv isimli klasör oluşturmak için gerekli kod,

GDizin = CurrentProject.Path & "\" & "arşiv\"

GKlasor = Len(Dir(GDizin, vbDirectory))



If GKlasor = 0 Then

MkDir GDizin

End If

Oluşturulan arşiv klasörüne yeni veritabanı eklemek için

Dim dbNew As DAO.Database

Set dbNew = CreateDatabase(CurrentProject.Path & "\" & "arşiv\" & "Veritabani.accdb", dbLangGeneral)

kodunu kullanman gerekli.