06-17-2013, 08:34 PM
try this:
Code:
CreateFolderDemo()
Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder") ' here put the path and name
CreateFolderDemo = f.Path
End Function