Create Folder: Create a local or network folder.

' =============================================================
' function: FolderCreate
' desc    : Creates a folder
' params  : strFolderPath - the folder to create (full path)
' returns : void
' =============================================================
Function FolderCreate(strFolderPath)

 

Dim objFS

 

' create a file system object
Set objFS = CreateObject("Scripting.FileSystemObject")

 

' create the folder
If Not objFS.FolderExists(strFolderPath) Then

    objFS.CreateFolder strFolderPath
End If

 

' destroy the object
Set objFS = Nothing
   
End Function 'FolderCreate