Başka bir yoldan çözüm altta.
Dim fso As Object, yol As String
Set fso = CreateObject("scripting.filesystemobject")
yol = CurrentProject.Path & "\YEDEKLER"
If Not fso.FolderExists(yol) Then fso.createfolder (yol)
Set fso = Nothing: yol = vbNullString