Conectar unidad de red a ftp de forma automatizada

430 views
Skip to first unread message

Jose Antonio Blasco

unread,
Feb 26, 2021, 1:26:41 PM2/26/21
to Comunidad de Visual Foxpro en Español
Hola a todos, 
Me surge la necesidad de conectar una carpeta de un FTP de la empresa a una unidad, para manejarla como si se tratara de una unidad de disco física.
Necesito hacerlo de forma automatizada, y el proceso sería:
- Realizar la conexion a la unidad
- Crear o modificar un archivo dbf
- Desconectar la unidad

¿ Alguna sugerencia?

Gracias y saludos

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

jorgeg...@gmail.com

unread,
Feb 27, 2021, 6:53:17 PM2/27/21
to Comunidad de Visual Foxpro en Español

Jose Antonio Blasco

unread,
Mar 1, 2021, 3:19:35 AM3/1/21
to Comunidad de Visual Foxpro en Español
Muchas gracias por contestar Jorge, 
Ya había visto, e incluso descargado ese programa, pero por el uso que debo darle, necesito algo directo desde VFP, mediante API's o similar, pues no puedo usar un programa externo.

Sigo investigando.
Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2


--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/29b5c9fc-8ff4-40fa-87dc-ffd16c7485ean%40googlegroups.com.

Carlos Estrada Jr

unread,
Mar 1, 2021, 10:40:43 AM3/1/21
to publice...@googlegroups.com

 

hola

 

hace tiempo necesite algo similar,

yo use el fptuse

el cual crea una unidad local y la vincula

con un servidor ftp

 

https://www.ferrobackup.com/map-ftp-as-disk.html

 

desde tu prg , lo puedes llamar con alguna api, como shellexecute

 

primero hay que tener listo tu ftp server

con tus dbc o dbf alli

 

luego instalas y corres el ftpuse

el cual usa una command line muy simple

 

(tambien puedes llamarlo con shellexecute)

 

y es todo.

 

* aqui una prueba para que el navegador muestre un txt que guarde en mi cuenta ftp previante

*http://carlosejr-testing.000webhostapp.com/Proj1/Data/readme.txt

 

* aqui una prueba desde la ventana de comandos de fox, abriendo directamente desde mi cuenta ftp

*USE \\www.west-wind.com\d$\webapps\wwdemo\guest.dbf

 

* aqui una prueba como la anterior solo que en otro server ftp

**USE //carlosejr-testing.000webhostapp.com/Proj1/Data/clientes.dbf

 

* aqui desde la ventana de comandos de fox, abriendo la tabla usando la unidad previamente creada, con ftpuse

** USE f:\public_html\Proj1\Data\clientes.dbf exclusive

 

* otra prueba como la anterior , pero en otro servidor ftp

*USE F:\htdocs\Proj1\Data\CLIENTES.DBF EXCLUSIVE

 

 

* este form solo contiene un grid simple con

los datos de la tabla y hace un ABM,

pero el codigo es el mismo, solo que esta

usando la tabla que ya esta abierta (arriba)

 

DO FORM clientes-lst

READ EVENTS

 

QUIT

 

 

tambien puedes ocultar la unidad de red que creaste con

el ftpuse , para que el usuario no la vea.

 

bueno, espero te sirva de algo

 

saludos

Jose Antonio Blasco

unread,
Mar 1, 2021, 10:59:39 AM3/1/21
to Comunidad de Visual Foxpro en Español
!! Vaya !!, Esto último de ocultar la unidad me interesa.
Voy a echarle otro vistazo.
Yo he estado intentado con con "WScript.Network.mapnetworkdrive" pero no he conseguido que funcione.

Gracias Carlos.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2


Carlos Estrada Jr

unread,
Mar 1, 2021, 11:30:47 AM3/1/21
to publice...@googlegroups.com

Si la unidad se llama F

La ocultas con este script   .REG

 

REGEDIT4

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]

"nodrives"=dword:20

"NoViewOnDrive"=dword:20

 

 

 

Y la muestras con este   otro   .REG

REGEDIT4

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]

"nodrives"=dword:0

"NoViewOnDrive"=dword:0

 

 

Saludos

Oscar Quiros Coto

unread,
Mar 1, 2021, 7:45:23 PM3/1/21
to Comunidad de Visual Foxpro en Español
Yo con lo que tengo lo que haría, sin saber el contexto completo, es traerme el archivo y modificarlo localmente luego subirlo, en caso de no existir, crearlo de manera local y luego subirlo, con la librería vfpconnection.fll. https://comunidadvfp.blogspot.com/2008/02/cargandodescargando-en-vfp-de-manera.html

Esto evitaría hacer la conexión a la unidad de red, y es mas seguro, en cuanto a la información .

Otra opción es 

oNet = CREATEOBJECT("WScript.Network")
oNet.MapNetworkDrive( "x:", "\\10.0.0.11\public")
Entonces si el servidor ftp lo puedes conectar de via VPN, lo alcanzas por medio del SMB


Saludos.



Jose Antonio Blasco

unread,
Mar 2, 2021, 3:20:32 AM3/2/21
to Comunidad de Visual Foxpro en Español
Gracias a todos por las aportaciones.  
Voy a hacer diferentes pruebas y, si consigo llegar a hacerlo funcional os cuento cual es el entorno y la solución.

Saludos.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2


--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Jose Antonio Blasco

unread,
Mar 10, 2021, 10:30:07 AM3/10/21
to Comunidad de Visual Foxpro en Español
Bueno, ya he decidido cómo voy a proceder.
He decidido olvidarme de conectar una unidad al FTP, pues lo que intento implantar podría llegar a suponer accesos concurrentes a una misma carpeta del FTP.
Al final, voy a combinar un proceso de descargar un archivo del FTP, compararlo con otro en local, modificarlo si es necesario y volver a subir el archivo.

Gracias a todos por la ayuda y sugerencias.

Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2


Reply all
Reply to author
Forward
0 new messages