<%
Option Explicit
Dim objFileSys
Dim TheNewFolder
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheNewFolder =
objFileSys.CreateFolder("c:\inetpub\wwwroot\myfolder")
%>
