Create folders in a specific directory

[Gina Maylone]

Hello all,



I am doing some serious mental gymnastics and have read so many posts regarding mkdir and strpath and am completely confused at this point. I need to create several folders within a directory (on a network drive no less), which I did successfully initially using this code:

On Error GoTo Err_Command1043_Click
Me.JobID = "E" & Format(Now, "yy") & "-" & Me.JobNum
Dim addr As String
addr = "E:"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_CommandSaveRecord_Click:
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME]
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Proposals"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Estimates"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Sheetmetal _Take_Off"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Drawings"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Specifications"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Addendums"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\AddendumDrawings"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\RFIs"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Miscelleneous"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Vendors"
MkDir addr & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Subcontractors"

    If Me.Dirty Then Me.Dirty = False
   
    Exit Sub
Err_Command1043_Click:
    If Me.Dirty Then Me.Dirty = False
    'MsgBox Err.Description
    'Resume Exit_CommandSaveRecord_Click
    Exit Sub
End Sub

But now I need to create these files within the current year's directory for each year. Currently trying this (reader's digest version)

targetpath = Me.saveto (***this is just a string expression from my form***)
MkDir targetpath & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME]
MkDir targetpath & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Proposals"
MkDir targetpath & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Estimates"

I end up with "2015E15- Jane Street - Phase 2" Where it should be "E:\2015\E15-Jane Street - Phase 2"

I can see why it doesn't work, but I cannot see the solution. Can someone straighten me out please?

Thank you in advance!

[Gina Maylone]

Oh my goodness! I just figured it out. Nevermind. Thanks anyway.

MkDir targetpath & "\" & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME]
MkDir targetpath & "\" & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Proposals"
MkDir targetpath & "\" & [Forms]![currentjobs]![JobID] & " " & [Forms]![currentjobs]![JOB NAME] & "\Estimates"