Criar pasta e fazer upload na mesma

[Guto Venâncio 0]

Oi, estou usando os arquivos abaixo

 

formulario.asp

<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>

 

--------------------------------------------------------------//

 

insere_teste.asp

<%

 

Function CreateFolderDemo(pasta)

Dim fso, f, dir

dir = "D:/http/tiovenancio/web/galeria/" & 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

'On Error Resume Next

 

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

Count = Upload.Save("D:/http/tiovenancio/web/galeria/" & 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)

 

%>

 

---------------------------------//

 

O que acontece:

O upload é efetuado e a pasta é criada, ambos corretamente. O problema é que os arquivos do upload ficam no mesmo nivel da pasta criada e não dentro dela.

 

Alguém poderia me ajudar?

 

Obrigado!

[jrcardozo 4]

2 coisas...

 

essa linha

 

not_pasta = Upload.form("pasta")

deve ficar antes dessa

 

Count = Upload.Save("D:/http/tiovenancio/web/galeria/" & not_pasta)

por causa da variavel que recebe o valor....outra coisa....

 

você está criando a subpasta com o fso? pelo que percebi não está

[Guto Venâncio 0]

Obrigado, mas nao funcionou.ele só lê a variavel depois que passa oCount = Upload.Save("D:/http/tiovenancio/web/galeria/" & not_pasta)antes disso, ele diz que tá vazio ou dá erro.

[jrcardozo 4]

foi mal, colei erado....tenta assim

 

 

 

not_pasta = Upload.form("pasta")call CreateFolderDemo(not_pasta) Count = Upload.Save("D:/http/tiovenancio/web/galeria/" & not_pasta)

primeiro você passa o nome da pasta para a variavel, depois você chama a função para criar a pasta com fso e por ultimo você determina o caminho para o upload

 

Qual a descrição do erro?