Criando PASTAS + ASP

[Eduardo Villa 2]

E ai Galera Imaster, td bem???

Bom estou montando uma geleria de fotos, mas estou tendo um pequeno problema.

 

No formulário tem TextField chamado URL e qdo ele é preenchido, será criada uma pasta dentro de outra pasta chamada GALERIA...

Ex:

-[Galeria]

-[ Nome da URL]

foto1.jpg

foto2.jpg

foto3.jpg

foto4.jpg

 

Achei este código, mas não estou conseguindo fazer funcionar junto com o formulário...

<% 
Dim minha_pasta, objFS
	   minha_pasta = Request.Form("videogame")
	   Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	   If Not objFS.FolderExists(Server.MapPath( minha_pasta) ) Then
	   objFS.CreateFolder(Server.MapPath(images/hardwares/minha_pasta) )
	   Response.Write ""
	   End if
	   Set objFS = Nothing
 %>

Alguém poderia me explicar, por favor....

Aguardo resposta

Dudesigner

[Mário Monteiro 179]

qual éo seu problema exatamente? cirar as pastas?

[Eduardo Villa 2]

Estou postando o código para ajudar....

 

Subcategoria.asp

<form method="post" id="form1" action="<%= KT_escapeAttribute(KT_getFullUri()) %>">
			  <table align="center" cellpadding="2" cellspacing="0" class="KT_tngtable">
				<tr>
				  <td class="KT_th"><label for="idcategoria">Categoria:</label></td>
				  <td><select name="idcategoria" id="idcategoria">
					<%
While (NOT categoria.EOF)
%><option value="<%=(categoria.Fields.Item("idcategoria").Value)%>" <%If (Not isNull(KT_escapeAttribute((categoria.Fields.Item("categoria").Value)))) Then If (CStr(categoria.Fields.Item("idcategoria").Value) = CStr(KT_escapeAttribute((categoria.Fields.Item("categoria").Value)))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(categoria.Fields.Item("categoria").Value)%></option><%
  categoria.MoveNext()
Wend
If (categoria.CursorType > 0) Then
  categoria.MoveFirst
Else
  categoria.Requery
End If
%>
					</select>
				  <%=(tNGs.displayFieldHint("idcategoria"))%> <%=(tNGs.displayFieldError("subcategoria", "idcategoria"))%> </td>
				</tr>
				<tr>
				  <td class="KT_th"><label for="subcategoria">Subcategoria:</label></td>
				  <td><input type="text" name="subcategoria" id="subcategoria" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("subcategoria").Value))%>" size="50" />
					  <%=(tNGs.displayFieldHint("subcategoria"))%> <%=(tNGs.displayFieldError("subcategoria", "subcategoria"))%> </td>
				</tr>
				<tr>
				  <td class="KT_th"><label for="titulo">Titulo:</label></td>
				  <td><input type="text" name="titulo" id="titulo" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("titulo").Value))%>" size="50" />
					  <%=(tNGs.displayFieldHint("titulo"))%> <%=(tNGs.displayFieldError("subcategoria", "titulo"))%> </td>
				</tr>
				<tr>
				  <td class="KT_th"><label for="descricao">Descricao:</label></td>
				  <td><textarea name="descricao" id="descricao" cols="50" rows="5"><%=(KT_escapeAttribute(rssubcategoria.Fields.Item("descricao").Value))%></textarea>
					  <%=(tNGs.displayFieldHint("descricao"))%> <%=(tNGs.displayFieldError("subcategoria", "descricao"))%> </td>
				</tr>
				<tr>
				  <td class="KT_th"><label for="url_subcategira">URL:</label></td>
				  <td><input type="text" name="url_subcategira" id="url_subcategira" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("url_subcategira").Value))%>" size="40" />
					  <%=(tNGs.displayFieldHint("url_subcategira"))%> <%=(tNGs.displayFieldError("subcategoria", "url_subcategira"))%> </td>
				</tr>
				<tr>
				  <td class="KT_th"><label for="status">Status:</label></td>
				  <td><select name="status" id="status">
					  <option value="sim" <%If (Not isNull((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then If ("sim" = CStr((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then Response.Write("SELECTED") : Response.Write("")%>>Sim</option>
					  <option value="nao" <%If (Not isNull((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then If ("nao" = CStr((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then Response.Write("SELECTED") : Response.Write("")%>>Não</option>
					</select>
					  <%=(tNGs.displayFieldError("subcategoria", "status"))%> </td>
				</tr>
				<tr class="KT_buttons">
				  <td colspan="2"><input type="submit" name="KT_Insert1" id="KT_Insert1" value="Cadastrar" /></td>
				</tr>
			  </table>
			</form>

O formulário é este, agora eu preciso que o nome digitado no TEXTFIELD vire o nome da pasta a ser criada...

Para que quando eu for inserir as fotos por outro formulário, UP dentro da pasta criada(mas isso eu até sei)... So não estou conseguindo fazer a criação da pasta dentro da pasta GALERIA no servidor...

 

Aguardo Resposta

Valew pela Atenção

Dudesigner

[Mário Monteiro 179]

Nao vi onde tentou criar a pasta neste seu codigo

[Eduardo Villa 2]

E ai Mário Monteiro, td bem???

Então este código eu achei em um site, segui todas as instruções pedidas, mas no final deu certo... Ele salva no banco, mas não cria a pasta pedida.

O meu problema é fazer a criação da pasta através do formulario postado acima...

 

Obrigado pela atenção

Aguardo Resposta

Dudesigner

Abraço

[Mário Monteiro 179]

mas para criar a pasta basicamente é colocar o codigo que cria

 

está dando algum erro com isso?

 

voce deu as permissoes para esta criação?

[Eduardo Villa 2]

O erro que esta dando é:

Server.MapPath() error 'ASP 0171 : 80004005'

 

Missing Path

 

../subcategoria.asp, line 386

 

The Path parameter must be specified for the MapPath method.

 

E a linha 386:

<%

Dim url_subcategira, objFS

url_subcategira = Request.Form("url")

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

If Not objFS.FolderExists(Server.MapPath( url_subcategira) ) Then objFS.CreateFolder(Server.MapPath(imagens/galeria/url_subcategira) )

Response.Write ""

End if

Set objFS = Nothing

%>

[Mário Monteiro 179]

o servidor nao permite que volte pastas com o ..

 

tem que por o caminho completo a partir da raiz

[Eduardo Villa 2]

Esta minha ideia de criar pasta, não deu muito certo no meu código...

Mas mesmo assim valew pela ajuda de todos