18 lines
465 B
Plaintext
18 lines
465 B
Plaintext
/*
|
|
$FG,2$$WW,1$This gets a list of files, flattens the list from a tree into an array and sorts them by cluster number, to speed-up access time by avoiding moving the disk head around.
|
|
$WW,0$$FG$*/
|
|
|
|
void DoIt()
|
|
{
|
|
I8 i,cnt=0;
|
|
LTDirEntry *tempm=FindFiles("::/LT/*",1<<FUf_RECURSE),
|
|
**a=OrderFiles(tempm,&cnt);
|
|
for (i=0;i<cnt;i++) {
|
|
PrintF("%08X %s\r\n",a[i]->cluster,a[i]->full_name);
|
|
DelLTDirEntry(a[i]);
|
|
}
|
|
Free(a);
|
|
}
|
|
|
|
|
|
DoIt; |