Erro no DUNDAS.UPLOAD 2

[feasso 0]

Estou tentanto fazer o envio de arquivo utilizando o dundas.

 

Já verifiquei a permissão de escrita na pasta e ela está ok.

 

Está dando o seguinte erro:

 

DSUpload.UploadedFile.2 error '80004005'

 

Data must be uploaded to the memory before this method call.

 

/2008/Pedido/Upload2.asp, line 20

 

 

A LINHA 20 é:

UploadedFile.SaveAs Caminho&Arquivo

 

O codigo completo:

Set Upload = server.CreateObject("Dundas.Upload.2")
 	Caminho = "e:\home\emciencia\web\2008\Arquivos\Artigos\"
	Upload.MaxFileSize = 12582912 				
	Upload.Useuniquenames = False
	Upload.SaveToMemory  
	
	
	For Each UploadedFile In Upload.Files
		Arquivo = Upload.GetFileName(UploadedFile.OriginalPath)
		Arquivo = Upload.Form("")&"_"&Arquivo
		UploadedFile.SaveAs Caminho&Arquivo
		
			
		sqlIns = " arquivo_ins " &_
			" "& validateNumber(Upload.Form("cliCodigo")) &", "&_
			" "& validateNumber(Upload.Form("prdCodigo")) &", "&_
			" "& validateNumber(Upload.Form("pedCodigo")) &", "&_
			" '"& Arquivo &"', "&_
			" '"& Upload.Form("arqTipo") &"' "
		Conexao.Execute(sqlIns)
		
	Next

Qual o erro ?

[hgb7 3]

http://www.freecode.com.br/forum/index.php...amp;mode=linear

 

Espero que ajude :)

[hargon 64]

A pasta está com permissão de escrita? Senão estiver, coloque.

[feasso 0]

Mudei de dundas para o Persits.Upload

 

Tem 2 arquivos.

 

Um com o form e o outro que faz a gravação.

 

Como faço para recuperar o nome do arquivo que foi enviado pelo form ?

[hargon 64]

Coloca o código abaixo na página de upload e testa:

Set campo = objetoUpload.files("nmCampoFileFormulario")

If Not campo Is Nothing Then
	nmarquivo = campo.FileName
End If

Não esqueça de fazer as alterações necessárias no nome do objeto e do campo.