Salut!!

J'ai une FileListBox et j'aimerai supprimer dans la FileListBox les fichiers suprérieur a 30 000 octets.

Le trie ne s'effectue pas correctement ou selon les cas ca passe et d'autres non.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
FileListBox2->ApplyFilePath("D:\\test");
FileListBox2->Update();
 
AnsiString fichier;
AnsiString fichier2;
AnsiString test;
for (int i = 0; i < FileListBox2->Items->Count; i++)
{fichier=FileListBox2->Items->Strings[i];
fichier2="D:\\test\\"+fichier;
int FichierHandle = FileOpen(fichier2, fmOpenRead);
 
test=FormatFloat("", FileSeek(FichierHandle, 0, 2));
 
if (test>30000) 
{FileListBox2->Items->Delete(i);}
FileClose(FichierHandle);