** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Error subir archivos por FTP
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Error subir archivos por FTP

 Responder Responder
Autor
Mensaje
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 970
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rokoko Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Error subir archivos por FTP
    Enviado: 14/Noviembre/2017 a las 16:48
Buenas!!

He adapatado este ejemplo de Bhuo para subir copias de seguridad de la base de datos por ftp automaticamente.
Lo he estado probando en un servidor(FileZilla_Server  127.0.0.1)en  local, tanto mi base de datos como la de Bhuo funcionan sin problemas.

http://www.mvp-access.es/buho/ficheros/ejemploftp.zip

Hoy ya iba la prueba de verdad con servidor remoto y mi gozo en un pozo....
Tanto mi base de datos, como la de bhuo no consigo que suban nada  al servidor FTP.
(FileZilla_Server) en un ordenador remoto.

Si me conecto con el Cliente  FileZilla  funciona perfecto, subo y bajo archivos sin problemas.
O sea que cosa de configuracion del servidor parece que no es. Y firewal parece que tampoco ya que con el cliete FileZilla funciona perfecto.

Que puede ser??

Quizas el ejemplo de Bhuo se haya quedado antiguo para windows 7 a 10??

Sabeis de algun ejemplo que sepais que funciona??

Saludos




Editado por rokoko - 14/Noviembre/2017 a las 16:48
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 9670
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 14/Noviembre/2017 a las 17:00
¿Ese servidor no usará exclusivamente protocolo SFTP?

Editado. He subido otra forma para usar FTP.



Editado por Mihura - 14/Noviembre/2017 a las 17:42
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Alcalá Meco
Estado: Sin conexión
Puntos: 2924
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 15/Noviembre/2017 a las 03:23
¿Por qué puerto conectas?
¿Tienes conexión pero no transferencia o ni siquiera conexión?
¿Tienes usuario y clave?

Con filezilla ¿haces conexión activa o pasiva?


Un saludo.

Luis

PD: El FTP es el mismo protocolo desde más o menos 1970, así que no creo que tenga que ver con la versión de Windows



Editado por lbauluz - 15/Noviembre/2017 a las 03:25
Quod natura non dat, Salmantica non præstat
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 970
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rokoko Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 15/Noviembre/2017 a las 08:23
Hago conexión pasiva, ayer probé a hacerlo en una red local entre dos pc y también funcionó bien. No funciona a través de Internet. Tiene usuario y contraseña, puerto 21. Conecta con el servidor pero no transfiere el archivo.

No consigo ver por qué es.... El firewal del pc con el servidor también lo desactive.

Saludos
Arriba
buho Ver desplegable
Administrador
Administrador
Avatar

Unido: 10/Abril/2004
Localización: Lejos,por favor
Estado: Sin conexión
Puntos: 11225
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita buho Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 15/Noviembre/2017 a las 09:59
¿Puedes hacer una prueba en la línea de comandos? (Lo que antes era el "viejo" MsDos
En la ventana de la línea de comandos puedes ir viendo la respuesta del servidor y ver donde se queda colgado.

La técnica de mi ejemplo es escribir en un TXT todas las órdenes de subida y bajada y luego ejecutar con shell dicho fichero:

NumeroArchivo = FreeFile
 Open "C:\ftp.txt" For Append As #NumeroArchivo
 Print #NumeroArchivo, "Open " & StrFtp
 Print #NumeroArchivo, StrUsuario
 Print #NumeroArchivo, strPassword
 Print #NumeroArchivo, "cd " & strCarpetaRemota
 Print #NumeroArchivo, "put " & StrRutalocalFichero
 Print #NumeroArchivo, "bye"
 Close #NumeroArchivo
 DoEvents
 If VerVentanaDos = False Then
  Retval = Shell("ftp -s:C:\ftp.txt", vbHide)
 Else
  Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
 End If

Lo que tienes que hacer es mirar ese fichero TXT ver las ordenes e ir ejecutandolas una por una con el comando FTP del MsDos y ver donde se queda colgado o ver que orden no ejecuta el servidor FTP remoto.
En mi ejemplo, coloco dicho fichero en el raiz de C así que allí lo podrás ver
Foro Offline GRATIS:BAJAR.
Página WEB:Web

Saludos desde Valladolid
Arriba
buho Ver desplegable
Administrador
Administrador
Avatar

Unido: 10/Abril/2004
Localización: Lejos,por favor
Estado: Sin conexión
Puntos: 11225
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita buho Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 15/Noviembre/2017 a las 11:45
A parte de probar lo que te he dicho y detectar donde se queda pillado el codigo y/o el servidor, no sé como estará ahora el tema de los controles activex de Microsoft (hace años que ya no pruebo nada de esto) pero había un control que te hacía de FTP muy facilmente: El Internet Transfer Control. Mira a ver si dspones de él en tus maquinas. De ser así, insertas el control en el formulario y sería muy facil crear un FTP tanto de subida como de bajada. El Internet Transfer Control tambien puedes encontrarle bajo el nombre de INET
Hay mucha documentacion de VB en internet sobre este control.
Otro que te permitiría subir y bajar ficheros es el Winsock. Y por supuesto la API
Pero primero debes detectar porque en ese FTP concreto no te funciona mi ejemplo.
ACabo de hacer una prueba yo con ese mismo ejemplo y un FTP remoto y funciona a la primera, subiendo y bajando archivos...
Foro Offline GRATIS:BAJAR.
Página WEB:Web

Saludos desde Valladolid
Arriba
buho Ver desplegable
Administrador
Administrador
Avatar

Unido: 10/Abril/2004
Localización: Lejos,por favor
Estado: Sin conexión
Puntos: 11225
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita buho Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 15/Noviembre/2017 a las 11:47
Mira este ENLACE
Foro Offline GRATIS:BAJAR.
Página WEB:Web

Saludos desde Valladolid
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Alcalá Meco
Estado: Sin conexión
Puntos: 2924
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 16/Noviembre/2017 a las 01:29
Prueba a enviar el comando PASS en el momento de conectar y antes del PUT archivo


en el código deBúho habría que añadir 



umeroArchivo = FreeFile
 Open "C:\ftp.txt" For Append As #NumeroArchivo
 Print #NumeroArchivo, "Open " & StrFtp
 Print #NumeroArchivo, StrUsuario
 Print #NumeroArchivo, strPassword
 Print #NumeroArchivo, "PASS"
 Print #NumeroArchivo, "cd " & strCarpetaRemota
 Print #NumeroArchivo, "put " & StrRutalocalFichero
 Print #NumeroArchivo, "bye"
 Close #NumeroArchivo
 DoEvents
 If VerVentanaDos = False Then
  Retval = Shell("ftp -s:C:\ftp.txt", vbHide)
 Else
  Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
 End If



Luis
Quod natura non dat, Salmantica non præstat
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 970
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rokoko Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 16/Noviembre/2017 a las 17:31
Buenas!!
Pues ya esta solucionado, como era de esperar era fallo mio. Ayer en el trabajo pude probarlo en un pc y funciono, con el portatil conectado al movil funciono. O sea que el fallo estaba en casa, mas concretamente el la configuracion del router, no tenia una casilla de ftp activada. Abria la sesion en el servidor pero no iniciaba la tranferencia del archivo, la acabo de activar y a funcionado a la primera.

Lo que no se es por que con el cliente filleZilla funcionaba.......se entederan mejor entre ellos..

Muchas gracias a todos por los consejos

Saludos

Se puede cerrar


Editado por rokoko - 16/Noviembre/2017 a las 17:45
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable