DOS ERROR 161

[kapiaba]

Galera, no windows 7 32 bits, funciona de boas, mas no windows de 64 bits me retorna DOS ERROR 161, exemplo:

O icone da máquina do uçuário aponta  para P:\ 

Instalaram o programa na raiz do HD. Quando eu mando um COPY TO NOMECOPIA.DBF, o windows me retorna DOS ERROR 161.

Mostra: \\PROPOCOP.DBF

Como eu elimino esse  \\  e o mais estranho é que o LCHDIR() não funciona também, imagem anexa do erro. Obg. abs.

 

[edutraini]

Boa tarde Kapi,

Nao tenho certeza mas se nas propriedades do executavel no windows tiver como Executar esse programa como administrador da esse problema

Abraço

[ADutheil]

Minha primeira tentativa seria

cDest := ".\ NOMECOPIA.DBF "

COPY TO (cDest)

[kapiaba]

Eu acho, que talvez, isto resolva com o windows de 64 bits.

 

lChDir( "C:\\" )  // servidor de arquivos
	

[kapiaba]

Não entendo porquê não quer funcionar os comandos abaixo.

   PUBLIC cDirPleno
	   cDirPleno := GETCURDIR()
	   IF SUBS( cDirPleno, LEN( ALLTRIM(cDirPleno ) ) , 1 ) = "\"
      cDirPleno := SUBS( cDirPleno, 1 , LEN( ALLTRIM(cDirPleno ) ) - 1 )
   ENDIF
	   LCHDIR( cDirPleno )
   SET DEFAULT TO

[fluna]

64 bits não gosta que copie nada pro raíz do c:\  (seria isso?)

 

[Jmsilva]

157 Segment is discarded.
158 Segment is not locked.
159 Invalid thread-identity address.
160 Invalid environment pointer.
161 Invalid path name passed to exec.
162 Signal already pending.
163 Error with INT 24 mapping.
164 No more process slots.
165 Error with INT 24 mapping.
166 Default redirection return code.
167 Locking failed.
168 Swap I/O failed.
169 Swap in failed.
170 Segment is busy.
171-172 Reserved.
173 A lock request is not outstanding for the specified file range, or the range length is zero.

Trata-se de uma Path, inválida! Substituir destino por uma Path real. Aparentemente um bug em relação aos comandos anteriores.

[kapiaba]

 

64 bits não gosta que copie nada pro raíz do c:\  (seria isso?)

 

Exatamente.

[kapiaba]

Como ADM funciona.

#include "FiveWin.ch"
	static oWnd
	//----------------------------------------------------------------//
	FUNCTION Main()
	   local oBar
	   DEFINE WINDOW oWnd TITLE "COPY TO C:\"
	   DEFINE BUTTONBAR oBar _3D OF oWnd
	   DEFINE BUTTON OF oBar ACTION( ACTUALIZAR_BD() )
	   SET MESSAGE OF oWnd TO "COPY TO C:\" NOINSET CLOCK DATE KEYBOARD
	   ACTIVATE WINDOW oWnd
	RETURN NIL
	FUNCTION ACTUALIZAR_BD()  // COMO ADM. FUNCIONA.
	   LOCAL cDest := "C:\COPIA.DBF"
	   USE CUSTOMER EXCLUSIVE NEW
	   COPY TO (cDest)
	   IF FILE( "C:\COPIA.DBF" )
      ? "EXITO"
   ELSE
      ? "NO FUNCIONA SOLO COMO ADM."
   ENDIF
	   USE
	RETURN NIL