Здравствуйте, помогите с созданием новой папки для дальнейшего сохранения в нее файла после слияния с word. Необходимо чтобы папка создавалась в папке с файлом access.

Сделал по примеру с сохранением в определенной директории на жестком диске. Работает:

Private Sub FOLD_Click()

Const sDir = "E:\TEST\"
Dim s$
s = Trim(ФИО) & "_" & Trim(ДАТА)
If Len(s) = 0 Then
ElseIf Len(Dir(sDir & s, vbDirectory)) = 0 Then
MKDIR sDir & s
End If

End Sub

Попытался сделать аналогично но с сохранением в папке с файлом Access. Не работает(. Выдает ошибку constant expression required

Private Sub FOLD_Click()

Const sDir = CurrentProject.Path & "\TEST\"
Dim s$
s = Trim(ФИО) & "_" & Trim(Дата)
If Len(s) = 0 Then
ElseIf Len(Dir(sDir & s, vbDirectory)) = 0 Then
MKDIR sDir & s
End If

End Sub

Подскажите где ошибка

http://www.sql.ru/forum/1102646/sozdanie-papki-v-currentproject-path