[Resolvido] Upload - erro

[Tonblz 0]

Boa tarde pessoal,

 

to tentando criar uma rotina upload, mas da erro, vejo alguns exemplos e sei q falta apenas alguma coisa, mas naum sei o q hehehe,

 

alguém pode me ajudar ? abaixo o código

 

 

Sub GravaGrob()
Dim UploadRequest,filename,objArquivo,objFSO,fso
Dim ScriptObject,MyFile
Set UploadRequest = CreateObject("Scripting.Dictionary")

	Server.ScriptTimeout = 5400
    EstensoesProibidas=",exe,asp,php,sql,bat,pif,ocx,dll,aspx,shtml,"
    ExtensoesPermitidas="," & ExtensoesPermitidas & ","
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	 
	strArquivo = request.form("Arquivo")
	'Pasta onde será salvo o arquivo
	strPath = "C:\Wellington"
	%>	<form></form><%
	response.write "Diretório: " & strPath	
	'Caminho original do arquivo.
    filepathname = strArquivo
	%>	<form></form><%
	response.write "Local do Arquivo : " & strArquivo	
	'Obtém a extensão
    For i = Len(filepathname) To 1 Step -1
        If Mid(filepathname, i, 1) = "." Then Exit For
    Next
    extensao = Right(filepathname, Len(filepathname) - i)
	%>	<form></form><%
	response.write "extensão : " & extensao	
   'Verifica se a extensão é dos tipos permitidos.
    if ExtensoesPermitidas=",*," then
        pode=(InStr(extensao,EstensoesProibidas)=0)
    else
        pode=(InStr(extensao,EstensoesPermitidas)>0)
    end if
    if pode then
		'Create FileSytemObject Component
        Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
        'Cria a pasta se ela não existir
        if not ScriptObject.FolderExists(strPath) then ScriptObject.CreateFolder(strPath)
		'Obtém o nome do arquivo a salvar
        filename = ""
        if filename="" then
            For i = Len(filepathname) To 1 Step -1
                If Mid(filepathname, i, 1) = "\" Then Exit For
            Next
            filename = Right(filepathname, Len(filepathname) - i)
        end if
		%>	<form></form><%
		response.write "arquivo : " & filename
   	   'Create and Write to a File (WARNING: Overwrites existing!)
        pathfilename = strPath & "\" & filename
		%>	<form></form><%
		response.write "arquivo : " & pathfilename
		%>	<form></form><%
		Set objArquivo = objFSO.CreateTextFile(strPath & "\" & filename, True) 
		objArquivo.WriteLine ArquivoConteudo     
		objArquivo.Close 
		Response.Write " Arquivo " & strPath & "\" & filename & " gravado com sucesso!!!<BR>"
		%>	<form></form><%
		Set objArquivo = Nothing
		nomeantigo = strArquivo'strPath & "\" & ArquivoNome
		nomenovo =   strPath & "\" & filename 
		Response.Write " renome arquivo[ " &  nomeantigo & "]" & "  ... novo:[" &  nomenovo & "]" 
		
		'ESSE AQUI DA PASTA NÃO EONCONTRADA (PQ) ??
		
		'Set fso = CreateObject("Scripting.FileSystemObject")
		'fso.MoveFile nomeantigo, nomenovo
    	'Set objFSO = Nothing
	
	
		'PERMISSION DENIED (PQ) ????? 
		Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
		Set MyFile = ScriptObject.CreateTextFile(strPath & filename)
		For i = 1 to LenB(filename)
			MyFile.Write chr(AscB(MidB(filename,i,1)))
		Next
		MyFile.Close
	
	
	end if
	exit sub
end sub

[Gilberto Jr 26]

aparece algum erro brother? tem que tomar cuidado tambem pois a aplicacao fso tem um limite de tamanho pra enviar para o servidor.

[Tonblz 0]

PERMISSION DENIED

 

o arquivo é pequeno

[xanburzum 169]

verifique se as permissoes estao setadas corretamente, e se gerar algum número de erro poste porfavor...

[Tonblz 0]

Spbre as permissões está ok,

 

aparece o seguinte erro

 

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/GROB Sao Paulo Intranet_files/Planej_Empresarial/z_zportal/a_admin/b_links/Grava Grob.asp, line 116

 

800401f3

 

 

linha 116

"Set MyFile = Server.CreateObject("Persits.Upload") "

 

Set MyFile = Server.CreateObject("Persits.Upload")

MyFile.OverwriteFiles = False

MyFile.Save filename

[marciolvs 1]

Conforme tinha dito, acredito que não tenha o componete

""Set MyFile = Server.CreateObject("Persits.Upload") ""

instalado em sua maquina local.

 

tente colocar em um servidor online e efetue testes, a maioria possui o" persists" instalado

[Tonblz 0]

Valeu Marcio,

 

mudei o caminho para rede e funcionou

 

valeu

 

Wellington