<%
dim filesys, newfolder, newfolderpath
newfolderpath = "c:\DevGuru\myfolder"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(newfolderpath) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
Response.Write("A new folder has been created at: " & newfolderpath)
End If
%>

Output:
"A new folder has been created at: c:\DevGuru\myfolder"

---