Create folders

[slimjen]

All, using Access 2016. I have about 800 folders to create on a shared drive for audit purposes. The list is in an excel spreadsheet. I was thinking I could import the list to an access table n use code to create the folders. can anyone suggest code to create folders on a shared drive from a table?

[ranman256]

usasge: MakeDir "\\server\folder\new folder"

Public Sub MakeDir(ByVal pvDir)
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(pvDir) Then FSO.CreateFolder pvDir     'MkDir pvDir


Set FSO = Nothing
End Sub

[slimjen]

Thanks so much!!!