FiveTech Software tech support forums

LOCAL xPath := "C:\PDF\" * --- Elimina File che Iniziano con CLI_...PDF AEVAL(DIRECTORY(xPath + "CLI_*.PDF"),{|aFile|FERASE(xPath + aFile[F_NAME])} ) nel tuo comando : cFILE := ALLTRIM( aDIR[i][1] ) fai un display della variabile cFILE se comprende il path completo + ...

Dear Marc,

AEval( Directory( "*.prg" ), { | aFile | CopyFile( aFile[ 1 ], "path\" + aFile[ 1 ] ) } )

... es la unica diferencia que he encontrado. este mi proceso alguna sugerencia muy agradecidos: Function VerUpdate() local oInternet,oFtp,oWait local aFiles,cFile,mFile:={} local cServer := "ftp.servidor.com" local cUser := "user@servidor.com" local cpassword:= "clave" ...

... local oInternet := TInternet():New() local oFtp := TFtp():New( "speedtest.tele2.net", oInternet,"anonymous" ) local aFiles if !Empty( oFtp:hFTP ) aFiles := oFtp:Directory( "*.*" ) MsgInfo( Len(aFiles),"aFiles" ) AEval( aFiles, { | aFile | MsgInfo( ...

... ADel(<aArray>,<nElement>,[<lShrink>])->aTarget ADir([<cFileSpec>],[<aFilenames>],[<aSizes>],[<aDates>],[<aTimes>],[<aAttributes>])->nFiles ADSBlob2File(cFileName,cFieldName)->lSuccess ...

Each attachment has to be an array of two items:

AADD( aFile, { "fullpath and filename", "filename only" } )

EMG

Arerra, The error message you posted before is occurring in the second line here (6394 in ADORDD.PRG): if lOverWrite hb_adoRddDrop( oCn, cBaseDir + aFile[ F_NAME ], , , DBEngine ) // erroring here endif But since you are passing .f. for lOverwrite, that line is not being executed, so it must be ...

... .\prg\TSBUTTON.PRG(166) Error E0019 #error: 'Class "TSButton" not declared for method: New( nTop, nLeft, cPrompt, oWnd, aResource, aFile, aSize, lPixel, bActio n, bWhen, bValid, lDefault, oFont, cMsg, cToolTip, nHelpId, cBorder, lCancel, l Adjust, aColors, nCaptPos, lOpaque, oPBrush, ...

... > I reached this point : serverconnection, but the copyprocess doesn't start. I listed the homepage-directory : aFiles = oFTP:Directory( "*.*" ) // , "D" ) AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } ) results : ------------------ ...

... oInternet := tInternet():New()oFtp      := tFtp():New(cIp,oInternet,cFtpUserName,cFtpPassword) aFiles:=oFtp:Directory(cFolderName+"\"*.* ) Display the contents of the aFile to the user to choose the required file and then download ...

... aPag LOCAL cBin :=Lower(GetModuleFileName( GetInstance() )) LOCAL cFileDir:="FILES.DBF" LOCAL cFilePag:="FILESPAG.DBF" LOCAL aFile,I DEFAULT cFile:=cBin SET DELETE ON IF !FILE(cFile) MsgAlert("Archivo "+cFile+" no Existe") RETURN NIL ENDIF ISTABLAS(cFileDir,cFilePag) ...

Karinha, Checa estas funciones, a mi me funcionan!! STATIC FUNCTION Comprime(cFile,aFile) LOCAL oDlg,oMeter,oText,cMsg,nLen,lVal,nActual:=0 nLen:=Len(aFile) DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere, reuniendo archivos..." @ 0.5, 2 SAY oText ...

... detalles que vale la pena comentar, porque sin ellos no me funcionó: 1. Cambié la función CurDrive() por hb_CurDrive() 2. Modifiqué la línea aadd( aFile, cFile1 ) por aadd( aFile, left( cFile1, at( chr( 0 ), cFile1 ) - 1 ) ), porque si no, tenía problemas cuando solo seleccionaban un archivo. Muchas ...

Jairo nColor:=ChooseColor() nRedText:=nRGBRed(nColor) nGreenText:=nRGBGreen(nColor) nBlueText:=nRGBBlue(nColor) remplazas en tu dbf afile->Rojo := nRedText afile->Verde := nGreenText afile->Azul := nBlueText y cuando quieras verlo REDEFINE SAY PROMPT "color de mi texto" ...

Hola a todos. Tengo una aplicaciòn con opcion de Copias de Respaldo, con la siguiente linea lOk:= HB_ZipFile( cNameZip, aFile, 9,{|x,i| PINTAR(i, nLast, oProg) } ,; TRUE, cCodAlm, TRUE, FALSE ) //, pFileProgress ) donde cCodAlm es una variable alfanumerica de 3 digitos que constituye ...