
problemas al hacer un zip
Publicado por jhean Carlos (128 intervenciones) el 06/12/2008 23:19:49
Tengo un problema en el direccionamiento de mi programa.
cuando, hago un clic en mi programa procopias.scx directamente y luego lo ejecuto me funciona bien para mi compresion de mi base de datos, hasta ahi todo ok
pero cuando lo ejecuto desde mi proyecto principal desde el menu, nada de nada me aparece un error que dice.
NOSE ENCUENTRA EL PROGRAMA AZIP
aqui esta mi codigo para ver que esta mal o que direccionamiento tengo que corregir.
----------------------------------------------------------------------------
select prueba
if reccount()>0
thisform.nbarra.visible=.t.
thisform.nbarra.max=reccount()
go top
do while !eof()
thisform.label2.caption=allt(nombre) && muestra el nombre del archivo que se está compactando
thisform.nbarra.value=recno() && agrego el primer valor a la barra
thisform.label1.caption=allt(str(int(recno()/narchivos*100)))+"%"
=azip(.T.,allt(thisform.text2.value),rutat+allt(nombre))
skip
enddo
messagebox("Proceso copia de seguridad terminado",48,"Advertencia")
thisform.nbarra.visible=.f.
else
messagebox("Debes seleccionar el directorio donde se hará la copia",48,"Advertencia")
thisform.command3.setfocus
endif
-------------------------------------------------------------------------------
EN ESTE ES EL LUGAR DE MI CODIGO QUE ME DICE QUE NO LO ENCUENTRA COMO PUEDO HACER PARA CORREGIRLO?
=azip(.T.,allt(thisform.text2.value),rutat+allt(nombre))
-------------------------------------------------------------------------------
cuando, hago un clic en mi programa procopias.scx directamente y luego lo ejecuto me funciona bien para mi compresion de mi base de datos, hasta ahi todo ok
pero cuando lo ejecuto desde mi proyecto principal desde el menu, nada de nada me aparece un error que dice.
NOSE ENCUENTRA EL PROGRAMA AZIP
aqui esta mi codigo para ver que esta mal o que direccionamiento tengo que corregir.
----------------------------------------------------------------------------
select prueba
if reccount()>0
thisform.nbarra.visible=.t.
thisform.nbarra.max=reccount()
go top
do while !eof()
thisform.label2.caption=allt(nombre) && muestra el nombre del archivo que se está compactando
thisform.nbarra.value=recno() && agrego el primer valor a la barra
thisform.label1.caption=allt(str(int(recno()/narchivos*100)))+"%"
=azip(.T.,allt(thisform.text2.value),rutat+allt(nombre))
skip
enddo
messagebox("Proceso copia de seguridad terminado",48,"Advertencia")
thisform.nbarra.visible=.f.
else
messagebox("Debes seleccionar el directorio donde se hará la copia",48,"Advertencia")
thisform.command3.setfocus
endif
-------------------------------------------------------------------------------
EN ESTE ES EL LUGAR DE MI CODIGO QUE ME DICE QUE NO LO ENCUENTRA COMO PUEDO HACER PARA CORREGIRLO?
=azip(.T.,allt(thisform.text2.value),rutat+allt(nombre))
-------------------------------------------------------------------------------
Valora esta pregunta


0