topic-14642

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

DirectoryRecurse - Erro
Posted: Thu Feb 19, 2009 03:01 PM

Buenos dias, porfa que hago mal?

#Include "Fivewin.ch"
#Include "Directry.ch"

//------------------------------------------------
FUNCTION Main()

   LOCAL aDir, i

   aDir := DirectoryRecurse("C:\")

   For i = 1 to Len( aDir )

      //Grabar  en .DBF

   NEXT

   ? Len( aDir ), "Archivos Listados."

RETURN NIL

//-> Retorno: 0 Archivos Listados - Que hacer?

Saludos.

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

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: DirectoryRecurse - Erro
Posted: Thu Feb 19, 2009 07:50 PM

//-> Resuelto,

Code (fw): Select all Collapse

#Include "Fivewin.ch"
#Include "Directry.ch"

//------------------------------------------------
FUNCTION Main()

   LOCAL aDir, i, cNomeDir, cResultCam, wPosicBarra

   aDir := aFindFile( "TUTOR04.PRG", "C:" )

   ? Len( aDir ), "Arquivos Listados."

   For i = 1 to Len( aDir )

      //Grava no seu DBF aDir[i,1]

      cNomeDir := cFilePath(aDir[i])+SPACE(50)

      wPosicBarra := AT( "\","   "+SUBS( cNomeDir, 4, 37 ) )

      cResultCam := SUBS( cNomeDir, 1, wPosicBarra - 1)

      ? cResultCam, ValToPrg( aDir )

   Next

RETURN NIL

//-> Fim - Fin

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

FiveTech Support Forums

Continue the discussion