<%@ LANGUAGE = "VBScript" %> <% Dim Name Name = Request("Name") set fs=createobject("scripting.filesystemobject") MyFolder=server.mappath(""&name&"") If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder) End If If fs.folderexists(MyFolder) then %> Folder created successfully! Called <%=MyFolder%>
