Приветствуй всех!
Составил код удаления папки из директории, где расположен файл БД.

Dim fso As Object
Dim Dirr As String
Set fso = CreateObject("Scripting.FileSystemObject")
Dirr = "(CurrentProject.Path &" \ "& [Фамилия] & [Код_лица])"
fso.DeleteFolder Dirr, True

Но что-то не так в синтаксисе. Подсвечивает строку Dirr = ...
Не могу понять что не нравится. Подскажите, пожалуйста!

http://www.sql.ru/forum/1302180/udalenie-papki-iz-currentproject-path