FoxPro/Visual FoxPro - Conectar a unidad de red con WIN32API

 
Vista:
sin imagen de perfil

Conectar a unidad de red con WIN32API

Publicado por Fidel (52 intervenciones) el 20/06/2013 03:31:09
Saludos a todos
Por favor necesito que me ayuden, no puedo conectar unidad de red con WIN7 Y WIN8, no me funciona el WIN32API, me sale error 53, no se puede conectar unidad Z:.....gracias

(la funcion es de VFP8 funciona muy bien con WINXP y WINSERVER)

FUNCTION AddConnection(tcDrive,tcResource,tcPassword)
LOCAL lnRet
DECLARE INTEGER WNetAddConnection IN WIN32API;
STRING @lpzRemoteName, ;
STRING @lpzPassword,;
STRING @lpzLocalName

IF PARAMETERS() < 3
lnRet = WNetAddConnection(@tcResource,0,@tcDrive)
ELSE
lnRet = WNetAddConnection(@tcResource,@tcPassword, @tcDrive)
ENDIF
IF lnRet # 0
RETURN "Error " + ALLT(STR(lnRet)) + ;
" al conectar el drive " + tcDrive
ENDIF
RETURN ""
ENDFUNC
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder