Ir para conteúdo
Fórum Script Brasil
  • 0

Criação De Pastas

marcelolima

Perguntado por marcelolima,

 Share

Pergunta

marcelolima

marcelolima

Postado
Postado

Boa tarde gente...

É o seguinte... estou trabalhando numa inclusão de fotos e eventos...

A página de criação de eventos está funcionando direito.

Agora, preciso da inclusão de fotos nos eventos. Para isso, é preciso ter uma rotina para indicar a pasta onde será salvo... incluindo a opção de criação de pastas.

Daí a pessoa escolhe o evento onde ela quer incluir aquelas fotos, escolhe as fotos... e indica onde ela vai ficar gravada...

Espero que tenham entendido..

Abração e tudo de bom!

Link para o comentário
Compartilhar em outros sites

32 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Da uma olhada se te ajuda:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\intranet") ' coloque a pasta principal
Set pastas = principal.SubFolders
%>
<select size="1" name="Pasta">
<%For each pasta in pastas%>
    <option value="<%=pasta.name%>"><%=pasta.name%></option>
<%next%>
</select>

depois é só pegar o valor da pasta através de request.form("pasta") armazenar em uma session e usar na sua aplicação.

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

eu fiz assim:

criei uma pagina para criar um evento, ao criar este ele ia para o bd e criava uma pasta com o nome do evento.....

ai no upload para ele saber para quem mandar os arquivos....primeiro escolhia o evento e depois por querystring eu passav o nome da pasta!!!!

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

Olha meu código...

<%
    	if session("logado")= "" then
	response.redirect "index.asp?lcl=intro"
	end if
	if session("evento") < "2" then
	response.Redirect "index.asp?lcl=admineventos"
	end if
	cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
	DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
  
	Set Conn = Server.CreateObject("ADODB.Connection") 

	Conn.Open DataSource

	'Abre o Recordset
	Set Rs = Server.CreateObject( "ADODB.Recordset" )
	RS.ActiveConnection = Conn
	Set Rs=conn.execute("select * from fotos_eventos order by 2 ")
%>
<html>
<head>
<title>Intranet - Agência de Fomento de Goiás S/A</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
  </tr>

  <tr> 
    <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
    <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#3399CC"> 
          <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
              <span class="titulobranco">FOTOS - EVENTOS</span></strong></font></div></td>
        </tr>
      </table> 
      
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5" colspan="3" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td width="339" height="20" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;Escolha 
            o Evento</td>
          <td width="134" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
          <td width="122" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#ECF8FF"> 
          <td width="339" height="20" >&nbsp;<img src="imagens/tópico.gif" width="8" height="8"> 
            <select name="areaSol" id="areaSol">
              <%
    while Not Rs.EOF
    	Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>")
    Rs.MoveNext
    wend
    Response.Write("<option selected>---</option>")

   %>
            </select></td>
          <td width="134" class="texto">&nbsp;</td>
          <td width="60" bgcolor="#ECF8FF" class="texto">&nbsp;</td>
          <td width="62" class="texto">&nbsp;</td>
        </tr>
        <tr> 
          <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
      </table> 
            
      <table width="595" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td colspan="2" class="texto">LOCAL</td>
        </tr>
        <tr> 
          <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> 
              <%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base
Set pastas = principal.SubFolders
Set pasta = Request.QueryString("nome")
%>
              <%For each pasta in pastas%>
              <img src="../imagens/folder.gif" width="12" height="12"> <a href="index.asp?lcl=fotosnoevento&nome=<%=pasta.name%> "><%=pasta.name%></a> 
              <br>
              <%next%>
            </div></td>
        </tr>
        <tr>
          <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto">
              <form action="index.asp?lcl=upload&pasta="<%=Request.QueryString("pasta")%>" method="post" enctype="multipart/form-data">
                <span class="texto"><br>
                Arquivo 1: 
                <input type="file" name="txtArquivo1">
                <br>
                Arquivo 2: 
                <input type="file" name="txtArquivo2">
                <br>
                <input type="submit" name="cmdEnviar" value="Enviar">
                </span> 
              </form>
            </div></td>
        </tr>
        <tr> 
          <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Novo 
            Evento</a></strong></td>
        </tr>
        <tr> 
          <td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td>
          <td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="javascript:history.back();" class="link"> 
              Voltar</a></div></td>
        </tr>
      </table>
      <p></p></td>
  </tr>
</table>
</body>
</html>

Ele manda para um upload.asp... que tá dando erro!!!

Não tá passando o parâmetro pasta...

O que acham que tá acontecendo?

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

tenta isso:

<%
    if session("logado")= "" then
response.redirect "index.asp?lcl=intro"
end if
if session("evento") < "2" then
response.Redirect "index.asp?lcl=admineventos"
end if
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

'Abre o Recordset
Set Rs = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
Set Rs=conn.execute("select * from fotos_eventos order by 2 ")
%>
<html>
<head>
<title>Intranet - Agência de Fomento de Goiás S/A</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr> 
   <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
 </tr>

 <tr> 
   <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
   <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
       <tr bgcolor="#3399CC"> 
         <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
             <span class="titulobranco">FOTOS - EVENTOS</span></strong></font></div></td>
       </tr>
     </table> 
     
     <table width="595" border="0" cellspacing="0" cellpadding="0">
       <tr> 
         <td height="5" colspan="3" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
       </tr>
       <tr> 
         <td width="339" height="20" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;Escolha 
           o Evento</td>
         <td width="134" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
         <td width="122" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
       </tr>
     </table>
     <table width="595" border="0" cellspacing="0" cellpadding="0">
       <tr bgcolor="#ECF8FF"> 
         <td width="339" height="20" >&nbsp;<img src="imagens/tópico.gif" width="8" height="8"> 
           <select name="areaSol" id="areaSol">
             <%
   while Not Rs.EOF
    Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>")
   Rs.MoveNext
   wend
   Response.Write("<option selected>---</option>")

  %>
           </select></td>
         <td width="134" class="texto">&nbsp;</td>
         <td width="60" bgcolor="#ECF8FF" class="texto">&nbsp;</td>
         <td width="62" class="texto">&nbsp;</td>
       </tr>
       <tr> 
         <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
       </tr>
     </table> 
           
     <table width="595" border="0" cellspacing="1" cellpadding="1">
       <tr> 
         <td colspan="2" class="texto">LOCAL</td>
       </tr>
       <tr> 
         <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> 
             <%
if len(Request.QueryString("nome")) = 0 then
   response.write "<br>" & "É Neceesário escolher uma pasta de destino antes de fazer o upload" & "<br>"
end if
   
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base
Set pastas = principal.SubFolders
pasta = Request.QueryString("nome")
%>
             <%For each pastaUP in pastas%>
             <img src="../imagens/folder.gif" width="12" height="12"> <a href="index.asp?lcl=fotosnoevento&nome=<%=pastaUP.name%> "><%=pastaUP.name%></a> 
             <br>
             <%next%>
           </div></td>
       </tr>
       <tr>
         <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto">
             <form action="index.asp?lcl=upload&pasta="<%=Request.QueryString("pasta")%>" method="post" enctype="multipart/form-data">
               <span class="texto"><br>
               Arquivo 1: 
               <input type="file" name="txtArquivo1">
               <br>
               Arquivo 2: 
               <input type="file" name="txtArquivo2">
               <br>
               <input type="submit" name="cmdEnviar" value="Enviar">
               </span> 
             </form>
           </div></td>
       </tr>
       <tr> 
         <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Novo 
           Evento</a></strong></td>
       </tr>
       <tr> 
         <td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td>
         <td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="javascript:history.back();" class="link"> 
             Voltar</a></div></td>
       </tr>
     </table>
     <p></p></td>
 </tr>
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Mais uma tentativa

<%
   if session("logado")= "" then
response.redirect "index.asp?lcl=intro"
end if
if session("evento") < "2" then
response.Redirect "index.asp?lcl=admineventos"
end if
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

'Abre o Recordset
Set Rs = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
Set Rs=conn.execute("select * from fotos_eventos order by 2 ")
%>
<html>
<head>
<title>Intranet - Agência de Fomento de Goiás S/A</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
  <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
</tr>

<tr> 
  <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
  <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
      <tr bgcolor="#3399CC"> 
        <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
            <span class="titulobranco">FOTOS - EVENTOS</span></strong></font></div></td>
      </tr>
    </table> 
    
    <table width="595" border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td height="5" colspan="3" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
      </tr>
      <tr> 
        <td width="339" height="20" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;Escolha 
          o Evento</td>
        <td width="134" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
        <td width="122" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
      </tr>
    </table>
    <table width="595" border="0" cellspacing="0" cellpadding="0">
      <tr bgcolor="#ECF8FF"> 
        <td width="339" height="20" >&nbsp;<img src="imagens/tópico.gif" width="8" height="8"> 
          <select name="areaSol" id="areaSol">
            <%
  while Not Rs.EOF
   Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>")
  Rs.MoveNext
  wend
  Response.Write("<option selected>---</option>")

 %>
          </select></td>
        <td width="134" class="texto">&nbsp;</td>
        <td width="60" bgcolor="#ECF8FF" class="texto">&nbsp;</td>
        <td width="62" class="texto">&nbsp;</td>
      </tr>
      <tr> 
        <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
      </tr>
    </table> 
          
    <table width="595" border="0" cellspacing="1" cellpadding="1">
      <tr> 
        <td colspan="2" class="texto">LOCAL</td>
      </tr>
      <tr> 
        <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> 
            <%
if len(Request.QueryString("nome")) = 0 then
  response.write "<br>" & "É Neceesário escolher uma pasta de destino antes de fazer o upload" & "<br>"
end if
  
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base
Set pastas = principal.SubFolders
pasta = Request.QueryString("nome")
%>
            <%For each pastaUP in pastas%>
            <img src="../imagens/folder.gif" width="12" height="12"> <a href="index.asp?lcl=fotosnoevento&nome=<%=pastaUP.name%> "><%=pastaUP.name%></a> 
            <br>
            <%next%>
          </div></td>
      </tr>
      <tr>

<%if len(Request.QueryString("nome")) > 0 then%>

        <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto">
            <form action="index.asp?lcl=upload&pasta="<%=Request.QueryString("nome")%>" method="post" enctype="multipart/form-data">
              <span class="texto"><br>
              Arquivo 1: 
              <input type="file" name="txtArquivo1">
              <br>
              Arquivo 2: 
              <input type="file" name="txtArquivo2">
              <br>
              <input type="submit" name="cmdEnviar" value="Enviar">
              </span> 
            </form>
          </div></td>
      </tr>
      <tr> 
<%end if%>
        <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Novo 
          Evento</a></strong></td>
      </tr>
      <tr> 
        <td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td>
        <td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="javascript:history.back();" class="link"> 
            Voltar</a></div></td>
      </tr>
    </table>
    <p></p></td>
</tr>
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado 

<%
Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino, nome1
Dim objFSO, objArquivo
nome1 = Request.QueryString (pasta)
PastaDestino = Server.MapPath(nome1)

'Determina o tamanho do conteúdo
Tamanho = Request.TotalBytes

'Obtém o conteúdo no formato binário
ConteudoBinario = Request.BinaryRead(Tamanho)

'Transforma o conteúdo binário em string
For Contador = 1 To Tamanho
  ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next 

'Determina o delimitador de campos
Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)

'Percorre a String procurando os campos
'identifica os arquivo e grava no disco
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)

do while True
  ArquivoNome = ""
  Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
  if Posicao1 = 0 then
    exit do
  else
   'Determina o nome do arquivo
   Posicao1 = Posicao1 + 10
   Posicao2 = InStr(Posicao1, ConteudoTexto, """")
   For contador = (Posicao2 - 1) to Posicao1 step -1
    if Mid(ConteudoTexto, Contador, 1) <> "\" then '"
      ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
    else
      exit for
    end if
   next

   'Determina o conteúdo do arquivo
   Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
   Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
   ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))
  
   'Grava o arquivo
   if ArquivoNome <> "" then
     Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true)
     objArquivo.WriteLine ArquivoConteudo
     objArquivo.Close
  	
     Response.write "Arquivo " & PastaDestino & "\" & _
     ArquivoNome & " gravado com sucesso!<br>"
     Set objArquivo = nothing
   end if
end if
Loop
Set objFSO = nothing
%>
ESSE É O UPLOAD... o link... é passado no form... no outro código 
index.asp?lcl=upload&pasta="<%=Request.QueryString("nome")%>" method="post" enctype="multipart/form-data">

e o index.asp inclui a página upload.asp

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

agora tá passando o parametro direitinho

mas dá um erro

Tipo de erro:
Objeto Request, ASP 0102 (0x80004005)
A função espera uma seqüência de caracteres como entrada.
/upload.asp, line 8
A URL TÁ CERTINHA.. http://intranet/index.asp?lcl=upload&pasta=ACIA ALINHA 8 É ESSA: 
8 nome1 = Request.QueryString (pasta)

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado
agora tá passando o parametro direitinho

mas dá um erro

Tipo de erro:
Objeto Request, ASP 0102 (0x80004005)
A função espera uma seqüência de caracteres como entrada.
/upload.asp, line 8
A URL TÁ CERTINHA.. http://intranet/index.asp?lcl=upload&pasta=ACIA ALINHA 8 É ESSA: 
8 nome1 = Request.QueryString (pasta)
ASSIM: 
nome1 = Request.QueryString("pasta")

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

superamos essa fase...

agora olha isso

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A004C)

Caminho não encontrado

/upload.asp, line 55

54 if ArquivoNome <> "" then

55 Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, 56 true)

57 objArquivo.WriteLine ArquivoConteudo

58 objArquivo.Close

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...