Para Felipe
Publicado por antonio (1271 intervenciones) el 12/06/2012 18:54:42
Hola Felipe:
Antes que nada te agradezco tu fina atencion...
ya realice las pruebas pero nada, no consigo hacerlo funcionar:
lo que hice fue lo siguiente:
integer li_File
//Se crea archivo bat que descarga los archivos
li_File = FileOpen("c:\micarpeta\descargaftp.bat", LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_File, 'cd c:\micarpeta')
FileWrite(li_File, 'ftp')
FileWrite(li_File, 'open')
FileWrite(li_File, 'ftp://ftp2.sat.gob.mx/agti_servicio_ftp/verifica_comprobante_ftp/
' )
FileWrite(li_File, '') // No lleva usuario para ingresar
FileWrite(li_File, '') // no lleva password para ingresa
FileWrite(li_File, 'prompt') // Esto no se para que sirva
FileWrite(li_File, 'binary')
FileWrite(li_File, 'mget *.txt ')
FileWrite(li_File, 'bye')
FileClose(li_File)
//itera para dar un tiempo a que se cree el archivo completamente
DO WHILE NOT FileExists('c:\micarpeta\descargaftp.bat')
Yield()
SetPointer(HourGlass!)
LOOP
SetPointer(Arrow!)
//se ejecuta el bat para descargar los archivos del ftp
run('c:\micarpeta\descargaftp.bat')
cuando doy el run solo parece la ventana negra del DOS y se queda en ftp y de ahi en adelante ya no se como funciona esto.
Te agradezco me puedas explicar un poquito mas ya que ando perdido
Antes que nada te agradezco tu fina atencion...
ya realice las pruebas pero nada, no consigo hacerlo funcionar:
lo que hice fue lo siguiente:
integer li_File
//Se crea archivo bat que descarga los archivos
li_File = FileOpen("c:\micarpeta\descargaftp.bat", LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_File, 'cd c:\micarpeta')
FileWrite(li_File, 'ftp')
FileWrite(li_File, 'open')
FileWrite(li_File, 'ftp://ftp2.sat.gob.mx/agti_servicio_ftp/verifica_comprobante_ftp/
' )
FileWrite(li_File, '') // No lleva usuario para ingresar
FileWrite(li_File, '') // no lleva password para ingresa
FileWrite(li_File, 'prompt') // Esto no se para que sirva
FileWrite(li_File, 'binary')
FileWrite(li_File, 'mget *.txt ')
FileWrite(li_File, 'bye')
FileClose(li_File)
//itera para dar un tiempo a que se cree el archivo completamente
DO WHILE NOT FileExists('c:\micarpeta\descargaftp.bat')
Yield()
SetPointer(HourGlass!)
LOOP
SetPointer(Arrow!)
//se ejecuta el bat para descargar los archivos del ftp
run('c:\micarpeta\descargaftp.bat')
cuando doy el run solo parece la ventana negra del DOS y se queda en ftp y de ahi en adelante ya no se como funciona esto.
Te agradezco me puedas explicar un poquito mas ya que ando perdido
Valora esta pregunta


0