Tenho um sistema que cria pastas para cada evento de fotos, até ai tudo bem.
O problema está na hora de fazer o upload... eu tenho que upar as imagens nas pastas escolhidas pelo o admin...
eu fiz isso:
on error resume next
DataHora = "{" & RIGHT("0" & Day(Now),2) & "-" & RIGHT("0" & Month(Now),2) & "-" & Year(Now) & "-" & RIGHT("0" & Hour(Now),2) & "-" & RIGHT("0" & Minute(Now),2) & "-" & RIGHT("0" & Second(Now),2) & "}"
arquivos = "E:\Domains\scharbel.com.br\wwwroot\fotografia\"
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.UseVirtualDir = false
objUpload.UseUniqueNames = false
objUpload.MaxFileSize = 6000000
objUpload.Save arquivos
id = objUpload.Form("slcFolder")
descricao = objUpload.Form("txtDescricao")
imagem = objUpload.Form("txtImagem")
imagem = DataHora&"_"&imagem
session("image_crop") = imagem
set pesquisa = bd.execute("select NM_FOLDER from FOLDER where ID_FOLDER = " & id)
if not pesquisa.eof then
nm_folder = pesquisa("NM_FOLDER")
end if
For Each arquivos in objUpload.Files
Path = arquivos.Path
NomeArquivo = objUpload.GetFileName(Path)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile("E:\Domains\scharbel.com.br\wwwroot\fotografia\"&nm_folder&"\"&NomeArquivo)
fileObject.Name = DataHora&"_"&NomeArquivo
Set fileObject = Nothing
Set fso = Nothing
Next
response.write("ID: " & id & "<br>")
response.write("DESCRICAO: " & descricao & "<br>")
response.write("IMAGEM: " & imagem & "<br>")
response.write("DIRETORIO: " & nm_folder & "<br>")
insert = "insert into PHOTO(DS_PHOTO,DS_URL_THUMB,DS_URL_PHOTO,ID_FOLDER,NM_FOLDER,NM_USER,DT_ACTIVE)"
insert = insert & "values('" & descricao & "','" & imagem & "','" & imagem & "','" & id & "', '" & nm_folder & "',"
insert = insert & "'" & nm_arquivo & "','" & session("usuario") & "','" & Now() & "')"
response.write("QUERY: " & insert)
Porém a imagens não é upada na pasta especificada:
Set fileObject = fso.GetFile("E:\Domains\scharbel.com.br\wwwroot\fotografia\"&nm_folder&"\"&NomeArquivo)
e sim na raiz das fotos:
arquivos = "E:\Domains\scharbel.com.br\wwwroot\fotografia\"
Alguma sugestão?