Criação de pasta – Createfolder – FileSystemObject

Nesse script é mostrado como se cria uma pasta no servidor em que está a aplicação. O caminho está apresentado como físico, mas também pode ser alterado para relativo por meio do (Server.Mappath)

*´¨) AN-ICE
¸.•´¸.•*´¨) ¸.•*¨)
(¸.•´ (¸.•` * ANGELO JÚNIOR (.)(.)

'Arquivo ASP (default.asp)

<html><title>.:: C&oacute;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
%>

Qual é a sua opinião ou dúvida?