
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
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


0