Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
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.
desabilite a opção de exibir mensagens de erro amigáveis no browser, para assim ele exibir o erro exato
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")
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)
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)
/applications/core/interface/imageproxy/imageproxy.php?img=https://fbcdn-sphotos-d-a.akamaihd.net/hphotos-ak-prn2/1456612_638521866191613_18760147_n.jpg&key=e44721dcaa151e52c4ecf0f5069c7637293aa1cceebb2ada7a33c0abd086492a" alt="1456612_638521866191613_18760147_n.jpg" />
qual o erro gerado...
e coloque ele dentro de um loop.