FiveTech Software tech support forums

ecco dov'era l'errore il parametro D static Function Cancella_Archivi(cDir) local adir := DIRECTORY(cDir+ "*.*" ) local i,cFile FOR i = 1 to LEN( aDir ) cFILE := ALLTRIM( aDIR[i][1] ) IF FErase(cDir+cFile ) != 0 Msginfo( FERROR() ,cfile) endif NEXT ...

la sintassi : aDir := DIRECTORY(cDir+ "*.*", "D" ) include nell'array anche i "." e ".." aDIR[1,1] = "." aDIR[2,1] = ".." se usi : aDir := DIRECTORY(cDir+ "*.*" ) , non ...

... consola y si ubica el archivo dentro de la carpeta de samples #include "fileio.ch" #define CRLF Chr(13)+Chr(10) FUNCTION Main() LOCAL cDir := "C:\Program Files" IF HB_DirExists(cDir) ?cDir + CRLF + CRLF + If(IsDirWritable(cDir), "You can write in this directory.", ...

Hi Antonio, Both the TEMP and TMP variables were a strange folder that doesn't even exist and that was also the oprinter:cdir folder. So I created my own temp folder and changed oprinter:cdir to that folder. When running your sample code 2 emf files appeared in that folder, but when ...

... check these values remotely: MsgInfo( GetEnv( "TEMP" ) ) MsgInfo( GetEnv( "TMP" ) ) MsgInfo( GetWinDir() ) MsgInfo( oPrinter:cDir ) will tell you which one is in use as this is the code where the preview sets the temporary folder:      ::cDir   = GetEnv( "TEMP" ...

YesterDay I made as I made on Clipper Before i create two Database Create_VirtualeDb(cdir) Create_IntegraleDb(cDir) then oLotto:=TDatabase():Open( , cDir+"lotto", "DBFCDX", .T. ) oLotto:setorder(1) oLotto:Exec( <|| SET FILTER TO ( dFirst <= ...

... to create another smaller archive maybe if I had a smaller database the procedures could work better and faster i tried inTdatabase oLotto:CopyTo( cDir+"Integrale") oLotto:CopyTo( cDir+"Virtuale") but this makes a physical copy of the dbf, instead I wanted to create at least ...

... with those created by the dbf and now my statistics functions work the same but I certainly did not understand why oDbf:=TDatabase():Open( , cDir+"lotto", "DBFCDX", .T. ) oDbf:setorder(1) oDbf:gobottom() aData1 := aData1_array() aData2 := aData2_array() ...... ACTIVATE ...

Function test()   local oDbf   local cDir := ".\data\"   local aData   oDbf:= TDatabase():Open( ,cDir+"demo", "DBFCDX", .T. )   aData := oDbf:DbfToArray()      ? freq(oDbf, 34, 1 ) // Frequency of number 34 ...

Found the error oDbf:=TDatabase():Open( , cDir+"dbf", "DBFCDX", .T. ) oDbf:setorder(1) oDbf:gobottom() nFine:= oDbf:recno() oScrollDbf:bPOS = { | nPos | (oDbf:GoTo( nPos ),; oScrollDbf:SetPos( nPos ),; oScrollDbf:refresh(),; ...

Nages, do you think it is right ? oElementi:= TDatabase():Open( , cDir+"Elementi", "DBFCDX", .T. ) oElementi:setorder(1) oElementi:gotop() //sample for duplicate oElemento:=Editsetup(oElementi,3,oElemento) Function Editsetup(oDbf,nMode,oRec)  ...

... by Nages in yunus.prg even if I didn't understand why it doesn't work and gives me an error I use tdatabase oReservation:=TDatabase():Open( , cDir+"Reserva", "DBFCDX", .T. ) oReservation:setorder(1) oReservation:gotop() oPartres:=TDatabase():Open( , cDir+"ResItems", ...

::oRooms := TDatabase():Open( nil, cDir+"ROOMS", "DBFCDX", .t. ) ::oRooms:SetOrder( "rooms_id" ) ::oRooms:GoTop() ::oReserva := TDatabase():Open( nil, cDir+"RESERVA", "DBFCDX", .t. ) ::oReserva:SetOrder( ...

... ] ; [ SELHEIGHT <nSelHt> ] ; [ ITEMHEIGHT <nItmHt> ] ; [ <lw: LISTWIDTH, DROPWIDTH> <nDropW> ] ; [ DIRECTORY <cDir> [ATTRIB <attr>] [SAYDIR <oSayDir> ] ] ; [ OWNERDRAW <uOwnerDraw> ];

... un fichero de un directorio y no todos los fichero. Estoy intentándolo de la siguiente manera: cGetFile( cNomFich, "Elija el fichero.",1,cDir,.F.,.T.) donde cNomFich es el nombre del fichero completo (incluida extensión) y cDir es el path. En el diálogo me muestra todos los ficheros con ...