Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Robson Martins

Criar pasta e fazer upload na mesma

Por , em ASP Clássico

Recommended Posts

Robson Martins    1

Robson Martins
Postado

gostari de uma ajuda para poder corrigir erro esta veste codigo que eu estou precisando para colocar em meu site este codigo esta disponivel aqui mesmo no forum mais como sou novato em asp ja tentei de todo mais ainda continua dando erro este aqui e o codigo.

 

 

link do forum

http://forum.imasters.com.br/index.php?/topic/200877-criar-pasta-e-fazer-upload-na-mesma/

 

 

----------------------------------------------------------formulario.asp--------------------------------------------------------

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<table width="240" border="0" cellpadding="0" cellspacing="0">
<form action="insere_teste.asp" method="post" name="form" enctype="multipart/form-data">
<tr>
<td width="60" height="20">Data: </td>
<td width="180"><input name="dia" type="text" class="form" id="dia" size="3" maxlength="2">
/
<input name="mes" type="text" class="form" id="mes" size="3" maxlength="2">
/
<input name="ano" type="text" class="form" id="ano" size="5" maxlength="4"></td>
</tr>
<tr>
<td height="20" class="texto">Titulo: </td>
<td width="180"><input name="titulo" type="text" class="form" id="titulo" size="30" maxlength="26"></td>
</tr>
<tr>
<td height="20" class="texto">Pasta: </td>
<td width="180"><input name="pasta" type="text" class="form" id="pasta" size="30" maxlength="26"></td>
</tr>
<tr>
<td height="20" class="texto">Foto: </td>
<td width="180"><input name="foto1" type="file" class="form" id="foto" size="30" maxlength="26"></td>
</tr>
<tr>
<td height="20" class="texto">Foto: </td>
<td width="180"><input name="foto2" type="file" class="form" id="foto" size="30" maxlength="26"></td>
</tr>
<tr>
<td height="20" class="texto">Foto: </td>
<td width="180"><input name="foto3" type="file" class="form" id="foto" size="30" maxlength="26"></td>
</tr>
<tr>
<td height="30"></td>
<td width="180"><input name="Enviar" type="submit" class="form" id="Enviar" value="Enviar"> <input name="Limpar" type="reset" class="form" id="Limpar" value="Limpar"></td>
</tr></form>
</table>

</body>
</html>


----------------------------------------------------------fim do formulario-------------------------------------------------------


-----------------------------------------------------------insere_teste.asp-------------------------------------------------------

<%

Function CreateFolderDemo(pasta)
Dim fso, f, dir
dir = "d:\Domains\webconexao.com.br\wwwroot\teste\" & pasta
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(dir)
response.write("lemos a pasta que é " & pasta & "<br /><br />")
CreateFolderDemo = f.Path
End Function

Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576 'Tamanho máximo do arquivo em Bytes


not_pasta = Upload.form("pasta")
call CreateFolderDemo(not_pasta)
Count = Upload.Save("d:\Domains\webconexao.com.br\wwwroot\teste\" & not_pasta)

not_titulo = Upload.form("titulo")




'data
not_dia = Upload.form("dia")
not_mes = Upload.form("mes")
not_ano = Upload.form("ano")
not_data = not_dia + "/" + not_mes + "/" + not_ano

qtdade = 0

'conta as fotos
For Each File in Upload.Files

qtdade = qtdade + 1

Next

qtdade = qtdade

Response.write(qtdade & " - " & not_titulo & " - " & not_data & " - " & not_pasta)

%>
-----------------------------------------------------------fim--------------------------------------------------------------------

 

 

aqui eu coloco o link para ver o erro

 

Microsoft VBScript runtime error '800a003a'

 

File already exists

 

/insere_teste.asp, line 7

 

 

link de teste

http://www.webconexao.com.br/formulario.asp

 

obrigado ate mais

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique as permisisons servidor, tente definir modificar as permissões no diretório

o Scripting.FileSystemObject usado para mover ou copiar um arquivo para um local, no entanto, já existe um arquivo com o mesmo nome no local

 

altere a propriedade para se caso o arquivo existir sobre-escrever...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robson Martins    1

Robson Martins
Postado

Ola xanburzum como vai

 

 

voce podeira me mostra como fazer pois ainda sou novato.

 

es tu usar o codigo desta forma ele cria a pasta e faz o upload da imagens so que ele cria a pasta e as imagens não fica detro da pasta mais sim fora dela as imagens fica detro da pasta teste não na pasta que foi criada dentro da pasta teste.

 

veja o codigo que faz isto

 

<%

Function CreateFolderDemo(pasta)
Dim fso, f, dir
dir = "d:\Domains\webconexao.com.br\wwwroot\teste\" & pasta
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(dir)
response.write("lemos a pasta que é " & pasta & "<br /><br />")
CreateFolderDemo = f.Path
End Function

Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576 'Tamanho máximo do arquivo em Bytes



Count = Upload.Save("d:\Domains\webconexao.com.br\wwwroot\teste\" & not_pasta)

not_titulo = Upload.form("titulo")
not_pasta = Upload.form("pasta")
call CreateFolderDemo(not_pasta)



'data
not_dia = Upload.form("dia")
not_mes = Upload.form("mes")
not_ano = Upload.form("ano")
not_data = not_dia + "/" + not_mes + "/" + not_ano

qtdade = 0

'conta as fotos
For Each File in Upload.Files

qtdade = qtdade + 1

Next

qtdade = qtdade

Response.write(qtdade & " - " & not_titulo & " - " & not_data & " - " & not_pasta)

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

muda aki

Upload.OverwriteFiles = True

 

link

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique antes se

dir = "d:\Domains\webconexao.com.br\wwwroot\teste\" & pasta

 

existe, caso exista, crie outro nome ou veja se esta com direitos para sobre-escrever

 

dá uma olhada nakele link k te passei...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique antes se a pasta existe, faz um if normal...

dir = "d:\Domains\webconexao.com.br\wwwroot\teste\" & pasta

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robson Martins    1

Robson Martins
Postado

caraca o negocio e doido não esta entrado ca cabeça ja vire o codigo e nada.

 

quando voce pede para eu ver e a pasta existe seria a nova pasta que este sendo criada ou a pasta teste .

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

isso antes de criar

 

Function CreateFolderDemo(pasta)
Dim fso, f, dir
dir = "d:\Domains\webconexao.com.br\wwwroot\teste\" & pasta
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(dir)
response.write("lemos a pasta que é " & pasta & "<br /><br />")
CreateFolderDemo = f.Path
End Function

faz uma verificacaun antes para ver se existe a pasta...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robson Martins    1

Robson Martins
Postado

verifique as permisisons servidor, tente definir modificar as permissões no diretórioo Scripting.FileSystemObject usado para mover ou copiar um arquivo para um local, no entanto, já existe um arquivo com o mesmo nome no localaltere a propriedade para se caso o arquivo existir sobre-escrever...

 

ele esta criando a pasta no local certo mais a foto que vai pelo upload não esta ficando detro da pasta criada

 

Imagem Postada

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

altera o caminho dela na hora de salvar...

 

mude aki

 

Count = Upload.Save("d:\Domains\webconexao.com.br\wwwroot\teste\" & not_pasta)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você precisa mudar o caminho,altere o caminho na hora de salvar

Compartilhar este post

Link para o post
Compartilhar em outros sites

Henrique Asp    0

Henrique Asp
Postado

Oie, tudo bom... estou fazendo algo parecido com o código acima mas ainda não descobri como salvar o arquivo dentro da pasta criada, ele ainda continua fazendo upload na pasta raiz, alguém poderia me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

apenas sete o path da sua pasta para o caminho desejado, mude o upload.save para o caminho seu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Henrique Asp    0

Henrique Asp
Postado

apenas sete o path da sua pasta para o caminho desejado, mude o upload.save para o caminho seu

 

Então, mas dá forma abaixo, não está correto?

Ele cria direto na pasta upload e não na pasta criada dentro da upload, o que está errado abaixo?

 

Count = Upload.Save("e:\home\maxxi\web\upload\" & not_pasta)

 

not_titulo = Upload.form("titulo")

not_pasta = Upload.form("pasta")

call CreateFolderDemo(not_pasta)

 

 

Obrigado pela ajuda!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito