| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Fernando Diaz
Master
Registrado: 18 Jul 2004Mensajes: 273Ubicación: Talavera de la Reina (Toledo)
|
 Publicado: Mar 29 Mar, 2005 1:28 pm Asunto: Busqueda incluyendo subdirectorios |
 |
|
hE visto en el foro soluciones a busquedas en directorios, pero para buscar en toda la unidad, o una unica carpeta incluyendo sus subcarpetas??? como se haria?:S
gracias de antemano
_________________
Los problemas mas dificiles tienen las soluciones mas sencillas
 |
|
| Volver arriba |
|
 |
nuno
Cmdr
Registrado: 10 Feb 2003Mensajes: 143Ubicación: Córdoba - Argentina
|
| Publicado: Mar 29 Mar, 2005 7:27 pm Asunto: |
|
|
tengo justo el codigo para lo que quieres hacer, ahora estoy en en trabajo, a la noche me coneo y te lo paso.
saludos!!!
_________________
Siempre hay que tratar de ser el mejor, pero nunca creerse el mejor (Juan Manuel Fangio) |
|
| Volver arriba |
|
|
nuno
Cmdr
Registrado: 10 Feb 2003Mensajes: 143Ubicación: Córdoba - Argentina
|
| Publicado: Mie 30 Mar, 2005 12:28 am Asunto: |
|
|
void Tfrmprincipal::listararchivos(String dir)
{
TSearchRec sr;
bool finalizado = FindFirst(dir + "\\*.*", faAnyFile, sr);
int i=0;
while (!finalizado)
{
if(sr.Name != "." && sr.Name != "..")
{
// si quieres ver los directorios tambien le pones faAnyFile
if (sr.Attr!=faDirectory)
{
ShowMessage(sr.Name);
}
}
finalizado = FindNext(sr);
}
FindClose(sr);
}
_________________
Siempre hay que tratar de ser el mejor, pero nunca creerse el mejor (Juan Manuel Fangio) |
|
| Volver arriba |
|
|
Fernando Diaz
Master
Registrado: 18 Jul 2004Mensajes: 273Ubicación: Talavera de la Reina (Toledo)
|
| Publicado: Mie 30 Mar, 2005 12:07 pm Asunto: |
|
|
muchas gracias, pero lo que necesito es tb buscar en subcarpetas.. 
_________________
Los problemas mas dificiles tienen las soluciones mas sencillas
|
|
| Volver arriba |
|
|
nuno
Cmdr
Registrado: 10 Feb 2003Mensajes: 143Ubicación: Córdoba - Argentina
|
| Publicado: Mie 30 Mar, 2005 1:18 pm Asunto: |
|
|
con ese codigo puedes buscar en subcarpetas, pruebalo y te daras cuenta, despues lo adaptas a tus necesidades, pero te muestra todos los archivos y "directorios" a partir de una ruta.
Saludos!!
_________________
Siempre hay que tratar de ser el mejor, pero nunca creerse el mejor (Juan Manuel Fangio) |
|
| Volver arriba |
|
|
Enrique
Master
Registrado: 13 Ago 2002Mensajes: 261Ubicación: La Vila Joiosa (Alacant)
|
| Publicado: Mie 30 Mar, 2005 4:11 pm Asunto: |
|
|
Hola a ambos. Para poder listar directorios y sus subdirectorios hay que usar una función que muestre el contenido de un directorio de forma recursiva (que la función se llame a sí misma mientras tenga que listar algún subdirectorio).
La base para listar un directorio te la proporciona nuno. En la ayuda del Builder tienes un ejemplo bastante bueno (FindNext, example): | Cita: | VCL Reference
FindFirst, FindNext, FindClose Example
The following example uses an edit control, a button, a string grid, and seven check boxes. The check boxes correspond to the seven possible file attributes. When the button is clicked, the path specified in the edit control is searched for files matching the checked file attributes. The names and sizes of the matching files are inserted into the string grid.
| Código: | void __fastcall TForm1::Button1Click(TObject *Sender)
{
TSearchRec sr;
int iAttributes = 0;
StringGrid1->RowCount = 1;
iAttributes |= faReadOnly * CheckBox1->Checked;
iAttributes |= faHidden * CheckBox2->Checked;
iAttributes |= faSysFile * CheckBox3->Checked;
iAttributes |= faVolumeID * CheckBox4->Checked;
iAttributes |= faDirectory * CheckBox5->Checked;
iAttributes |= faArchive * CheckBox6->Checked;
iAttributes |= faAnyFile * CheckBox7->Checked;
StringGrid1->RowCount = 0;
if (FindFirst(Edit1->Text, iAttributes, sr) == 0)
{
do
{
if ((sr.Attr & iAttributes) == sr.Attr)
{
StringGrid1->RowCount = StringGrid1->RowCount + 1;
StringGrid1->Cells[1][StringGrid1->RowCount-1] = sr.Name;
StringGrid1->Cells[2][StringGrid1->RowCount-1] = IntToStr(sr.Size);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
} |
|
La idea es que, cuando detectes que el elemento (sr) del directorio actual es un directorio (debes tener en cuenta que "." y ".." siempre son directorios de cualquier directorio, nuno te da una idea de cómo ignorarlos) hagas una llamada a la función en la que te encuentras (p.ej. listararchivos(String dir)), pasándole como parámetro el nombre del "subdirectorio" que quieres listar, algo así como listararchivos(sr.Name)).
Recuerdo que no era tan sencillo como sugiere Builder descubrir que lo leido es un directorio, pero ahora no dispongo de tiempo para ayudarte más, busca todo lo que puedas sobre TSearchRec.
Suerte.
_________________
Ojos ... no son ojos porque los ves, son ojos porque te miran |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
