Manipulação de arquivos ASP

[thicomp 0]

Olá pessoal, bom dia!

 

Estou como seguinte problema. Tenho um código, onde ele recupera dados de um formulário (quando houver mais de um, vem separado por vírgula), dou um split nele pra fazer a separação desses dados e cada um deve criar um arquivo txt, com a informação especficada.

Acontece o seguinte, quando eu executo, sem a opção de escrever dentro dos arquivos, ele cria normalmente. Quando deixo disponível a opção para escrever dentro, ele faz só no primeiro item, e a página me retorna um erro de página.

O código está descrito abaixo, será que alguem teria alguma solução? Acredito que seja algo mt simples, mas não estou conseguindo sanar.

Se puderem me ajudar, agradeço.

sepper=Split(request.form("periodo"), ",")	Set FS=Server.CreateObject("Scripting.FileSystemObject")		For i = 0 to Ubound(sepper)				IF FS.FileExists("E:\"&Trim(sepper(i))&".txt")=FALSE Then			Set File=FS.CreateTextFile("E:\"&Trim(sepper(i))&".txt")		Else			Set File=FS.OpenTextFile("E:\"&Trim(sepper(i))&".txt")		End IF		File.WriteLine session("usuario")		File.WriteBlankLines(1)		File.close	Next	Set FS=Nothing

 

 

[xanburzum 169]

qual o erro gerado...

e coloque ele dentro de um loop.

[thicomp 0]

Ele não retorna um erro específico, somente o erro de que a página não pode ser exibida.

Realmente não to conseguindo enxergar o que pode estar ocorrendo.

[xanburzum 169]

desabilite a opção de exibir mensagens de erro amigáveis no browser, para assim ele exibir o erro exato

[thicomp 0]

Certo, me retornou o seguinte erro

 

 

Microsoft VBScript runtime

error '800a0036'

Bad file mode

/ResEqui/Arq_Font/reserva.asp, line 101

 

Exatamente a linha

File.WriteLine session("usuario")

[xanburzum 169]

Isso normalmente significa que você tentou abrir ou criar um arquivo com uma constante no modo leitura, por exemplo, use ForAppending. O gráfico a seguir mostra os valores possíveis:

ForReading 1
ForWriting 2
ForAppending 8

 

altere assim:

 

Set File=FS.CreateTextFile("E:\"&Trim(sepper(i))&".txt",true)		Else			Set File=FS.OpenTextFile("E:\"&Trim(sepper(i))&".txt",8,true)

[thicomp 0]

Valeu cara, era isso mesmo o problema!

Eu havia colocado, quando a abertura do arquivo alinha abaixo, que é o que eu sempre utilizo, mas colocando o que você me indicou acima, deu certo!!!

 

Muito obrigado pela ajuda cara!!!

 

Abraços

Set File=FS.OpenTextFile("E:\"&Trim(sepper(i))&".txt", forAppending,TristateTrue)

[xanburzum 169]