How to Create New folder using FileSystemObject

Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "c:\New Folder"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo strDirectory & " created successfully."
WScript.Quit