int i, j;
AnsiString n;
FILE *lista;
lista = fopen("C:\\lista.txt", "w");
if (!lista)
{
ShowMessage("Error al crear el archivo nuevo");
exit (0);
}
for (j=0; j<DirectoryListBox1->Items->Count; j++)
{
FileListBox1->Directory = DirectoryListBox1->Items->Strings[j];
FileListBox1->Update();
fprintf(lista, "[%s]", DirectoryListBox1->Items->Strings[j]);
fprintf(lista, "\n");
for (i=0; i<FileListBox1->Items->Count; i++)
fprintf(lista, "%s%c", FileListBox1->Items->Strings[i], '\n');
fprintf(lista, "\n\n");
}
fclose(lista);
ShellExecute(NULL, "open", "C:\\lista.txt",NULL, NULL,SW_SHOWNORMAL);