PERMISSAO NEGADA - RUN TIME ERROR 70

MARCELOFAZAN 05/09/2010 10:21:10
#352266 Resposta escolhida

amigo qual tipo de informacao voce tem gravado dentro do TXT
tipo acho que voce vinculando direto o valor que tem no TXT para o Textbox ,

crie variavel e utilize nesse


Open [Ô]C:    este.txt[Ô] For Input As #1
strTexto1 = Input(FileLen([Ô]C:    este.txt[Ô]), #1)
Close #1

If strTexto1 <> 0 Then

Dim aa As Double
aa = strTexto1

[ô]Cria o Arquivo Saso não exista, e substitui caso Exista
Open [Ô]C:    este.txt[Ô] For Output As #1
Print #1, Str(aa - 1)
Close #1

endif

tente algo nesse sentido
abraço
Marcelo

GNCNET 05/09/2010 10:57:38
#352269

Marcelo,
Continua o mesmo erro.

Mudei a forma da função, funcionou algumas vezes e depois voltou a dar erro de permissão negada.
A forma foi tirada de: http://www.macoratti.net/filesyst.htm
Veja como está:

Dim fso As New FileSystemObject
Dim arq2 As TextStream

On Error GoTo tratama

Set arq2 = fso.OpenTextFile(App.Path & [Ô]\Database\Rel\mytext.html[Ô], ForReading, True)
Txt_nosite.Text = arq2.ReadAll
arq2.Close

tratama:
Set fso = Nothing
Set arq2 = Nothing
Set arq2 = fso.OpenTextFile(App.Path & [Ô]\Database\Rel\mytext.html[Ô], ForReading, True)
Txt_nosite.Text = arq2.ReadAll
arq2.Close

JWCELYO 05/09/2010 12:07:13
#352273

Prezado GNCNET,

Se você estive executando no Windows Vista ou Windows 7, execute como Administrador do Sistema.

Verifique se todas as chamadas de escrita no arquivo de texto esta fechada (Close #1)

GNCNET 05/09/2010 12:25:51
#352279

estou executando a partir doXP
Velho, não sei porque mas há um stress do windows. apenas mexi na função testando arq2.close no icicio do tratamento de erro e ele deu erro. Voltei à função sem close e funcionou.
O problema é que não este erro não pode ficar ocorrendo com o cliente

tratama:
arq2.Close
Set fso = Nothing
Set arq2 = Nothing
Set arq2 = fso.OpenTextFile(App.Path & [Ô]\Database\Rel\mytext.html[Ô], ForReading, True)
Txt_nosite.Text = arq2.ReadAll
arq2.Close


alguma idéia?

GNCNET 05/09/2010 12:52:58
#352283

Resolvido.
O arquivo mytext.html é gerado a partir do datareport.
mandei fechar o datareport assim que é gerado e não deu mais erro.

[ô]/-/ Exportar para HTML
Dt_relat.ExportReport rptKeyHTML, App.Path & [Ô]\Database\Rel\mytext.html[Ô]
Unload Dt_relat


Obrigado a todos