[Help] How to create a new folder following client's name

[johnjo]

I want to make a button which automatically creates a new folder that its name is following the name of the client.
I put more details in the GG Drive link bcz the attached file size is 2MB > 500KB limit of the forum


Please take a look, thank you guys!

https://drive.google.com/file/d/1lZE...ew?usp=sharing

[June7]

Use MkDir command https://learn.microsoft.com/en-us/of...kdir-statement

Can attach a 2MB zip folder.

[Salty Mariner]

Something Like this;

Public Sub MakeFolder(strPath As String)
Dim strCName aAs String


	strCName = Me.txtClientName.Value 'Or where ever you choose to get the name from.
	MkDir strPath & "\" & strCName


End Sub

Adapt as needed to suit your DB.

[June7]

Possibly first check that folder doesn't already exist.

If Dir(strPath & "\" & strCName) = "" Then

[johnjo]

I'll try it, thank you both, June7 and Salty Mariner

[moke123]

As you'll no doubt learn, there are usually numerous ways to accomplish the same things in access.

June and Salty have the MkDir() and Dir() functions covered so I'll add the FileSystemObject Method.

I tend to use FSO when dealing with folders and files. There are a lot of helpful methods and properties. (FolderExists, FileExists, BuildPath, etc.)
https://learn.microsoft.com/en-us/of...mobject-object

The attached example will add a "Clients" folder in the application directory. You can enter a name and it will add a client folder named after the client in that Clients folder.
I added a list box to show all the client folders in the master client folder.
There is also a list box to show all the files in a selected clients folder.
In the demo I added a sub to create a text file within the clients folder. This is just to show the flexibility of FSO and demonstrate the file listbox.

note that I used late binding for the FSO object.

[Salty Mariner]

Moke, thank you for posting that example. That was outstanding!

I am saving your example as I can already see a use for some of the methods that you posted

Excellent work, Thank you.