Criar pasta no servidor

[bydumoraes 0]

Com a ajude de nosso amigo Pacola consegui fazer criar a bendita da pasta:

 

 

fazem o seguinte

 

cirar.asp

 

(...)

 

<form method="POST" action="diretorio.asp"><p>Criar diretorio</p><p><input type="text" name="minhapasta" size="20"></p><p><input type="submit" value="Submeter" name="B1"></p></form>

(...)

 

 

 

diretorio.asp

 

<%minhapasta= request.form("minhapasta")Set objFS = Server.CreateObject("Scripting.FileSystemObject")' verifica se ja existe a pasta no servidorIf Not objFS.FolderExists(Server.MapPath(minhapasta) ) Then' se naum existir cria a pasta' tem que especificar o caminho ou ele cria na raizobjFS.CreateFolder(Server.MapPath(minhapasta) )' se estiver tudo ok mostra mensagem de sucesso.Response.Write "A pasta foi criada com sucesso"End ifSet objFS = Nothing%>

 

tai com ajuda a gente sempre consegue, grato ao nosso amigo Pacola !

 

Qualquer alteracoes que for feita por gentileza mandem pra mim, pois assim que eu alterar algo postarei no forum.

 

 

Luciano moraes

[Duds 0]

Olá...

 

Inseri alertas neste código. Se o diretório existir, ele alerta sobre isto. Caso contrário, mostra que o diretório foi cadastrado com sucesso

 

 

<%<BR><BR>minhapasta= request.form("minhapasta")<BR><BR>Set objFS = Server.CreateObject("Scripting.FileSystemObject")<BR><BR>' verifica se ja existe a pasta no servidor<BR><BR>If Not objFS.FolderExists(Server.MapPath(minhapasta) ) Then<BR><BR>' se naum existir cria a pasta<BR>' tem que especificar o caminho ou ele cria na raiz<BR><BR>objFS.CreateFolder(Server.MapPath(minhapasta) )<BR><BR>' se estiver tudo ok mostra mensagem de sucesso.<BR><BR><BR>%><BR><BR><script language=javascript><BR>alert("Diretório criado com sucesso!");<BR>window.history.go(-1);<BR></script><BR><BR><%<BR>else<BR>%><BR><BR><script language=javascript><BR>alert("Diretório ja cadastrado. Tente novamente.");<BR>window.history.go(-1);<BR></script><BR><BR><%<BR>End if<BR>Set objFS = Nothing<BR><BR>%><BR>