topic-16129

Board index FiveWin para Harbour/xHarbour Nombres de carpetas

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Nombres de carpetas
Posted: Wed Jul 15, 2009 02:01 PM

Amigos del Foro:
Necesito saber si existe alguna función en FWH para extraer los nombres de todas las carpetas dentro de un sub-directorio. Solamente los nombres de carpetas, no de otros posibles ficheros que pudiesen haber. Es decir, los nombres de carpetas no se deben conocer de antemano. Agradeceré cualquier ayuda al respecto.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Alfredo Arteaga

Posts: 326

Joined: Sun Oct 09, 2005 05:22 PM

Re: Nombres de carpetas
Posted: Wed Jul 15, 2009 08:53 PM

Puedes usar algo como esto:

Code (fw): Select all Collapse

LOCAL aFiles, aFile

aFiles:=Directory("*.*","D")
FOR EACH aFile IN aFiles
   IF Left(aFile[1],1)!="." .AND. "D"$aFile[5]
      ? aFile[1] // Es una carpeta
   ENDIF
NEXT

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Nombres de carpetas
Posted: Wed Jul 15, 2009 11:46 PM

Muchas Gracias Alfredo. Trabaja perfecto.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion