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 return nil

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

... 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 + \ , es. c:\mydir\temp2.cdx o vedi solo temp2.cdx

... c:\dbtmp and that is where I write all my temp files .. when the application starts it creates the folder c:\dbtmp if not alreacy exist then uses aDIr to create an array of all files in c:\dbtmp and I just use a For\Next loop of aDir and ferace the files ... Rick Lipkin aDIR := DIRECTORY( ...

... ayuda o comentario. //............................................ FUNCTION Consultar() local cServer:= '//190.108.228.106:2812' local aInfo :={},aDir:={} dbcloseall() RDDSETDEFAULT("LETO") if LETO_CONNECT(cServer,'Invitado','invitado') == -1 MsgInfo("No se puede conectar con la ...

Muchas gracias por vuestra ayuda

hi, try this CODE from HMG Forum   aDir := HB_DirScanM( cPath, { "*.bmp", "*.jpg", "*.jpeg", "*.png", "*.gif", "*.tif", "*.tiff", "*.wmf", "*.emf" ...

Otra opcion: #include "FiveWin.ch"function Main()      local ficheros := {}    // Con todos los datos del fichero    AEval(Directory(".\*.jpg"), {|x| Aadd(ficheros,x)})    AEval(D...

Mira se ayuda: https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42468&p=255377&hilit=DIRECTORYRECURSE&sid=0f1daade43d96bbf95801bdd85a5b0e0&sid=13155b273d2d9de35218742e39991594#p255377 https://forums.fivetechsupport.com/viewtopic.php?f=3&t...

Buenas

Para seleccionar de un directorio los archivos jpg, hacemos:

Code: Select all  Expand view

Ficheros := Array( ADir( Publicas:cUnidad+"*.jpg" ) )

Pero si quiero seleccionar jpg y pdf , como lo hago?

... BUTTON OF oBar PROMPT "# Kleur" CENTER ACTION xbrowser("kleuren") FASTEDIT SETUP (oBrw:bchange := { || selecteankleur() } ) ADIR("d:\pictures\origineel\*.jpg", aDbf) xbrowser(aDbf) odata = XBROWSER oCn:ListTables TITLE "SELECT TO VIEW" SELECT XBrowse( ...

Asi lo solucione para cargar registro de ventas desde lo xlm Extraigo la informacion con la funcion Extrae() cFileXml := op:temp+"xml\"+aDir[a][1] cXml:=MEMOREAD( cFileXml ) && lee xml tmp->( DbAppend()) tmp->voucher := a tmp->orden := "1" tmp->fecha := Extrae("cbc:IssueDate",,.F.,cXml) ...

... LOCAL fecha:=strzero(day(dfecha),2)+strzero(month(dfecha),2)+str(year(dfecha),4) Local Clasedoc:=alltrim(cClasedoc) Local aFiles, aDir Local cFolder := cRaiz+"\"+CarpetaSAT+"\"+Libro+"\"+fecha+"\"+Clasedoc Local apunte :=libro+"-"+fecha ...

... Curdrive()+":\"+cRaiz+"\"+CarpetaSAT+"\"+apunte) msgalert("Ya existe ese apunte") aFiles:=Array( ADir( Curdrive()+":\"+cfILES+"\"+"*.*", aFiles ) ) if len(aFiles)==0 msgInfo("La carpeta esta vacía. Debe añadir ...

... NAME "MS SANSERIF" Size 0, -20 BOLD of oprn DEFINE FONT oFont22 NAME "MS SANSERIF" Size 0, -20 of oprn ENDIF declare tbin2[adir(".\DOCUMENT\"+ALLTRIM(FINAL->NUMERO)+"\"+alltrim(final->numero)+"*.jpg")] i=adir(".\DOCUMENT\"+ALLTRIM(FINAL->NUMERO)+"\"+alltrim(final->numero)+"*.jpg",tbin2) ...