Error en cGetFile o algo

Error en cGetFile o algo

Postby Ruben D. Fernandez » Mon Feb 25, 2008 3:18 pm

Amigos:
Muestro una foto, que la primera vez no tiene nada.
Al pulsar enter va a un directorio para seleccionarla y
al hacer eso se va la aplicación.
Funciona ok en xP, NO FUNCIONA EN VISTA

Dejo aqui el código.

FUNCTION OtroCopiarFotoRI()
Local cFileACopiar := cGetFile( "*.jpg", "Seleccione la foto" )
Local cDestino := "C:\Masterform\Fotos\"

cNombreFoto:= "I"+SubStr(irNroNuevo,-7)+".JPG"
cDestino := cDestino+cNombreFoto

IF !Empty(cFileACopiar)
COPYFILE( cFileACopiar, cDestino)
Endif

cNombreFoto:= cDestino

oImage:LoadBmp(cNombrefoto)

RETURN(.T.)


Agradezco cualquier ayuda.

Saludos y Gracias

Ruben Fernandez-
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 52 guests