Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fabio_Ranger

s com DLLs

Recommended Posts

Estou tentando fazer Upload de arquivos utilizando uma DLL que eu criei em VB

 

Código ASP

 

ASP
<html>

<%

if not isempty(request.totalbytes) then

 

file = request.binaryread(request.totalbytes)

 

set r = server.createobject("ASP.Upload") 'ASP.Upload->DLL q eu criei

 

for x = 1 to request.totalbytes

newFile = newFile & Chr(Ascb(midb(file,x,1)))

next

 

r.Salvar(newFile)

 

end if

%>

<form method="post" action="pag.asp" enctype="multipart/form-data">

<input type="file" name="file1">

<input type="submit" name="submit1">

</form>

</html>

 

 

Código DLL

 

Public Sub Salvar(ByVal arquivo As String)Open "D:\teste.txt" For Binary As #1Put #1, 1, arquivoClose #1End Sub
Na hora de executar a página ASP, encontro o seguinte erro:

ASP (0x800A004B)

Path/File access error

/webpages/pag.asp, line 11

 

Alguém sabe o que pode estar acontecendo?

Obrigado pela atenção

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.