FoxPro/Visual FoxPro - Ver carpetas de la red

   
Vista:

Ver carpetas de la red

Publicado por eleazar ramirez (18 intervenciones) el 26/11/2007 19:28:36
estoy usando GETDIR pero como la informacion la tengo en red y no puedo seleccionar el directorio, ¿ como puedo hacerlo o que opcion me falta usar el el GETDIR?

estoy usando VFP6

gracias

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

RE:Ver carpetas de la red

Publicado por Plinio (7771 intervenciones) el 26/11/2007 20:37:43
Eso se arregló en el GetDir de las versiones recientes de VFP (creo que desde la 7). Para la 6 o anterior usa el siguiente codigo.

http://www.universalthread.com/wconnect/wc.dll?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver carpetas de la red

Publicado por Ernesto Hernandez (4632 intervenciones) el 27/11/2007 04:03:40
The server was unable to respond to your request :-(
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver carpetas de la red

Publicado por Ernesto Hernandez (4632 intervenciones) el 27/11/2007 04:09:00
*----------------------------------------
* FUNCTION GetConnection(lcDrive)
*----------------------------------------
* Retorna el nombre de la PC y recurso
* compartido de una conexión de red
* PARAMETROS: lcDrive
* USO: ? GetConnection("K:")
*----------------------------------------
FUNCTION GetConnection(lcDrive)
DECLARE INTEGER WNetGetConnection IN WIN32API ;
STRING lpLocalName, ;
STRING @lpRemoteName, ;
INTEGER @lpnLength
LOCAL cRemoteName, nLength, lcRet, llRet
cRemoteName=SPACE(100)
nLength = 100
llRet = WNetGetConnection(lcDrive,@cRemoteName,@nLength)
lcRet = LEFT(cRemoteName,AT(CHR(0),cRemoteName)-1)
RETURN lcRet
ENDFUNC

*----------------------------------------
* FUNCTION AddConnection(tcDrive,tcResource,tcPassword)
*----------------------------------------
* Conecta un recurso compartido a la unidad tcDrive
* USO: ? AddConnection("Z:","PC_REMOTARECURSO")
*----------------------------------------
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

*----------------------------------------
* FUNCTION CancelConnection(tcDrive)
*----------------------------------------
* Desconecta una unidad de red
* USO: ? CancelConnection("Z:")
*----------------------------------------
FUNCTION CancelConnection(tcDrive)
LOCAL lnRet
DECLARE INTEGER WNetCancelConnection IN WIN32API;
STRING @lpzLocalName, ;
INTEGER nForce
lnRet = WNetCancelConnection( @tcDrive, 0)
IF lnRet # 0
RETURN "Error " + ALLT(STR(lnRet)) + ;
" al desconectar el drive " + tcDrive
ENDIF
RETURN ""
ENDFUNC

*----------------------------------------
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver carpetas de la red

Publicado por Plinio (7771 intervenciones) el 27/11/2007 04:22:11
No creo que aplica en este caso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver carpetas de la red

Publicado por Ernesto Hernandez (4632 intervenciones) el 27/11/2007 04:54:32
?? entonces cual es la solucion segun
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver carpetas de la red

Publicado por Ernesto Hernandez (4632 intervenciones) el 27/11/2007 04:56:52
*----------------------------------------
* FUNCTION GetConnection(lcDrive)
*----------------------------------------
* Retorna el nombre de la PC y recurso
* compartido de una conexión de red

si esto no funciona entonces como ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver carpetas de la red

Publicado por Plinio (7771 intervenciones) el 27/11/2007 13:54:47
Verifica la Pregunta.
La funcion GetDir() en versiones viejas de VFP tiene problemas, cuando le das a seleccionar un folder este no muestra las pcs en redes y otras opciones mas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ver carpetas de la red

Publicado por Ernesto Hernandez (4632 intervenciones) el 28/11/2007 06:23:37
tieens razon .. perdon por la regada
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar