Why doesn't this work?!

[adambedford]

I have a snippet of code thats meant to make a new folder within an Images folder which is located in the database workspace, but for some reason (I'm not quite sure why) it doesn't seem to work.

Could someone please help me out

Dim strProjectPath As String
Dim strImageFolder As String
Dim strVillaFolder As String
Dim strFullDire As String

strProjectPath = CurrentProject.Path
strImageFolder = "Images"
strVillaFolder = Me.v_Name
strFullDir = strProjectPath & strImageFolder & strVillaFolder
If Len(Dir(strFullDir, vbDirectory)) = 0 Then
MkDir strFullDir
End If

I want the folder to be named the same as one of the fields on the form (v_Name).

Thanks

 

[adambedford]

No worries. Done it now