Use the following snippet. Before executing the code, make sure that you have write permission.
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists("c:\website\") Then
filesys.CreateFolder ("c:\website\")
End If
source
share