Filer.DLL, es una DLL que es utilizada para buscar archivos, es bastante bueno y posee muchas características. Este ejemplo almacena en un cursor los archivos encontrados en un directorio determinado
Create Cursor filename (cfilename c(128))
omyfiler = Createobject("Filer.FileUtil")
omyfiler.searchpath = "C:" && Ruta de Busqueda
omyfiler.subfolder = 1 && 1 = para incluir subdirectorios. 0 para no
omyfiler.SortBy = 0
omyfiler.Find(0)
Local ncount
ncount = 1
For nfilecount = 1 To omyfiler.Files.Count
If omyfiler.Files.Item(nfilecount).Name =
"." Or ;
omyfiler.Files.Item(nfilecount).Name = ".."
Loop
Endif
Append Blank
Replace cfilename WITH
Upper(omyfiler.Files.Item(nfilecount).Path)+ ;
UPPER(omyfiler.Files.Item(nfilecount).Name)
Endfor
Browse
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
