Upload de arquivos

[Allan Toshio 0]

Fala pessoal!

 

Tenho um formulário que pega um titulo de um evento, um pequeno descritivo e 1 até 8 fotos.

 

O código que eu preciso, tem que criar uma pasta no servidor com o nome do titulo, salvar os arquivos nesta pasta e gravar em um BD o titulo, o descritivo e o nome (ou caminho) das fotos.

 

Eu consegui até agora fazer o upload e gravar o nome das fotos no BD, mas não consigo criar a pasta no servidor.

 

Estou usando o Dundas Upload. Se não me engano, o componente já tem algo para criar pastas. Acho que é DirectoryCreate.

 

Por favor, preciso dessa ajuda :rolleyes:

 

Preciso saber exatamente o seguinte: Como criar uma pasta no servidor com o nome do titulo (sem espaços); como fazer com que o Dundas salve os arquivos nesta pasta criada.

 

Já tentei de tudo...

[DSerma 19]

Procure por "FileSystemObject"..

 

Essa é a forma de manipular arquivos e pastas dentro do ASP..

 

Abraços...

[Allan Toshio 0]

Valeu pela dica Darkdemo.. mas eu estava querendo algo do próprio componente Dundas http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

E achei! Após muitas horas de pesquisa, acabei descobrindo que lendo a documentação do componente estaria lá minha solução http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

 

Seguinte, para quem precisar da mesma coisa lá vai:

 

DirectoryCreate

Call this method to create a folder.

 

Syntax

ObjUpload.DirectoryCreate(Path As String)

 

No meu caso eu implementei da seguinte forma:

 

Set objUpload = Server.CreateObject("Dundas.Upload.2")
	
'Mantém o nome original do arquivo
objUpload.UseUniqueNames = False

'Utiliza caminho físico (apenas em minha máquina local deixo assim...)
objUpload.UseVirtualDir = False

'Aloca os dados na memória
objUpload.SaveToMemory

'Resgata dados do formulário
titulo = objUpload.Form("titulo")
texto = objUpload.Form("texto")

'Tira espaços do título e deixa tudo em minúsculo
titulolimpo = replace(Lcase(titulo)," ","")

'Cria a pasta com o nome do título
objUpload.DirectoryCreate("c:\inetpub\wwwroot\teste\imagens\"&titulolimpo&"\")	

'Salva os arquivos na pasta criada
For each objUploadedFile in objUpload.Files
objUploadedFile.SaveAs "c:\inetpub\wwwroot\teste\imagens\"&titulolimpo&"\"&objUpload.GetFileName(objUploadedFile.OriginalPath)
Next

Não coloquei o código para inserir no BD ainda pois estou testando, mas esse que está aí encima já está totalmente funcional, quem precisar pode copiar e adaptar da melhor forma.

 

Valeu!