'Arquivo ASP (default.asp)
<html><title>.:: Código Fonte ::.</title>
<body>
<form action="foldercriapasta.asp" method="post">
<table width="464" border="1" align="center">
<tr>
<td width="207"><div align="right">Nome da pasta: </div></td>
<td width="241"><input name="pasta" type="text" size="15" maxlength="15"></td>
</tr>
<tr>
<td colspan="2"><div align="center"><input type="submit" name="enviar"></div></td>
</tr>
</table>
</form>
</body>
</html>
' Arquivo ASP (foldercriapasta.asp)
<%
str_pasta = Request.form("pasta")
Set str_fso = CreateObject("scripting.FileSystemObject")
If (str_fso.FolderExists("c:\" & str_pasta &"")) Then
response.write "Esta pasta ja Existe !!!"
Else
Set userFolder = str_fso.Createfolder("c:\" & str_pasta &"")
Response.Write "Pasta criada com sucesso !!!"
End If
%>