Problemas na leitura do txt

[thicomp 0]

Ola pessoal, td bem??

To com um probleminha nesse código, será que alguem poderia me ajudar... O problema está ocorrendo na parte em vermelho... Leitura de txt... Se eu retirar o "for" do código, o erro "800a0005" é retornado...

Alguem teria alguma sugestão?

Abçs

 

ASP

<%

 

session("sit")=request.querystring("sit")

 

response.write "<style>a{text-decoration:none; font-family:verdana;font-size:10pt;}</style>"

 

session("ano") = request.querystring("ano")

 

Set fso = CreateObject("Scripting.FileSystemObject")

 

Set folder = fso.GetFolder ("F:Proj"&session("proj")&"INS")

 

'Set files = folder.Files

 

For Each x in folder.subfolders

 

codint=x.Name

 

response.write "<a href='http://Proj/ins/list.asp?proj="&session("proj")&"&ano="&codint&"&sit="&session("sit")&"')>["&codint&"]</a>    "

 

next

 

Set Fso = nothing

 

Set objStream = nothing

 

 

 

Set fso = CreateObject("Scripting.FileSystemObject")

 

Set folder = fso.GetFolder ("F:Proj"&session("proj")&"INS"&session("ano")&"")

 

'Set files = folder.Files

 

For Each x in folder.subfolders

 

codint1=x.Name

 

Set folder = fso.GetFolder ("F:Proj"&session("proj")&"INS"&session("ano")&""&codint1&""&session("sit")&"")

 

Set files = folder.Files

 

For Each file in Files

 

codint=len(file.Name)-4

 

cod=left(file.Name,10)

 

response.write "<br><a href='http://Proj/ins/detalhes.asp?dat="&cod&"&ano="&session("ano")&"')>"&replace(cod,"_","/")&"</a>    "

 

 

 

Set ObjFile = Fso.GetFile("F:ProjINS"&session("ano")&""&codint1&""&session("sit")&""&cod&".txt")

 

Set objStream = ObjFile.OpenAsTextStream(forReading,false)

 

Set files = folder.Files

 

'Set file = Nothing

 

'Set fso = Nothing

 

Texto = ObjStream.ReadAll

 

Dados = Split(Replace(Texto,Chr(13),""),Chr(10)) //substitui o enter pelo tab

 

for x = 0 to UBound(Dados)

 

        if Dados(x) = "" then

 

                        response.write ""

 

                else

 

                        response.write "<td colspan=1>"& Dados (x) &""

 

        end if

 

        if Dados (x) = "" then

 

                                if cor = "#d2dfee" then

 

                                        cor = "#eef3f9"

 

                                else

 

                                        cor = "#d2dfee"

 

                                end if

 

                                        response.write "<tr bgcolor=" & cor & " height=35>"

 

            end if

 

next

 

 

 

objStream.Close

 

'Set Fso = nothing

 

'Set objStream = nothing

 

next

 

next

 

Set Fso = nothing

 

Set objStream = nothing

 

%>

[Mário Monteiro 179]

Esse erro ainda ta muito generico, umas das possibilidades para ele é falta de permissao de acesso ao arquivoverifique se voce tem esta permissao

[thicomp 0]

Tem permissão sim...Se eu retiro essa parte do códigofor x = 0 to UBound(Dados) if Dados(x) = "" then response.write "" else response.write "<td colspan=1>"& Dados (x) &"" end if if Dados (x) = "" then if cor = "#d2dfee" then cor = "#eef3f9" else cor = "#d2dfee" end if response.write "<tr bgcolor=" & cor & " height=35>" end ifnextesse erro é retornado e mostra o problema na linha "Set objStream = ObjFile.OpenAsTextStream(forReading,false). Se eu coloco o código acima, a pagina não é exibida...

[Mário Monteiro 179]

o que seu codigo deve fazer?

[thicomp 0]

Abrir o arquivo txt e mostrar as informações na tela

[Mário Monteiro 179]

mas é um unico arquivo?

[thicomp 0]

Sim...ele tem a seguinte rotinaEle abre uma pasta, abre o arquivo dentro dela e mostra as informações. Faz essa rotina em todas as pastas existentes...

[Mário Monteiro 179]

entao mas tem que mostrar o conteudo de todos os arquivos e de todas as pastas numa unica pagina?

[thicomp 0]

isso, as informações de todos os arquivos devem ser mostradas na mesma pagina, tipo uma listagem...