Datos sobre subdirectorios y mas

On Tue, 17 Aug 2004 13:20:39 -0700, "ricardo contreras"
wrote:

Hola A todos ..
Amigos por favor ayundeme .. Necesito saber como
realizara un rutina para saber que subdirectorios hay
apartir de uno directorios que el usuarios de

Ejemplo.. Como Guardaria yo en una tabla todos los
directorios y sub.. que tenemos en en c:\ -> En Adelante

Ejemplo tenemos
c:\windows
c:\windows\system
c:\windows\system32
c:\windows\system32\1025
c:\windows\system32\1028

Y si los demas subdirectorios

c:\fvp9
c:\fvp9\galery
c:\fvp9\graphics
c:\fvp9\tool

Y si los demas subdirectorios
Habra algo que se puedda hacer...

Mira el ejemplo de uso recursivo de WSH llamado FSOTree por Ed Rauh
http://fox.wikis.com/wc.dll?Wiki~WindowsScriptingHost



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

Mira si esto te sirve, deberias modificarla para que en vez de los nombres
de archivos, retorne el nombre de las carpetas.

subdirectorio --
http://www.portalfox.com/article.php?sidX


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"ricardo contreras" escribió en el
mensaje news:0a6301c48497$a9e26090$

Hola A todos ..
Amigos por favor ayundeme .. Necesito saber como
realizara un rutina para saber que subdirectorios hay
apartir de uno directorios que el usuarios de

Ejemplo.. Como Guardaria yo en una tabla todos los
directorios y sub.. que tenemos en en c:\ -> En Adelante

Ejemplo tenemos
c:\windows
c:\windows\system
c:\windows\system32
c:\windows\system32\1025
c:\windows\system32\1028

Y si los demas subdirectorios

c:\fvp9
c:\fvp9\galery
c:\fvp9\graphics
c:\fvp9\tool

Y si los demas subdirectorios
Habra algo que se puedda hacer...

Gracias ... por favor si alguien puede arientarme..

Aqui esta la función retocada para que te retorne todos los subdirectorios
de un directorio:

Ej:
DIMENSION laMiArray[1]
lnC = ASubdirectorios(@laMiArray, "C:\Archivos de programa\Microsoft Visual
FoxPro 8\")
? "Cantidad de subdirectorios:", lnC
FOR lnI = 1 TO lnC
? laMiArray[lnI]
ENDFOR
? "Cantidad de subdirectorios:", lnC


*--
* FUNCTION ASubdirectorios(taArray, tcRoot)
*--
* Devuelve en un array pasado por referencia todos los nombres de
* subdirectorios del directorio "tcRoot".
* Los nombres son de la forma: [Unidad]:[\Directorio][\Subdirectorio]
* RETORNO: Cantidad de subdirectorios en el array. Si no encontró ningún
* subdirectorio o el directorio "tcRoot" no existe, retorna 0 (cero)
* EJEMPLO DE USO:
* DIMENSION laMiArray[1]
* lnC = ASubdirectorios(@laMiArray, "C:\Mis Documentos\")
* FOR lnI = 1 to lnC
* ? laMiArray[lnI]
* ENDFOR
*--
FUNCTION ASubdirectorios(taArray, tcRoot)
IF EMPTY(tcRoot)
tcRoot = SYS(5) + CURDIR()
ENDIF
DIMENSION taArray[1]
=ARecur(@taArray, tcRoot)
IF ALEN(taArray) > 1
DIMENSION taArray[ALEN(taArray) - 1]
RETURN ALEN(taArray)
ELSE
RETURN 0
ENDIF
ENDFUNC
*--
* FUNCTION ARecur(taArray, tcRoot)
*--
* Funcion recursiva llamada por ASubdirectorios
*--
FUNCTION ARecur(taArray, tcRoot)
PRIVATE lnI, lnCant, laAux
tcRoot = ADDBS(tcRoot)
lnCant = ADIR(laAux, tcRoot+"*.", "D")
FOR lnI = 1 TO lnCant
IF "D" $ laAux[lnI, 5]
IF laAux[lnI, 1] == "." OR laAux[lnI, 1] == ".."
LOOP
ELSE
lcSubDir = tcRoot + laAux[lnI, 1]
=ARecur(@taArray, lcSubDir)
taArray[ALEN(taArray)] = ADDBS(tcRoot + laAux[lnI, 1])
DIMENSION taArray[ALEN(taArray) + 1]
LOOP
ENDIF
ENDIF
ENDFOR
RETURN
ENDFUNC
*--


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Luis María Guayán" escribió en el mensaje
news:%

Mira si esto te sirve, deberias modificarla para que en vez de los nombres
de archivos, retorne el nombre de las carpetas.

subdirectorio --
http://www.portalfox.com/article.php?sidX


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"ricardo contreras" escribió en el
mensaje news:0a6301c48497$a9e26090$
> Hola A todos ..
> Amigos por favor ayundeme .. Necesito saber como
> realizara un rutina para saber que subdirectorios hay
> apartir de uno directorios que el usuarios de
>
> Ejemplo.. Como Guardaria yo en una tabla todos los
> directorios y sub.. que tenemos en en c:\ -> En Adelante
>
> Ejemplo tenemos
> c:\windows
> c:\windows\system
> c:\windows\system32
> c:\windows\system32\1025
> c:\windows\system32\1028
>
> Y si los demas subdirectorios
>
> c:\fvp9
> c:\fvp9\galery
> c:\fvp9\graphics
> c:\fvp9\tool
>
> Y si los demas subdirectorios
> Habra algo que se puedda hacer...
>
> Gracias ... por favor si alguien puede arientarme..
>
>
>
>
>
>
>

OK Jose muhcas gracias y a todos los que vieron este
anuncio que de una u otra forma seguramente lo tomes..

mil gracias

Tambien a alex ..
OK Alex muchas gracias el link que me dio es ta correcto
y es bueno funciona bien.. gracias...