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.