__COPYFILE

[Rolando]

Hola:
Alguien sabe si esta funcion no es capaz de copiar archivos con
nombre largo o si hay alguna que lo pueda hacer.
Saludos y gracias.
__COPYFILE(0)
Error BASE/2012 Open error: D:PRGWCamara( CAREO ) Sertorio Osvaldo (
causa 1885, ca. 100 . 29-9-1999 ).wpd
Argumentos: ()
(DOS Error 2)
***************************** Registro de errores
*****************************
Fecha: 06/12/07
Hora: 11:13:44
Memoria libre: 567236
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.4.0 Version 1.4
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 2012
Estado: .T.
Descripción: Open error
Operación: D:PRGWCamara( CAREO ) Sertorio Osvaldo ( causa 1885,
ca. 100 . 29-9-1999 ).wpd
Argumentos:
Fichero:
Código error SO: 2
Pila de llamadas:
__COPYFILE (0)
TFORM2:BTNBMP2CLICK (67)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (99)
(b)XCONTROL:XCONTROL (140)
TBTNBMP:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (253)
TFORM2:WMCOMMAND (884)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (15)
--
Rolando Sarrailh
Teléfono,
internacional +54-221-489-1480
nacional 0221-489-1480
local 489-1480
rsarrailh@gmail.com

[Bingen Ugaldebere]

El Dos Error 2 indica que ese archivo no existe, estas seguro de que su
nombre es correcto??
De todas maneras esta es la función que me preparé yo para hacer copias
de uno o varios archivos de forma masiva con ventana de Windows de copia
incluida. SI quieres más funciones para mover, enviar a la papelera, etc
me las pides y te las mando por privado que aca con el manual en DOC y
ejemplos no caben.
Function MsgCopy(acOrigName, acDestName, cTitle, lFilesOnly, lOkToAll,
lAlarm )
Local oFileOperation, aFrom:={}, aTo:={}, lResult:=.F.
Default cTitle To ""
DEFAULT acOrigName To ""
DEFAULT acDestName To ""
DEFAULT lFilesOnly To .T.
DEFAULT lOkToAll To .T.
DEFAULT lAlarm To .F.
//Cargar los Array
If ValType(acOrigName)="C"
Aadd(aFrom,acOrigName)
ElseIf ValType(acOrigName)="A"
aFrom:=acOrigName
Endif
If ValType(acDestName)="C"
Aadd(aTo,acDestName)
ElseIf ValType(acDestName)="A"
aTo:=acDestName
Endif
WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
:nAction := foCOPY
:aFrom := aFrom
:aTo := aTo
If cTitle<>""
:cText := cTitle
Endif
:lAutoRename := .T.
:lFilesOnly := lFilesOnly
:lNoConfirmation := lOkToAll
:lNoConfirmMkDir := lOkToAll
:lNoErrorUI := lAlarm
:Create()
lResult:=:Run()
END
If oFileOperation:lAborted
lResult:=.F.
Endif
Return lResult
MANUAL DE USO
MsgCopy([cOrigName], [cDestName], [cFrom] , [cTo], [cTitle],
[lDeleteIfExist], [lAlarm])
Esta función en realidad sirve para copia uno o varios archivos de una
carpeta a otra o de una unidad a otra, pero para ello muestra un
formulario similar al de Windows con un Avi en movimiento
Recibe
cOrigName Archivo/s a copiar. Se deben de indicar con el Path (si no
será el del programa) y se admiten sí­mbolos comodí­n *?
cDestName Destino de los archivo/s a copiar. Se debe de indicar el Path
y si la carpeta de destino no existe será creada.
NOTA: si no se indica nombre de archivo en destino este path de destino
es solo una carpeta y por lo tanto ha de terminar obligatoriamente con
una barra de carpeta
cFrom Opcional. Un texto que es mostrado para indicar antes del archivo
origen. Por defecto “De”
cTo Opcional. Un texto que es mostrado para indicar antes del archivo
destino. Por defecto “a”
cTitle Opcional. El tí­tulo de la ventana por defecto “Listado del
contenido de la tabla”
lDeleteIfExixt Opcional. Valor lógico que si es .T. indica que en el
caso de existir el fichero en destino lo borra sin preguntar nada. Por
defecto es .T.
lAlarm Opcional. Valor lógico que si es .T. indica que se muestren todos
los posibles problemas o errores en pantalla, si es .F. no se indica
nada. Por defecto es .T.
Devuelve
..T. si la operación ha tenido éxito, .F. si no.

[zeasoftware]

Me cuelo entre los pedidos?
Gracias de antemano.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=466ee8d7@ozsrv2.ozlan.local...]466ee8d7@ozsrv2.ozlan.local...[/email]
> El Dos Error 2 indica que ese archivo no existe, estas seguro de que su
> nombre es correcto??
>
> De todas maneras esta es la función que me preparé yo para hacer copias de
> uno o varios archivos de forma masiva con ventana de Windows de copia
> incluida. SI quieres más funciones para mover, enviar a la papelera, etc
> me las pides y te las mando por privado que aca con el manual en DOC y
> ejemplos no caben.
>
>
> Function MsgCopy(acOrigName, acDestName, cTitle, lFilesOnly, lOkToAll,
> lAlarm )
> Local oFileOperation, aFrom:={}, aTo:={}, lResult:=.F.
>
> Default cTitle To ""
> DEFAULT acOrigName To ""
> DEFAULT acDestName To ""
> DEFAULT lFilesOnly To .T.
> DEFAULT lOkToAll To .T.
> DEFAULT lAlarm To .F.
>
> //Cargar los Array
> If ValType(acOrigName)="C"
> Aadd(aFrom,acOrigName)
> ElseIf ValType(acOrigName)="A"
> aFrom:=acOrigName
> Endif
> If ValType(acDestName)="C"
> Aadd(aTo,acDestName)
> ElseIf ValType(acDestName)="A"
> aTo:=acDestName
> Endif
>
> WITH OBJECT oFileOperation := TFileOperationDlg():New(
> GetActiveform() )
> :nAction := foCOPY
> :aFrom := aFrom
> :aTo := aTo
> If cTitle<>""
> :cText := cTitle
> Endif
> :lAutoRename := .T.
> :lFilesOnly := lFilesOnly
> :lNoConfirmation := lOkToAll
> :lNoConfirmMkDir := lOkToAll
> :lNoErrorUI := lAlarm
> :Create()
> lResult:=:Run()
> END
>
> If oFileOperation:lAborted
> lResult:=.F.
> Endif
>
> Return lResult
>
>
> MANUAL DE USO
>
>
> MsgCopy([cOrigName], [cDestName], [cFrom] , [cTo], [cTitle],
> [lDeleteIfExist], [lAlarm])
>
> Esta función en realidad sirve para copia uno o varios archivos de una
> carpeta a otra o de una unidad a otra, pero para ello muestra un
> formulario similar al de Windows con un Avi en movimiento
>
> Recibe
> cOrigName Archivo/s a copiar. Se deben de indicar con el Path (si no será
> el del programa) y se admiten símbolos comodín *?
> cDestName Destino de los archivo/s a copiar. Se debe de indicar el Path y
> si la carpeta de destino no existe será creada.
> NOTA: si no se indica nombre de archivo en destino este path de destino es
> solo una carpeta y por lo tanto ha de terminar obligatoriamente con una
> barra de carpeta
> cFrom Opcional. Un texto que es mostrado para indicar antes del archivo
> origen. Por defecto “De”
> cTo Opcional. Un texto que es mostrado para indicar antes del archivo
> destino. Por defecto “a”
> cTitle Opcional. El título de la ventana por defecto “Listado del
> contenido de la tabla”
> lDeleteIfExixt Opcional. Valor lógico que si es .T. indica que en el caso
> de existir el fichero en destino lo borra sin preguntar nada. Por defecto
> es .T.
> lAlarm Opcional. Valor lógico que si es .T. indica que se muestren todos
> los posibles problemas o errores en pantalla, si es .F. no se indica nada.
> Por defecto es .T.
>
> Devuelve
> .T. si la operación ha tenido éxito, .F. si no.

[pablogarciau]

Yo tambien me apunto en los pedidos
Saludos

[jrcpoli-quitar]

Saludos:
Siempre es bueno tener cosas hechas por lo demás, así­ que si no te
importa me apunto.
José Ramón Castro.
Bingen Ugaldebere escribió:
> El Dos Error 2 indica que ese archivo no existe, estas seguro de que su
> nombre es correcto??
>
> De todas maneras esta es la función que me preparé yo para hacer copias
> de uno o varios archivos de forma masiva con ventana de Windows de copia
> incluida. SI quieres más funciones para mover, enviar a la papelera, etc
> me las pides y te las mando por privado que aca con el manual en DOC y
> ejemplos no caben.
>
>
> Function MsgCopy(acOrigName, acDestName, cTitle, lFilesOnly, lOkToAll,
> lAlarm )
> Local oFileOperation, aFrom:={}, aTo:={}, lResult:=.F.
>
> Default cTitle To ""
> DEFAULT acOrigName To ""
> DEFAULT acDestName To ""
> DEFAULT lFilesOnly To .T.
> DEFAULT lOkToAll To .T.
> DEFAULT lAlarm To .F.
>
> //Cargar los Array
> If ValType(acOrigName)="C"
> Aadd(aFrom,acOrigName)
> ElseIf ValType(acOrigName)="A"
> aFrom:=acOrigName
> Endif
> If ValType(acDestName)="C"
> Aadd(aTo,acDestName)
> ElseIf ValType(acDestName)="A"
> aTo:=acDestName
> Endif
>
> WITH OBJECT oFileOperation := TFileOperationDlg():New( GetActiveform() )
> :nAction := foCOPY
> :aFrom := aFrom
> :aTo := aTo
> If cTitle<>""
> :cText := cTitle
> Endif
> :lAutoRename := .T.
> :lFilesOnly := lFilesOnly
> :lNoConfirmation := lOkToAll
> :lNoConfirmMkDir := lOkToAll
> :lNoErrorUI := lAlarm
> :Create()
> lResult:=:Run()
> END
>
> If oFileOperation:lAborted
> lResult:=.F.
> Endif
>
> Return lResult
>
>
> MANUAL DE USO
>
>
> MsgCopy([cOrigName], [cDestName], [cFrom] , [cTo], [cTitle],
> [lDeleteIfExist], [lAlarm])
>
> Esta función en realidad sirve para copia uno o varios archivos de una
> carpeta a otra o de una unidad a otra, pero para ello muestra un
> formulario similar al de Windows con un Avi en movimiento
>
> Recibe
> cOrigName Archivo/s a copiar. Se deben de indicar con el Path (si no
> será el del programa) y se admiten sí­mbolos comodí­n *?
> cDestName Destino de los archivo/s a copiar. Se debe de indicar el
> Path y si la carpeta de destino no existe será creada.
> NOTA: si no se indica nombre de archivo en destino este path de destino
> es solo una carpeta y por lo tanto ha de terminar obligatoriamente con
> una barra de carpeta
> cFrom Opcional. Un texto que es mostrado para indicar antes del
> archivo origen. Por defecto “De”
> cTo Opcional. Un texto que es mostrado para indicar antes del archivo
> destino. Por defecto “a”
> cTitle Opcional. El tí­tulo de la ventana por defecto “Listado del
> contenido de la tabla”
> lDeleteIfExixt Opcional. Valor lógico que si es .T. indica que en el
> caso de existir el fichero en destino lo borra sin preguntar nada. Por
> defecto es .T.
> lAlarm Opcional. Valor lógico que si es .T. indica que se muestren
> todos los posibles problemas o errores en pantalla, si es .F. no se
> indica nada. Por defecto es .T.
>
> Devuelve
> .T. si la operación ha tenido éxito, .F. si no.

[Bingen Ugaldebere]

Enviado a todos por privado.
Salu2.

[Xevi]

Siempre me ha gustado aprender de los maestros...
Me apunto al pedido!!!
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=466ee8d7@ozsrv2.ozlan.local...]466ee8d7@ozsrv2.ozlan.local...[/email]
> El Dos Error 2 indica que ese archivo no existe, estas seguro de que su
> nombre es correcto??
>
> De todas maneras esta es la función que me preparé yo para hacer copias de
> uno o varios archivos de forma masiva con ventana de Windows de copia
> incluida. SI quieres más funciones para mover, enviar a la papelera, etc
> me las pides y te las mando por privado que aca con el manual en DOC y
> ejemplos no caben.
>
>
> Function MsgCopy(acOrigName, acDestName, cTitle, lFilesOnly, lOkToAll,
> lAlarm )
> Local oFileOperation, aFrom:={}, aTo:={}, lResult:=.F.
>
> Default cTitle To ""
> DEFAULT acOrigName To ""
> DEFAULT acDestName To ""
> DEFAULT lFilesOnly To .T.
> DEFAULT lOkToAll To .T.
> DEFAULT lAlarm To .F.
>
> //Cargar los Array
> If ValType(acOrigName)="C"
> Aadd(aFrom,acOrigName)
> ElseIf ValType(acOrigName)="A"
> aFrom:=acOrigName
> Endif
> If ValType(acDestName)="C"
> Aadd(aTo,acDestName)
> ElseIf ValType(acDestName)="A"
> aTo:=acDestName
> Endif
>
> WITH OBJECT oFileOperation := TFileOperationDlg():New(
> GetActiveform() )
> :nAction := foCOPY
> :aFrom := aFrom
> :aTo := aTo
> If cTitle<>""
> :cText := cTitle
> Endif
> :lAutoRename := .T.
> :lFilesOnly := lFilesOnly
> :lNoConfirmation := lOkToAll
> :lNoConfirmMkDir := lOkToAll
> :lNoErrorUI := lAlarm
> :Create()
> lResult:=:Run()
> END
>
> If oFileOperation:lAborted
> lResult:=.F.
> Endif
>
> Return lResult
>
>
> MANUAL DE USO
>
>
> MsgCopy([cOrigName], [cDestName], [cFrom] , [cTo], [cTitle],
> [lDeleteIfExist], [lAlarm])
>
> Esta función en realidad sirve para copia uno o varios archivos de una
> carpeta a otra o de una unidad a otra, pero para ello muestra un
> formulario similar al de Windows con un Avi en movimiento
>
> Recibe
> cOrigName Archivo/s a copiar. Se deben de indicar con el Path (si no será
> el del programa) y se admiten símbolos comodín *?
> cDestName Destino de los archivo/s a copiar. Se debe de indicar el Path y
> si la carpeta de destino no existe será creada.
> NOTA: si no se indica nombre de archivo en destino este path de destino es
> solo una carpeta y por lo tanto ha de terminar obligatoriamente con una
> barra de carpeta
> cFrom Opcional. Un texto que es mostrado para indicar antes del archivo
> origen. Por defecto "De"
> cTo Opcional. Un texto que es mostrado para indicar antes del archivo
> destino. Por defecto "a"
> cTitle Opcional. El título de la ventana por defecto "Listado del
> contenido de la tabla"
> lDeleteIfExixt Opcional. Valor lógico que si es .T. indica que en el caso
> de existir el fichero en destino lo borra sin preguntar nada. Por defecto
> es .T.
> lAlarm Opcional. Valor lógico que si es .T. indica que se muestren todos
> los posibles problemas o errores en pantalla, si es .F. no se indica nada.
> Por defecto es .T.
>
> Devuelve
> .T. si la operación ha tenido éxito, .F. si no.

[Bingen Ugaldebere]

Xevi que me elevas de categorí­a a maestro y me pongo colorado, de
momento con ser aprendiz de Xailer tengo bastante, pero muchas gracias.
Te lo he mandado por privado

[Josep Castells]

Hola:
Desde mi modesta experiencia, quiero agradecer a Bingen, su colaboración
en facilitar estas rutinas, que en honor a la verdad, las baje de
mundoxbase.info
a finales de 2006.
Supongo que el contenido debe ser el mismo.
Si han sido ampliadas o modificadas, te agradeceria me las mandes para
poder actualizarlas.
He tenido ocasión de utilizar algunas de ellas y son excelentes.
Mención aparte la fantástica documentación que se acompaña.
Repito muchisimas gracias !!!!!!.
Josep Castells
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=466ee8d7@ozsrv2.ozlan.local...]466ee8d7@ozsrv2.ozlan.local...[/email]
> El Dos Error 2 indica que ese archivo no existe, estas seguro de que su
> nombre es correcto??
>
> De todas maneras esta es la función que me preparé yo para hacer copias
> de uno o varios archivos de forma masiva con ventana de Windows de copia
> incluida. SI quieres más funciones para mover, enviar a la papelera, etc
> me las pides y te las mando por privado que aca con el manual en DOC y
> ejemplos no caben.
>
>
> Function MsgCopy(acOrigName, acDestName, cTitle, lFilesOnly, lOkToAll,
> lAlarm )
> Local oFileOperation, aFrom:={}, aTo:={}, lResult:=.F.
>
> Default cTitle To ""
> DEFAULT acOrigName To ""
> DEFAULT acDestName To ""
> DEFAULT lFilesOnly To .T.
> DEFAULT lOkToAll To .T.
> DEFAULT lAlarm To .F.
>
> //Cargar los Array
> If ValType(acOrigName)="C"
> Aadd(aFrom,acOrigName)
> ElseIf ValType(acOrigName)="A"
> aFrom:=acOrigName
> Endif
> If ValType(acDestName)="C"
> Aadd(aTo,acDestName)
> ElseIf ValType(acDestName)="A"
> aTo:=acDestName
> Endif
>
> WITH OBJECT oFileOperation := TFileOperationDlg():New(
GetActiveform() )
> :nAction := foCOPY
> :aFrom := aFrom
> :aTo := aTo
> If cTitle<>""
> :cText := cTitle
> Endif
> :lAutoRename := .T.
> :lFilesOnly := lFilesOnly
> :lNoConfirmation := lOkToAll
> :lNoConfirmMkDir := lOkToAll
> :lNoErrorUI := lAlarm
> :Create()
> lResult:=:Run()
> END
>
> If oFileOperation:lAborted
> lResult:=.F.
> Endif
>
> Return lResult
>
>
> MANUAL DE USO
>
>
> MsgCopy([cOrigName], [cDestName], [cFrom] , [cTo], [cTitle],
> [lDeleteIfExist], [lAlarm])
>
> Esta función en realidad sirve para copia uno o varios archivos de una
> carpeta a otra o de una unidad a otra, pero para ello muestra un
> formulario similar al de Windows con un Avi en movimiento
>
> Recibe
> cOrigName Archivo/s a copiar. Se deben de indicar con el Path (si no
> será el del programa) y se admiten símbolos comodín *?
> cDestName Destino de los archivo/s a copiar. Se debe de indicar el Path
> y si la carpeta de destino no existe será creada.
> NOTA: si no se indica nombre de archivo en destino este path de destino
> es solo una carpeta y por lo tanto ha de terminar obligatoriamente con
> una barra de carpeta
> cFrom Opcional. Un texto que es mostrado para indicar antes del archivo
> origen. Por defecto “De”
> cTo Opcional. Un texto que es mostrado para indicar antes del archivo
> destino. Por defecto “a”
> cTitle Opcional. El título de la ventana por defecto “Listado del
> contenido de la tabla”
> lDeleteIfExixt Opcional. Valor lógico que si es .T. indica que en el
> caso de existir el fichero en destino lo borra sin preguntar nada. Por
> defecto es .T.
> lAlarm Opcional. Valor lógico que si es .T. indica que se muestren todos
> los posibles problemas o errores en pantalla, si es .F. no se indica
> nada. Por defecto es .T.
>
> Devuelve
> .T. si la operación ha tenido éxito, .F. si no.
>

[Rolando]

Bingen:
El error se produjo porque estaba copiando de una subcarpeta y al
sacar del array el nombre me olvide de sumarle el nombre de la subcarpeta,
pero como no hay mal que por bien no venga me encontre con estas lindas
funciones, te lo agradezco mucho.
Saludos.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=466ee8d7@ozsrv2.ozlan.local...]466ee8d7@ozsrv2.ozlan.local...[/email]
> El Dos Error 2 indica que ese archivo no existe, estas seguro de que su
> nombre es correcto??
>
> De todas maneras esta es la función que me preparé yo para hacer copias de
> uno o varios archivos de forma masiva con ventana de Windows de copia
> incluida. SI quieres más funciones para mover, enviar a la papelera, etc
> me las pides y te las mando por privado que aca con el manual en DOC y
> ejemplos no caben.
>
>
> Function MsgCopy(acOrigName, acDestName, cTitle, lFilesOnly, lOkToAll,
> lAlarm )
> Local oFileOperation, aFrom:={}, aTo:={}, lResult:=.F.
>
> Default cTitle To ""
> DEFAULT acOrigName To ""
> DEFAULT acDestName To ""
> DEFAULT lFilesOnly To .T.
> DEFAULT lOkToAll To .T.
> DEFAULT lAlarm To .F.
>
> //Cargar los Array
> If ValType(acOrigName)="C"
> Aadd(aFrom,acOrigName)
> ElseIf ValType(acOrigName)="A"
> aFrom:=acOrigName
> Endif
> If ValType(acDestName)="C"
> Aadd(aTo,acDestName)
> ElseIf ValType(acDestName)="A"
> aTo:=acDestName
> Endif
>
> WITH OBJECT oFileOperation := TFileOperationDlg():New(
> GetActiveform() )
> :nAction := foCOPY
> :aFrom := aFrom
> :aTo := aTo
> If cTitle<>""
> :cText := cTitle
> Endif
> :lAutoRename := .T.
> :lFilesOnly := lFilesOnly
> :lNoConfirmation := lOkToAll
> :lNoConfirmMkDir := lOkToAll
> :lNoErrorUI := lAlarm
> :Create()
> lResult:=:Run()
> END
>
> If oFileOperation:lAborted
> lResult:=.F.
> Endif
>
> Return lResult
>
>
> MANUAL DE USO
>
>
> MsgCopy([cOrigName], [cDestName], [cFrom] , [cTo], [cTitle],
> [lDeleteIfExist], [lAlarm])
>
> Esta función en realidad sirve para copia uno o varios archivos de una
> carpeta a otra o de una unidad a otra, pero para ello muestra un
> formulario similar al de Windows con un Avi en movimiento
>
> Recibe
> cOrigName Archivo/s a copiar. Se deben de indicar con el Path (si no será
> el del programa) y se admiten símbolos comodín *?
> cDestName Destino de los archivo/s a copiar. Se debe de indicar el Path y
> si la carpeta de destino no existe será creada.
> NOTA: si no se indica nombre de archivo en destino este path de destino es
> solo una carpeta y por lo tanto ha de terminar obligatoriamente con una
> barra de carpeta
> cFrom Opcional. Un texto que es mostrado para indicar antes del archivo
> origen. Por defecto “De”
> cTo Opcional. Un texto que es mostrado para indicar antes del archivo
> destino. Por defecto “a”
> cTitle Opcional. El título de la ventana por defecto “Listado del
> contenido de la tabla”
> lDeleteIfExixt Opcional. Valor lógico que si es .T. indica que en el caso
> de existir el fichero en destino lo borra sin preguntar nada. Por defecto
> es .T.
> lAlarm Opcional. Valor lógico que si es .T. indica que se muestren todos
> los posibles problemas o errores en pantalla, si es .F. no se indica nada.
> Por defecto es .T.
>
> Devuelve
> .T. si la operación ha tenido éxito, .F. si no.

[PILO]

Me apunto el pedido si es posible, gracias

[Paco V]

Pues os garantizo que en persona gana mucho mas.
Abrazos.
Paco V
"Rolando Sarrailh" <rsarrailh@gmail.com> wrote:
>Hola:
> Alguien sabe si esta funcion no es capaz de copiar archivos con
>nombre largo o si hay alguna que lo pueda hacer.
>Saludos y gracias.
>
>__COPYFILE(0)
>Error BASE/2012 Open error: D:PRGWCamara( CAREO ) Sertorio Osvaldo (
>causa 1885, ca. 100 . 29-9-1999 ).wpd
>Argumentos: ()
>(DOS Error 2)
>
>***************************** Registro de errores
>*****************************
>
> Fecha: 06/12/07
> Hora: 11:13:44
> Memoria libre: 567236
> Area actual: 1
>
>------------------------- Información del
>compilador --------------------------
>
> Versión Xailer: Xailer 1.4.0 Version 1.4
> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version:
7
>Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
>
>----------------------- Información detallada del
>error -----------------------
>
> Subsistema: BASE
> Código de error: 2012
> Estado: .T.
> Descripción: Open error
> Operación: D:PRGWCamara( CAREO ) Sertorio Osvaldo ( causa 1885,
>ca. 100 . 29-9-1999 ).wpd
> Argumentos:
> Fichero:
> Código error SO: 2
>
>Pila de llamadas:
> __COPYFILE (0)
> TFORM2:BTNBMP2CLICK (67)
> TBTNBMP:ONCLICK (0)
> TBTNBMP:CLICK (99)
> (b)XCONTROL:XCONTROL (140)
> TBTNBMP:COMMAND (0)
> TSCROLLINGWINCONTROL:WMCOMMAND (253)
> TFORM2:WMCOMMAND (884)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (15)
>
>
>
>--
>Rolando Sarrailh
>Teléfono,
>internacional +54-221-489-1480
>nacional 0221-489-1480
>local 489-1480
>rsarrailh@gmail.com
>
>

[pablogarciau]

Bingen :
Excelente tu trabajo y muy profesional ademas
Quedo muy agradecido de tus atenciones
Saludos

[PILO]

mi correo es pilo(arroba)srmpilo(punto)com
gracias
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:46700068$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Me apunto el pedido si es posible, gracias
>

[Bingen Ugaldebere]

Te lo mandé a Hotmail, pero ahora te lo enví­o a
pilo(arroba)srmpilo(punto)com
Salu2.

[PILO]

Muchisimas gracias
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:4671578f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Te lo mandé a Hotmail, pero ahora te lo envío a
> pilo(arroba)srmpilo(punto)com
>
> Salu2.

[jose.luis]

Rolando,
El nombre del archivo contiene carácteres que no acaba de aceptar muy bien
Windows (los puntos, las comas).
Saludos,
José Luis Capel
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje de noticias
news:[email=466eaff6@ozsrv2.ozlan.local...]466eaff6@ozsrv2.ozlan.local...[/email]
> Hola:
> Alguien sabe si esta funcion no es capaz de copiar archivos con
> nombre largo o si hay alguna que lo pueda hacer.
> Saludos y gracias.
>
> __COPYFILE(0)
> Error BASE/2012 Open error: D:PRGWCamara( CAREO ) Sertorio Osvaldo (
> causa 1885, ca. 100 . 29-9-1999 ).wpd
> Argumentos: ()
> (DOS Error 2)
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 06/12/07
> Hora: 11:13:44
> Memoria libre: 567236
> Area actual: 1
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.4.0 Version 1.4
> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
> Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 2012
> Estado: .T.
> Descripción: Open error
> Operación: D:PRGWCamara( CAREO ) Sertorio Osvaldo ( causa 1885,
> ca. 100 . 29-9-1999 ).wpd
> Argumentos:
> Fichero:
> Código error SO: 2
>
> Pila de llamadas:
> __COPYFILE (0)
> TFORM2:BTNBMP2CLICK (67)
> TBTNBMP:ONCLICK (0)
> TBTNBMP:CLICK (99)
> (b)XCONTROL:XCONTROL (140)
> TBTNBMP:COMMAND (0)
> TSCROLLINGWINCONTROL:WMCOMMAND (253)
> TFORM2:WMCOMMAND (884)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (15)
>
>
>
> --
> Rolando Sarrailh
> Teléfono,
> internacional +54-221-489-1480
> nacional 0221-489-1480
> local 489-1480
> rsarrailh@gmail.com
>

[Rolando]

José Luis:
Funciono el __COPYFILE, era un problema con el path, increible que funcione con esos nombres !!!
Gracias y Saludos.
"José Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje news:[email=46752db9@ozsrv2.ozlan.local...]46752db9@ozsrv2.ozlan.local...[/email]
> Rolando,
>
> El nombre del archivo contiene carácteres que no acaba de aceptar muy bien
> Windows (los puntos, las comas).
>
> Saludos,
> José Luis Capel
>
> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje de noticias
> news:[email=466eaff6@ozsrv2.ozlan.local...]466eaff6@ozsrv2.ozlan.local...[/email]
>> Hola:
>> Alguien sabe si esta funcion no es capaz de copiar archivos con
>> nombre largo o si hay alguna que lo pueda hacer.
>> Saludos y gracias.
>>
>> __COPYFILE(0)
>> Error BASE/2012 Open error: D:PRGWCamara( CAREO ) Sertorio Osvaldo (
>> causa 1885, ca. 100 . 29-9-1999 ).wpd
>> Argumentos: ()
>> (DOS Error 2)
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 06/12/07
>> Hora: 11:13:44
>> Memoria libre: 567236
>> Area actual: 1
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.4.0 Version 1.4
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 2012
>> Estado: .T.
>> Descripción: Open error
>> Operación: D:PRGWCamara( CAREO ) Sertorio Osvaldo ( causa 1885,
>> ca. 100 . 29-9-1999 ).wpd
>> Argumentos:
>> Fichero:
>> Código error SO: 2
>>
>> Pila de llamadas:
>> __COPYFILE (0)
>> TFORM2:BTNBMP2CLICK (67)
>> TBTNBMP:ONCLICK (0)
>> TBTNBMP:CLICK (99)
>> (b)XCONTROL:XCONTROL (140)
>> TBTNBMP:COMMAND (0)
>> TSCROLLINGWINCONTROL:WMCOMMAND (253)
>> TFORM2:WMCOMMAND (884)
>> RUNFORM (0)
>> TAPPLICATION:RUN (209)
>> MAIN (15)
>>
>>
>>
>> --
>> Rolando Sarrailh
>> Teléfono,
>> internacional +54-221-489-1480
>> nacional 0221-489-1480
>> local 489-1480
>> rsarrailh@gmail.com
>>
>
--