Okay I have been working on this for two weeks and even though it cheats I finally got this to work and wanted to post it should anyone ever want to use it.
Code:
Private Sub Command152_Click()
Dim LFolderpath As String
Dim LResponse As String
On Error GoTo NFolder
LFolderpath = CurrentProject.Path & "\digitalfiles\" & [Last Name] & "_" & [First Name] & "_" & [ID]
If Len(Dir("LFolderpath", vbDirectory)) = 0 Then
Application.FollowHyperlink LFolderpath
End If
Exit Sub
NFolder:
LResponse = MsgBox("Folder doesnt exist for " & [Last Name] & ", " & [First Name] & ". Would you like to create a new folder?", vbYesNo)
If LResponse = "6" Then
MkDir LFolderpath
Application.FollowHyperlink LFolderpath
Else
MsgBox ("No folder created and no folder exists")
End If
End Sub