Create Folder with sub folders - How To Relink Tables, Manage ODBC Connections, and Use File System Object for File IO in Microsoft Access


	Back to Access Developer 33 Lessons Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Create Folder with sub folders

Carl Bush

4 years ago

Hi Richard

I have used the code below in a button to create a folder on the hard drive when I add a new customer is it possible to create subfolders within that folder at the same time

Private Sub Command96_Click()
Dim FSO As New FileSystemObject
Dim FolderName As String
FolderName = Myfolder & (Forms!customerf.FirstName) & " " & (Forms!customerf.LastName)
If Not FSO.FolderExists(FolderName) Then
FSO.CreateFolder (FolderName)
End If
Set FSO = Nothing
End Sub

Regards

Carl

Adam Schwanz @Reply

4 years ago

Sure, should work to just run the code again after with a modified form name in the same button.

Dim FSO As New FileSystemObject
Dim FolderName As String
FolderName = Myfolder & (Forms!customerf.FirstName) & " " & (Forms!customerf.LastName)
If Not FSO.FolderExists(FolderName) Then
FSO.CreateFolder (FolderName)
End If
Set FSO = Nothing

Dim FSO2 As New FileSystemObject
Dim FolderName2 As String
FolderName2 = Myfolder & (Forms!customerf.FirstName) & " " & (Forms!customerf.LastName) & "\NewFolder"
If Not FSO2.FolderExists(FolderName2) Then
FSO2.CreateFolder (FolderName2)
End If
Set FSO2 = Nothing

	Carl Bush OP @Reply 4 years ago
Hi Adam thanks very much for your help that worked a treat I wanted a customer folder with 4 subfolders so just copied your code another 3 times it's probably not as elegant a solution as you or the great man would use but it works and I'm over the moon

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Developer 33 Lessons.

Next Unseen

New Feature: Comment Live View