<div>
If you happened to look at the question list, you would have seen my answer to the question immediately prior to yours. 
 
<a href="https://www.experts-exchange.com/questions/29065725/How-create-a-folder-on-a-server-with-the-PK-as-the-folder-name.html" rel="ugc">https://www.experts-exchange.com/questions/29065725/How-create-a-folder-on-a-server-with-the-PK-as-the-folder-name.html</a>
</div>

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

<pre><code class="code-10 nolinks" id="code-20-42350795-1">Private Declare Function MakeSureDirectoryPathExists Lib &quot;imagehlp.dll&quot; (ByVal lpPath As String) As Long

Public Sub CreatePath(ByVal Path As String)
 
 If Right(Path, 1) &lt;&gt; &quot;\&quot; Then
 Path = Path &amp; &quot;\&quot;
 End If
 MakeSureDirectoryPathExists Path
 
End Sub
</code></pre>
Then call: 
 

<pre><code class="code-1 nolinks" id="code-20-42350795-2">CreatePath(Me!YourTextbox.Value)
</code></pre>
/gustav
</div>

<div>
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.
</div>

<div>
Nori 
 
I was wrong, it did create the folder as requested. &nbsp; 
 
What I need the code to do now is if it finds it initially, I need it to open it. &nbsp; 
 
If it doesn't find it, I need it to create it and then open it. &nbsp; 
 
What can I add to the code to get it to open the folder if it exists or after it creates it.
</div>

<div>
You can use the function above. First call: 
 

<pre><code class="code-1 nolinks" id="code-20-42350911-1">CreatePath Me!YourTextbox.Value
</code></pre>
 
to create the path should it not exist. 
Then use <a href="https://www.experts-exchange.com/questions/29061306/MS-Access-Form-Upload-document-to-Sharepoint-form-Access-Form.html?anchorAnswerId=42328232#a42328232" rel="ugc">FileDialog</a> to open the dialog window, like: 
 

<pre><code class="code-10 nolinks" id="code-20-42350911-2">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 = &quot;Name saved file&quot;
 Selected = .Show
 If Selected &lt;&gt; 0 Then
 Me!txtTarget.Value = .SelectedItems.Item(1)
 End If
 End With

End Sub
</code></pre>
</div>

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

<div>
<div class="content wysiwyg-content">
I need VBA Code for Access to first check and see if a folder exists and if it does not then create and name it based on the number shown on a textbox on the main form.
</div>
</div>

I need VBA Code for Access to first check and see if a folder exists and if it does not then create and name it based on the number shown on a textbox on the main form.

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

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.