Paginação

[thicomp 0]

Oi Pessoal, veja se alguém poderia me ajudar...

Estou com o problema na linha que está em vermelho

 

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

 

/asmf/visu.asp, line 61

 

Desde já, obrigado

 

<%	response.write "<center><br><br><table cellpadding='1' cellspacing='1' border='0' width='550'><tr><td align='center' colspan='4'><h3>Lista</h3>"	response.write "<tr bgcolor='#4e7cb7' height='30'><td align='center'><font color='#ffffff'><b>Nome do Produto</b></font></td>"	response.write "<td align='center'><font color='#ffffff'><b>Nº da Revisão</b></font></td><td align='center'><font color='#ffffff'><b>Data da Última Atualização</b></font></td><td align='center'><font color='#ffffff'><b>Atualizar</b></font></td>"	'PAGINAÇÃO DE ARQUIVOS USANDO ARRAY x FSODim iLoop, limite, pagina, totalarq, iDim vlMaximo, vlMinimo, anteriorDim ObjFso, ObjArq, ObjPasta, ObjSubPastaDim usuario, cor Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")Set ObjPasta = ObjFso.GetFolder(server.MapPath("/asmf/det/"))limite  = 15	  ' limite de registros por páginatotalarq = ObjPasta.files.count  ' total de arquivos encontradosReDim arrAvatar((totalarq-1))Dim yy = 0' guardamos cada arquivo dentro de um arrayFor Each ObjArq in ObjPasta.files  arrAvatar(y) = objArq.Namey = y + 1 NextSet ObjPasta = NothingSet ObjArq = NothingSet ObjFso = Nothingpagina = Request("pag")IF pagina = "" ThenIF limite < UBound(arrAvatar) Then  vlMinimo = 0  vlMaximo = (limite-1)Else  vlMinimo = LBound(arrAvatar)  vlMaximo = UBound(arrAvatar)End IFpagina = 1anterior = ""ElsevlMinimo = (pagina*(limite-1))+(pagina)vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)IF vlMaximo > UBound(arrAvatar) Then vlMaximo = UBound(arrAvatar)pagina = pagina + 1anterior = pagina - 2IF anterior = 0 Then anterior = ""End IFFor i = vlMinimo to vlMaximoif cor= "#d2dfee" then: cor= "#eef3f9" else: cor= "#d2dfee": end if	Set fso = CreateObject("Scripting.FileSystemObject")	Set ObjFile = Fso.GetFile ("F:\asmf\det\"&arrAvatar(i)&"")	[color="#FF0000"]Set objStream = ObjFile.OpenAsTextStream(forReading,false)[/color]	Texto = ObjStream.ReadAll	Dados= Split(Replace(Texto,Chr(13),""),Chr(10)) //substitui o enter pelo tab		for x=0 to LBound(Dados)	if cor = "#d2dfee" then		cor = "#eef3f9"	else		cor ="#d2dfee"	end if		response.write "<tr bgcolor='"& cor & "'><td align='left'><a href='form.asp?nomprod="&dados(0)&"'>"&dados(0)&"</a>"response.write "<td align='center'>"& dados(1) &""response.write "<td align='center'>"& dados(2) &""response.write "<td align='center'><a href='abert.asp?nomprod="&dados(0)&"'><img src='../img/refresh.gif' width='15' border='0'>"nextobjStream.CloseSet Fso = nothingSet objStream = nothingnextif codigo = "" then : response.write "<tr height='50'><td align='center' colspan='8'><b>Nenhum Arquivo Em Andamento</b>" else : response.write "" : end ifresponse.write "</table></center></body></html>"		%>

[jrcardozo 4]

você deve informar qual arquivo deseja abrir

[thicomp 0]

O arquivo está sendo lido aqui

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set ObjFile = Fso.GetFile ("F:\asmf\det\"&arrAvatar(i)&"")

 

Na parte em vermelho ele lê o nome e a extensão

[jrcardozo 4]

você havia destacado essa linhaSet objStream = ObjFile.OpenAsTextStream(forReading,false)antes de executar faça um print desse array pra confirmar o nome

[thicomp 0]

Ele lê apenas 1 nome de arquivo de uma lista... A linha destacada no código (Set objStream = ObjFile.OpenAsTextStream(forReading,false)) vem depois...Não sei o que pode estar acontencendo

[jrcardozo 4]

tente trocar de forReadingpara1

[thicomp 0]

Poxa cara, era isso mesmo...Será que você poderia me dizer pq isso???Mas mesmo assim, valeu pela ajudaFlww

[jrcardozo 4]

exatamente eu não sei, mas colocando 1 demos atributos para ler,gravar,executar o arquivo, antes era somente leitura, acho que era por isso que dava pau, não conseguia pegar os dados do arquivo pra devolver no codigo