FiveTech Software tech support forums

Hola compañeros:

Intengo leer carpeta con subcarpetas y archivos para hacer copias de seguridad.

Si hago

Code: Select all  Expand view

aFiles := directoryrecurse( "C:\programa\*.*",, .f. )  && funciona PERFECTO Y devuelve matriz llena !!

Si lo intento en red local donde los archivos están en "otroequipo" (y con permiso de lectura y escritura)...

Code: Select all  Expand view

aFiles := directoryrecurse( "\\OtroEquipo\programa\*.*",, .f. ) && NO funciona. La matriz siempre vacia. 

También ejecuté el EXE como administrador, pero sigue igual
¿Cómo tengo que hacer?

Mil gracias
LORENZO.

Code: Select all  Expand view

#include "FiveWin.ch"  

FUNCTION Main()

   LOCAL cArq, cExt, cPath, cFile, cEncontrou, nI

   cArq  := ""
   cExt  := ""
   cPath := ""

   cPath := "C:\FWH1306\SAMPLES\"

   cFile := "TESTE.PRG"

   // aFile := DIRECTORYRECURSE( cPath + cFile )

   // ou:

   aFile := DIRECTORY( cPath + cFile )

   If Len(aFile)==0

      ? "Arquivo Não Encontrado"

   Else

      For nI := 1 to Len( aFile )

         hb_FNameSplit( aFile[nI,1], @cPath, @cArq, @cExt )

         ? cPath+" "+cArq+" "+cExt+" Perfeito, encontrou!"

      Next

      aFiles := ALLTRIM( cPath+cArq+cExt )

      cEncontrou := aFiles

      IF FILE( cEncontrou )  // Encontrou, mostra...

         ? cEncontrou

      ENDIF

   EndIf

RETURN NIL

Saludos.

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.

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

VictorCasajuana wrote: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.

Victor !

Esa función debe ser de xHarbour.

Muchas gracias.

Saludos,

Gracias, sempre aprendiendo!

Enviado desde mi moto g(9) plus mediante Tapatalk

Todas las copias de archivos los hago con:

oFs := CreateObject( "Scripting.FileSystemObject" )

por si quires intentar.

Solucionado!!

En vez de asignar la ruta completa:
\\otroequipo\programa\...

Creo una unidad de red y se la asigno y listo!! Por ejemplo:
R:\


...y listo!! ahora lee perfectamente carpetas, subcarpetas y archivos.... Me devuelve una matriz llena.

Gracias a todos y particularmente a Mr. Rao.
LORENZO.

Loren wrote:Hola compañeros:

Intengo leer carpeta con subcarpetas y archivos para hacer copias de seguridad.

Si hago

Code: Select all  Expand view

aFiles := directoryrecurse( "C:\programa\*.*",, .f. )  && funciona PERFECTO Y devuelve matriz llena !!

Si lo intento en red local donde los archivos están en "otroequipo" (y con permiso de lectura y escritura)...

Code: Select all  Expand view

aFiles := directoryrecurse( "\\OtroEquipo\programa\*.*",, .f. ) && NO funciona. La matriz siempre vacia. 

También ejecuté el EXE como administrador, pero sigue igual
¿Cómo tengo que hacer?

Mil gracias
LORENZO.

Code: Select all  Expand view

directoryrecurse( "\\OtroEquipo\C\programa\*.*", ... )

Where "C" is the drive.
This works for me