VBA Code for Access to create and name a folder if it does not exist

If you happened to look at the question list, you would have seen my answer to the question immediately prior to yours.

https://www.experts-exchange.com/questions/29065725/How-create-a-folder-on-a-server-with-the-PK-as-the-folder-name.html

There is a simple and direct call for this.
Copy/paste into a new module:

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Public Sub CreatePath(ByVal Path As String)
    
    If Right(Path, 1) <> "\" Then
        Path = Path & "\"
    End If
    MakeSureDirectoryPathExists Path
    
End Sub

Select allOpen in new window

Then call:

CreatePath(Me!YourTextbox.Value)

Select allOpen in new window

/gustav

Nori

I have input this code but [unothing happens[/u] when I press the button that I put the code on.

The textbox is on the main form.

Nori

I was wrong, it did create the folder as requested.  

What I need the code to do now is if it finds it initially, I need it to open it.  

If it doesn't find it, I need it to create it and then open it.  

What can I add to the code to get it to open the folder if it exists or after it creates it.

You can use the function above. First call:

CreatePath Me!YourTextbox.Value

Select allOpen in new window

to create the path should it not exist.
Then use FileDialog to open the dialog window, like:

Private Sub txtTarget_DblClick(Cancel As Integer)

    Dim Dialog      As FileDialog
    
    Dim Selected    As Long
    
    Set Dialog = FileDialog(msoFileDialogSaveAs)
    With Dialog
        .AllowMultiSelect = False
        .InitialFileName = Nz(Me!txtTarget.Value)
        .Title = "Name saved file"
        Selected = .Show
        If Selected <> 0 Then
            Me!txtTarget.Value = .SelectedItems.Item(1)
        End If
    End With

End Sub

Select allOpen in new window

Thanks so much for your help!https://www.experts-exchange.com/questions/29065772/VBA-Code-for-Access-to-create-and-name-a-folder-if-it-does-not-exist.html#