directoryrecurse para copias de seguridad (SOLUCIONADO)

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

directoryrecurse para copias de seguridad (SOLUCIONADO)
Posted: Wed Apr 28, 2021 07:07 PM

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 están en "otroequipo" (y con permiso de lectura y escritura)...

Code (fw): Select all Collapse

 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.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: directoryrecurse para copias de seguridad
Posted: Thu Apr 29, 2021 12:52 PM

Code (fw): Select all Collapse

#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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

VictorCasajuana

Posts: 309

Joined: Wed Mar 28, 2018 04:38 PM

Re: directoryrecurse para copias de seguridad
Posted: Thu Apr 29, 2021 04:43 PM

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.

--------

¿ Y porque no ?

¿ And why not ?

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: directoryrecurse para copias de seguridad
Posted: Thu Apr 29, 2021 05:24 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Re: directoryrecurse para copias de seguridad
Posted: Thu Apr 29, 2021 07:27 PM

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,

Victor Casajuana Mas

Posts: 11

Joined: Thu Jun 06, 2019 01:15 PM

Re: directoryrecurse para copias de seguridad
Posted: Thu Apr 29, 2021 08:30 PM

Gracias, sempre aprendiendo!

Enviado desde mi moto g(9) plus mediante Tapatalk

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: directoryrecurse para copias de seguridad
Posted: Fri Apr 30, 2021 11:45 AM

https://sourceforge.net/p/xharbour/discussion/105816/thread/9d27f98ca8/?limit=25

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

VitalJavier

Posts: 257

Joined: Mon Jun 10, 2013 06:40 PM

Re: directoryrecurse para copias de seguridad
Posted: Fri Apr 30, 2021 02:48 PM

Todas las copias de archivos los hago con:

oFs := CreateObject( "Scripting.FileSystemObject" )

por si quires intentar.

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Re: directoryrecurse para copias de seguridad (SOLUCIONADO)
Posted: Fri Apr 30, 2021 03:08 PM

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.

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: directoryrecurse para copias de seguridad (SOLUCIONADO)
Posted: Mon May 03, 2021 04:46 AM

Loren wrote:Hola compañeros:

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

Si hago
Code (fw): Select all Collapse
 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 (fw): Select all Collapse
 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 (fw): Select all Collapse

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

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

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion