[Resolvido] Recuperar nome do arquivo no Dundas Upload

[feasso 0]

Tenho isto:

Dim objUpload
Set objUpload = server.CreateObject("Dundas.Upload.2")
objUpload.UseVirtualDir = false
objUpload.UseUniqueNames = False
objUpload.Save "xxxx"

'RECUPERAR INFORMAÇÕES POSTADAS
Titulo_Icone = objUpload.Form("Titulo_Icone")
Arquivo = Upload.GetFileName(UploadedFile.OriginalPath)

Mas a variável ARQUIVO está sempre vazia.

[hargon 64]

Arquivo = objUpload.GetFileName(objUpload.OriginalPath)

[feasso 0]

FICOU ASSIM:

 

Dim objUpload

Set objUpload = server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = false
objUpload.UseUniqueNames = False

objUpload.Save "xxx"

Arquivo = objUpload.GetFileName(objUpload.OriginalPath) 

response.Write(Arquivo)
response.End()

Mas o Arquivo continua vindo em branco... o que está errado ?

[hargon 64]

objUpload.Save "xxx"

 

xxx é isso mesmo?

[feasso 0]

Não... coloquei o xxxxxx para não divulgar o endereço físico do site.

 

O input do form é este:

<form id="form_incluir" name="form_incluir" method="post"  ENCTYPE="multipart/form-data" target="_blank" action="biblioteca/ajax/grava_icone.asp" class="form formIncluir">
	 <input id="ft_imagem" name="ft_imagem" type="file" class="campo" title="Logotipo" value="<%= Img_Icone %>" />

[hargon 64]

Você disse que não consegue pegar o nome do arquivo, mas o arquivo ao menos está sendo salvo na pasta? Ou esse upload nem está sendo realizado?

[Ted k' 126]

olha o exemplo!

http://tedk.com.br/blog/index.php/2008/11/...ome-do-arquivo/

[hargon 64]

Ou então, tenta:

Arquivo = objUpload.GetFileName(objUpload.Files.OriginalPath)

[feasso 0]

O upload está gravando na pasta normalmente.

 

Só que preciso saber o nome do arquivo enviado para gravar no banco de dados.

 

Dim objUpload

Set objUpload = server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = false
objUpload.UseUniqueNames = False

objUpload.Save "E:\vhosts\novo.west1.com.br\httpdocs\novo\admin\biblioteca\ajax\imagens\upload"

Arquivo = objUpload.GetFileName(objUpload.Files.OriginalPath) 

Set objUpload = nothing

Mas a variável Arquivo está em branco. O que está errado ?

[Ted k' 126]

viu o exemplo que passei?

[feasso 0]

Estou usando o Dundas, ok?

 

Vi o seu exemplo e agora dá o seguinte erro:

Object doesn't support this property or method 438

 

Dim objUpload

Set objUpload = server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = false
objUpload.UseUniqueNames = False

objUpload.Save "E:\vhosts\novo.west1.com.br\httpdocs\novo\admin\biblioteca\ajax\imagens\upload"

PegaNomeCampo = objUpload.Files("ft_imagem").FileName '  Pegando o conteúdo do campo todo   
  
NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo

[Ted k' 126]

é que com o dundas você define um objeto primeiro, assim:

 

Set objNextFile = objUpload.GetNextFile()
PegaNomeCampo = objNextFile.FileName

NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\"))

veja ai!

[feasso 0]

Erro:

Object required 424

[hargon 64]

Usa dessa forma:

For Each File in objUpload.Files
	arquivo = objUpload.GetFileName(File.OriginalPath)
Next

[feasso 0]

PERFEITO... TUDO FUNCIONANDO.

 

OBRIGADO AMIGOS !

[hargon 64]

Por nada. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif