Erro Estendido 183

[Netavin]

Bom dia pessoal !
Há tempos venho convivendo com esta mensagem ao abrir o sistema. Acredito que não esteja interferindo no funcionamento do programa.
Mas é chato pra caramba ter que ficar vendo isto todas as vezes que abre o sistema. Li, não sei aonde que esta mensagem aparece quando há uma tentativa de abrir um arquivo que já está aberto. Isto proecede ?? Se positivo, qual arquivo poderia ser ?

[]´s

Netavin

[Dudu_XBase]

Boa Tarde.
Na inicialização do seu sistema vc executa algum comando para criar algum diretório ?
Se tive tente usar uma função da catools

IF DIRCHANGE("\DATA") == -3 // Caso o diretório não existir
DIRMAKE("\DATA")
ENDIF

Pesquisando vi que esse erro acontece quando vc tenta criar um diretório que já exista.
Verifique e nos retorne.

[Netavin]

Boa noite caro amigo Dudu!
De fato uso.

Código: Selecionar todos

tem:=0
If file("c:\Temp")
   tem=1
   If tem=1
      Endif
   Else
      Dirmake("c:\Temp")
Endif

Foi um exemplo que peguei aqui mesmo no Forum.
Vou modificar e retorno.
Obrigado!

[ ]

Netavin

[Netavin]

Olá Dudu!
Tudo certo agora. O que havia de errado naquela rotina que eu estava usando?
até derepente!

[ ]
Netavin

[Dudu_XBase]

Boa Noite.
Eu nunca utilizei o comando file para verificar a existência de um diretório.
Sempre usei as funções da catools para criação de diretórios.
Provavelmente a função file que vc estava usando não retornava o esperado obrigando o sistema criar o diretório.

[gvc]

Código: Selecionar todos

tem:=0
If file("c:\Temp")
   tem = 1 // Não entendi para que serve este bloco!
   If tem = 1
   Endif
Else
   Dirmake("c:\Temp")
Endif

Vc pode resumir para isto:

Código: Selecionar todos

If !file("c:\Temp\*.*")
   Dirmake("c:\Temp")
End

[Pablo César]

Netavin, não ficou muito esclarecido o que causou este erro, por acaso esta mensagem é uma mensagem do SO ? Pois eu nunca passei por esse erro antes, mesmo chamando a função DIRMAKE ainda com diretório existente, como foi mencionado. Veja este tópico o qual aborda o método de verificação de pasta inexistente e no qual eu desaconselho o uso do DIRCHANGE viewtopic.php?f=1&t=3640&p=38146#p38146 .

Ao que me refiro, que mesmo que utilize o DIRMAKE, não daria esta mensagem (isto posso afirmar por experiência própria). Isso se ao que você se referia como erro cometido refere-se a rotina de verificação de existência de diretório, pois como disse não ficou muito claro a sua exposição do problema nem o que você fez para resolver. Por isso, fiz referência do tópico para obter melhores resultados para o caso de inexistência de diretório.

[Dudu_XBase]

Pablo Boa Noite.
Esse erro é retornado pela Api do Windows.

Código: Selecionar todos

error.h Win32 API

#define ERROR_ALREADY_EXISTS 183

[Pablo César]

Boa Noite, Eduardo !

Imaginei. Mas esse erro acontece por causa do uso da DIRMAKE ?. Pois nunca me aconteceu, foi por isso perguntei se era uma mensagem do aplicativo. Se o erro não for proveniente, poderia ser usado o DIRMAKE sem necessidade de verificação, essa seria a minha opinião. Mas o Netavin ainda não disse o que estaria errado da rotina que ele copiou de outro tópico daqui do fórum. Mas com certeza não ficou muito certa a utilização do IF FILE, melhor seria ver o retorno da função DIRMAKE, não acha ?

[Netavin]

Boa noite a todos!
Pablo, todas as vezes que eu iniciava o Meu Sistema (System Wood), dava esta mensagem na tela do DOS. Porém o programa abria e rodava normalmente.
Então como eu sabia o significado da mensagem, eu já imaginava que poderia ser essa rotina de verificação/criação de diretório. Então simplesmente troquei pela rotina indicada pelo Dudu e deu certo. O Sistema abre sem "lixo".
Um abraço a todos!!

Netavin