FiveTech Software tech support forums

Yo siempre he usado hb_DirScan
https://github.com/Petewg/harbour-core/wiki/hb_D#hb_DirScan

directoryrecurse() no sabía de la existencia de esta función. En wiki.fivetechsoft.com no la he visto y en samples veo 3 ejemplos pero sin parámetros apenas. Algún sitio donde pueda ver como funciona con todos sus parámetros?
Gracias.

... := ""   cPath := "C:\FWH1306\SAMPLES\"   cFile := "TESTE.PRG"   // aFile := DIRECTORYRECURSE( cPath + cFile )   // ou:   aFile := DIRECTORY( cPath + cFile )   If Len(aFile)==0      ...

Hola compañeros: Intengo leer carpeta con subcarpetas y archivos para hacer copias de seguridad. Si hago aFiles := directoryrecurse( "C:\programa\*.*",, .f. )  && funciona PERFECTO Y devuelve matriz llena !! Si lo intento en red local donde los archivos ...

Hola compañeros: Intengo leer carpeta con subcarpetas y archivos para hacer copias de seguridad. Si hago aFiles := directoryrecurse( "C:\programa\*.*",, .f. )  && funciona PERFECTO Y devuelve matriz llena !! Si lo intento en red local donde los archivos ...

Marc,

You can not use this new C file with your xHarbour version, sorry.

What is the bug that you have using DirectoryRecurse() ?

Marc,

Lets compare the source code for function directoryrecurse in both versions and then we fix the old one.

Please post the source code for function directoryrecurse in both versions here

Hi,

I have an old application, using 'xHarbour Compiler build 0.99.71 (SimpLex)'

In that version, there was a problem with the function directoryrecurse.

In the newer version it was fixed. How can I compile the newer c-file (direct.c), and link to my program, using my old library?

Gracias Antonio

Lo compile con xHb y nada ..., y recorde que ustedes recomiendan Hb, lo compile y funciono !!

Esta linea es la que da resultados distintos en xHb y Hb (al parecer)

aDir := DirectoryRecurse( TrueName( cSpec ) )

Saludos y gracias

Es correcto solo funciona en HB para xHB he tenido que usar : DirectoryRecurse() , pues trate de compilar el source pero daba muchos errores.

... before, and I allways get an empty array. http://forums.fivetechsupport.com/viewtopic.php?f=3&t=22789&p=121743&hilit=DIRECTORYRECURSE#p121743 When I use mu old version of FW with xharbour, I still get an empty array, but with my newer version with harbour, it worked :)

Try DIRECTORYRECURSE() function.

EMG

Karinha Estas instrucciones estan en PROC9995.PRG Yo tenia aFiles := DirectoryRecurse( cSourceZip + "\*.*",, .T. ) Ya la cambie a aFiles := DirectoryRecurse( cSourceZip + "\*.*",, .F. ) y me sigue respaldando la carpeta y sus subcarpetas ...

Karinha #IFDEF __XHARBOUR__ // if xHarbour aFiles := DirectoryRecurse( cSourceZip + "\*.*",, .F. ) #ELSE // if harbour aFiles := DirectoryRecurse( cSourceZip + "*",, .F. ) #ENDIF Disculpa mi ignorancia Ya logré compilar xbackup ...

... DirChange(<cDirectory>)->nOSError Directory(<cDirSpec>,[<cAttributes>])->aDirectory DirectoryRecurse(<cDirSpec>,[<cAttributes>])->aDirectory DirMake(<cDirectory>)->nErrorCode DirName()->cDirectory DirRemove(<cDirectory>)->nOSError ...