ERROR_BAD_PATHNAME
161 (0xA1)
The specified path is invalid.
PUBLIC cDirPleno
cDirPleno := GETCURDIR()
IF SUBS( cDirPleno, LEN( ALLTRIM(cDirPleno ) ) , 1 ) = "\"
cDirPleno := SUBS( cDirPleno, 1 , LEN( ALLTRIM(cDirPleno ) ) - 1 )
ENDIF
LCHDIR( cDirPleno )
SET DEFAULT TOHB_FUNC( GETCURDIR )
{
DWORD dwLen = GetCurrentDirectory( 0, NULL );
if( dwLen )
{
char * pBuffer = ( char * ) hb_xgrab( dwLen );
GetCurrentDirectory( dwLen, pBuffer );
hb_retc( pBuffer );
hb_xfree( pBuffer );
}
else
hb_retc( "" );
}Maestro el problema ocurre cuando el cliente instala el programa en C: \ del servidor de archivos.
Si se instala en una carpeta, todo funciona perfecto.
Prueba a hacer:
MsgInfo( GetCurDir() )
En 32 y 64 bits
En windows 7 32 bits, retorna: C:\
no tengo windows de 64 bits ó windows server 2008 ahora. Después hago testes.
Gracias saludos.
Hola Jao, probaste ejecutar el .exe como Administrador? (Boton derecho, ejecutar como administrador). Tal vez sea un tema de permisos.. En Windows 10 me pasa mucho eso en entornos de red.
Saludos
#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