PERMISSAO NEGADA - RUN TIME ERROR 70

GNCNET 21/04/2010 17:43:59
#339864
Estou tendo erro : run time error 70 permission denied para o seguinte código:

Open App.Path & [Ô]\Database\Rel\mytext.txt[Ô] For Input As #1
Txt_nosite.Text = Input(LOF(1), #1)
Close #1

Alguém poderia ajudar?
Agradecido,
Gardel
ASHKATCHUP 21/04/2010 17:47:52
#339865
Algium programa já está usando esse arquivo TXT...
GNCNET 21/04/2010 17:49:49
#339866
Não.
Ocorreram algumas vezes anteriormente a situação de receber a informação de que o arquivo já estava aberto. Entao faço tratamento mandando fechar o arquivo antes por via das dúvidas.
Agora começou este...
MICROSCHEME 21/04/2010 18:52:44
#339869

Cara.

Talvêz precise de nivel de administrador, ou então, verifique, pois o arquivo que tu tá abrindo e tentando escrever
tá como somente leitura.

Pode ser

. . .
ERIVELTONVGA 21/04/2010 19:10:34
#339870
GNCNET boa tarde

Andei pesquisando isto na internet e uma coisa que pode ser é alguma coisa com o Sistema Operacional.

segue o link ve se ajuda.

http://www.scriptbrasil.com.br/forum/lofiversion/index.php/t145779.html
CLEVERTON 21/04/2010 19:14:59
#339871
vc consegue abrir dando dois cliques sobre ele ??
GNCNET 21/04/2010 21:17:47
#339880
Erivelton: coicidentemente já havia testado este procedimento do link, mas na primeira solicitação deu erro, na segunda funcionou. Não entendi...

Cleverton: o arquivo txt abre tranquilamente

Micro: meu usuario já é admnistrador
CLEVERTON 21/04/2010 21:25:27
#339882
[Ô]aparentemente[Ô] o arquivo não tá vinculado a nenhum usuário do sistema não.

teria como vc upar [Ô]O ARQUIVO[Ô] para o site ?
GNCNET 19/06/2010 16:51:28
#345279
Mudei a forma de leitura do arquivo e não deu mais erro.
A solução está: http://www.macoratti.net/filesyst.htm
Ficou assim

Dim fso As New FileSystemObject
Dim arq2 As TextStream

Set arq2 = fso.OpenTextFile(App.Path & [Ô]\Database\Rel\mytext.html[Ô], ForReading, True)
Txt_nosite.Text = arq2.ReadAll
arq2.Close
SERGIOPASCOAL 21/06/2010 10:31:10
#345346
gncnet, aconteceu isso comigo algumas vezes, e solucionei assim:
coloque o comando close antes do open, pois o #1 pode estar aberto...
Close #1
Open App.Path & [Ô]\Database\Rel\mytext.txt[Ô] For Input As #1
Txt_nosite.Text = Input(LOF(1), #1)
Close #1

espero que ajude, abraços
GNCNET 05/09/2010 10:05:10
#352261
inexplicavelmente, o erro retornou...
alguma dica?
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar